(Resolvido) Conectar e mostrar Tabela do Access em DataGrid

[Danleonhart]

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 !

[Macêdo]

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

[Danleonhart]

@ 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:

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

[Danleonhart]

@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:

[Macêdo]

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

[Danleonhart]

Obrigado mais uma vez Macêdo...

Já resolví este problema... agora surgiu outro na minha forma de procurar e excluir usuario encontrado...

dá uma olhadinha aê:

http://scriptbrasil.com.br/forum/index.php...t=0#entry610469

Grato atodos ! :rolleyes:

[Macêdo]

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

[Danleonhart]

Boa Macêdo !

Testei aqui e também funcionou ! :D

Para informação de todos... B)

[raphael_suporte]

posso marcar o tópico como resolvido?

[Danleonhart]

OK Raphael !