Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Conectar e mostrar Tabela do Access em DataGrid


Danleonhart

Pergunta

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 !

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros 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.

Link para o comentário
Compartilhar em outros 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:

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...