Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Danleonhart

(Resolvido) Conectar e mostrar Tabela do Access em DataGrid

Question

Olá pessoal !

Utilizo este Modulo para conexão ADO com Tabela em banco de dados do Access...

Public con As ADODB.Connection
Public rs As Recordset

Public Function abb()
Set con = New ADODB.Connection
con.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\bd1.mdb;jetoldb:database"
End Function

Public Function fcb()
con.Close
End Function

Estou tentando mostrar os valores da tabela em um DataGrid, porém, o tutorial que encontrei aqui no "FSB" é redirecionando uma "List" para o DataGrid...

Tem como rolar um passso a passo aí pessoal de como se faz para mostrar todos os valores da tabela do Access no DataGrid ?!

A tabela tem 5 colunas (Nome, Sobrenome, Endereco, Email, Telefone)...

Obrigado pessoal !

Share this post


Link to post
Share on other sites

9 answers to this question

Recommended Posts

  • 0

Exemplo:

Private Sub preenche_grid()

Dim cmd As New ADODB.Command

Dim rs As New ADODB.Recordset

'o command retornando nossos campos e enchendo o Recordset

With cmd

.ActiveConnection = cnn

.CommandType = adCmdText

.CommandText = "select Cod, nome, nascimento from clientes"

Set rs = .Execute

End With

'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos

With rs

Set DataGrid1.DataSource = rs

end with

end sub

Share this post


Link to post
Share on other sites
  • 0

@ Macêdo...

Antes de tudo queria agradecer pela resposta via "MP"...como o tópico era muito antigo, resolví não postar lá... vou colocar aqui o assunto, pois alguém pode querer saber também:

@Pergunta:

Macedo... lí seu tópico sobre DataGrid... gostaria de saber qual o DataGrid que você utilizou, pois em Components tem varios...e se tem como configurar as larguras das linha e colunas... pois fiz um teste com o MS FlexGrid 6.0 e não tem como configurar...

Obrigado !

@Resposta:

Dan

Se postei Datagrid, pois faz tempo que não frenquento o Forum e não lembro mais. Então o componente é o DATAGRID mesmo, utilizei muito este componente e só pra deixar claro: temos muitos GRID's´como (MsFlexgrid, MsHflexGrid ou Hierarchical Flex, o Listview que tambem considero um GRID) mas DATAGRID só tem UM. Quanto a configurar as colunas do MS FlexGrid 6.0 configure assim

.ColWidth(0) = 600 ' define largura da coluna.

Quero dizer que funcionou perfeitamente... e que resolví mudar de "MSFlexGrid" para a "DataGrid" em razão desta última apresentar a barra superior que pode ser renomeada com o nome do que compõe a coluna.

Foto:

1000a.png

Agora vou testar este script de conexão que você citou... obrigado mais uma vez.

Share this post


Link to post
Share on other sites
  • 0

@Macedo:

Se você puder ser mais especifico ficarei grato cara...tou lutando pra conseguir visualizar os dados do BD em um DataGrid e não estou conseguindo...

Na tabela tem Nome, Data de Nascimento, Telefone... tentei esse seu metodo e não apareceu nada dentro dos campos... :unsure:

Share this post


Link to post
Share on other sites
  • 0

Fez as alterações necessárias ? colocou o nome de sua conexão, o nome dos campos e da tabela no codigo ? o nome do datagrid também ? veja abaixo em caixa ALTA

Private Sub Form_Load()

Dim cmd As New ADODB.Command 
Dim rs As New ADODB.Recordset 

With cmd
.ActiveConnection = CON
.CommandType = adCmdText
.CommandText = "select CAMPO1, CAMPO2, CAMPO3 from SUA_TABELA"
Set rs = .Execute
End With
'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos
With rs
Set DATAGRID1.DataSource = rs
end with

end sub

Share this post


Link to post
Share on other sites
  • 0

No exemplo abaixo, é deletado toda linha da tabela onde o campo escolhido for igual ao que estiver aparecendo na primeira coluna da linha selecionada no datagrid

With cmd
        .ActiveConnection = NOME-DA-COEXAO
        .CommandType = adCmdText
        .CommandText = " delete from NOME-DA-ABELA where CAMPO-DA-TABELA = " & DataGrid1.Columns.Item(0) & ";"
        .Execute
        End With

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148133
    • Total Posts
      643438
×
×
  • Create New...