Como Preencher Data Grid do vb6 com dados do Access

Como Preencher Data Grid do vb6 com dados do Access

Nesse rápido artigo quero compartilhar com você uma forma de preencher o DataGrid no vb6. Sei que esse não é o primeiro post que você ler a respeito de como realizar essa tarefa, mas garanto que hoje você consegue rs…

Desculpem a sinceridade mas, também tive muitas dificuldades em realizar essa façanha com o datagrid. Depois de muita pesquisa sem sucesso, encontrei um código estrangeiro onde conseguir finalmente adapta-lo em meus projetos do vb6.

Antes que você continue lendo o artigo quero ressaltar que o post vai tratar de um preenchimento básico do datagrid. Após esse artigo estamos querendo ensinar como realizar pesquisas, filtros e formatações no controle.

Então se você quiser aprender como fazer isso, deixe seu comentário a baixo desse post. Isso é importante porque saberemos pelo seu comentário que o artigo foi útil, dessa forma daremos prosseguimento a esse tema.

Chega de enrolação e vamos por a mão na massa…

Preencher DataGrid – Aprenda Como Preencher O DataGrid Do VB6

Vamos criar um projeto igual da imagem, a primeira coisa que você precisará fazer é adicionar:

• Um Form
• Um Controle DataGrid
• Um Botão
• Um Módulo

Eu tenho sempre o costume de programar meus códigos dentro de módulos. Então recomendo para esse artigo que você faça o mesmo, depois com mais calma você poderá adaptar o comando em seu projeto.

Para esse projeto algumas propriedades dos controles serão padrões. Você notará que apenas renomeamos o Caption do botão e do form, porem as propriedades Name serão padrões do Visual Basic.

O tipo de extensão de seu banco precisa ser accdb

Agora que já temos nosso formulário montado, precisamos fazer a conexão com o banco de dados. Antes é preciso ter o data base é claro, se você for montar o projeto igual desse artigo, 

clique aqui e baixe o banco pronto.

Realizando os passos a cima, agora vamos precisar de referenciar nossa estancia de conexão. Em referencias do visual Basic 6, adicione o microsoft activex data objects 2.8 library.

Cole o seguinte código:

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Path As String

Public Sub ConectDB()
    Path = App.Path & "\MeuBanco.accdb"
    db.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path
End Sub

Após feito isso vamos a mágica, dentro de nosso botão preencher do formulário vamos colar o seguinte código:

   ConectDB
        rs.CursorLocation = adUseClient
        rs.Open "Select * from TabelaDados", db, 3, 3
            Set DataGrid1.DataSource = rs
                DataGrid1.Refresh
            Set rs = Nothing

Pronto apenas com esse comando você já preenchera seu datagrid, veja o código na prática:

Não disse que seria simples de se aplicar, espero que isso possa ajudar resolver seu problema. Para facilitar ainda mais seu trabalho, vou deixa aqui a baixo o link para você fazer o download do projeto completo.

Até a próxima!

→Clique aqui para baixar o projeto de referência do artigo!