Preencher DataGrid no VB6 com dados do Access

Pessoal quero passar para vocês nesse rápido artigo uma forma de preencher o DataGrid no VB6. Com essa breve explicação o entendimento vai ficar bem mais simples na hora de adaptar o código. 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.

Vamos a praticar do nosso resumo para aprendermos desenvolvendo

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 a 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 referenciar nossa estancia de conexão. Em referencias do visual Basic 6, adicione o Microsoft activex data objects 2.8 library.

Preencher DataGrid- Criando Os Comandos de Conexão e Preenchimento

No módulo adicionado vamos criar o comando de conexão para nosso banco de dados. Criaremos uma Sub do tipo publica para que todo o projeto tenha acesso a essa rotina, nos falamos mais sobre isso nesse artigo.

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

Depois de feito isso vai à mágica, dentro de nosso botão preencher do formulário vai 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.

pessoal esse artigo e de autoria do meu parceiro Welisson Silva do site diarioexcel.com.br, viste o site e vai encontrar uma infinidade de artigos relevantes assim como esse. Não deixa de aprender e tirar as suas duvidas em relação aos conteúdos que postamos aqui e se quiser um conteúdo especifico e só deixar nos comentários.

Veja mais em nosso site…

Planilhas para a gestão do seu negócio em Excel

Planilha simulador de parcelamento em Excel

Como controlar recebimentos em cartões de crédito

A Importância do Fluxo de Caixa nas Empresas

Sistema Controle de Contas a Pagar e Receber

Planilha agenda de contato corporativo em Excel

Planilha para Controlar de Dízimos e Ofertas em Excel

Planilhas em Excel para Abertura de Empresa

Como Usar a função PROCV (VLOOKUP) do Excel

Macro para salvar cadastro de clientes Excel VBA

Como calcular o lucro em porcentagem no Excel