CONEXÃO COM BANCO DE DADOS ACCESS

MARIOANDRADE 21/01/2015 22:19:01
#443925
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
ESLEYSANCHES 22/01/2015 00:31:15
#443926
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
MARIOANDRADE 22/01/2015 01:38:38
#443928
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?
Tópico encerrado , respostas não são mais permitidas
Voltar