CONEXÃO COM BANCO DE DADOS ACCESS

 Tópico anterior Próximo tópico Novo tópico

CONEXÃO COM BANCO DE DADOS ACCESS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#443925 - 21/01/2015 22:19:01

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


 Anexos estao visíveis somente para usuários registrados

Meus amigos, há um tempo atrás postei sobre um erro ao instalar o programa em outras máquinas, ocorre que de início eu achava que o problema era com
os controles (Chameleon Button, LoozeXp etc) mas pra minha sorte eu descobri (da pior maneira possível) que o erro está no modo como eu conecto ao banco
de dados.

Gostaria que alguém me passasse um outro modo de conexão e de consulta ao bd, se possível
o mais parecido com esse possível pois eu não tenho como reaprender a fazer consultas.

Se alguém tiver pequenos projetos prontos com conexão eu também aceito.

Segue o modo como faço a conexão e consulta ao bd:

No Módulo:
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Path As String


Public Sub ConnectDB()
      Path = App.Path & "\Padrao.mdb"
      db.Open "Provider=microsoft.jet.oledb.4.0;data source=" & Path & ";jet oledb:database Password=142536;"
End Sub


Public Sub FechaBD()
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
End Sub


No Formuário:

   Dim Item As ListItem
   ConnectDB
    rs.Open "select *from TBClientes order by Status", db, 3, 3
      Do Until (rs.EOF)
          Set Item = lstGeral.ListItems.Add(, , rs!Codigo)
              Item.SubItems(1) = "" & rs!Nome
              Item.SubItems(4) = "" & rs!Data
              Item.SubItems(5) = "" & rs!Email1
              rs.MoveNext            
       Loop
    FechaBD



Cursos de Excel e VB6:
cursoexcelvba.com.br



#443926 - 22/01/2015 00:31:15

ESLEYSANCHES
SANTO ANDRE
Cadast. em:Setembro/2005


Cara ... Olhei seu código e reparei que ele está perfeito, redondinho ... Eu mesmo usava dessa mesma forma .
Normalmente esse erro é sim algum controle, ou no run-time do VB6.
Dê uma olhada nesse link (em inglês) que ele da umas dicas e até mesmo uma ferramenta para reparo, veja se te ajuda

Por que se depender da sua conexão ... está tudo certinho!



Abraços



#443928 - 22/01/2015 01:38:38

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Citação:
:
Cara ... Olhei seu código e reparei que ele está perfeito, redondinho ... Eu mesmo usava dessa mesma forma .
Normalmente esse erro é sim algum controle, ou no run-time do VB6.
Dê uma olhada nesse link (em inglês) que ele da umas dicas e até mesmo uma ferramenta para reparo, veja se te ajuda

Por que se depender da sua conexão ... está tudo certinho!



Abraços


cadê o link amigo?

Cursos de Excel e VB6:
cursoexcelvba.com.br



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MARIOANDRADE em 23/01/2015 16:53:02