estou começando a  migrar de dao para ado, e gostaria de saber, qual objeto referencio, pois nas referencias do vb6, tenho o seguinte:

microsoft activex data objects 2.0 library
microsoft activex data objects 2.1 library
microsoft activex data objects 2.5 library
microsoft activex data objects 2.6 library
microsoft activex data objects 2.7 library
microsoft activex data objects 2.8 library
microsoft activex data objects 2.7 recordset library
microsoft activex data objects (multi dimensional)2.7 library

e depois de referenciar, como faço para criar a conexão em um módulo ?, pois pretendo deixar a conexão com o banco sempre aberta, e a cada form, abrir os recordsets necessários. Grato.

futura, eu particularmente uso o 2.6, mas nao sei quais as diferenças de um para os outros.

criar conexao:

dim conexao as adodb.connection

set conexao = new adodb.connection

conexao.open "string de conexao"

 

Pessoal, estou referenciando o ado 2.6, mas ao abrir a conexão, da o seguinte erro: run-time error 429 - activex component can´t create object

Olá!

Referencie os dois objetos abaixo.

 

microsoft activex data objects 2.8 library
microsoft activex data objects 2.7 recordset library

 

Para deixar a conexão sempre aberta, declare no módulo o seguinte:
Public cnBanco As New ADODB.Connection

 

E no evento Load do seu form principal, realize a conexão.

Private Sub FormPrincipal_Load()
cnBanco.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:Banco.mdb" & ";" & "Persist Security Info=False"
cnBanco.Open
End Sub

 

Abrindo um tabela em  outro form - pode ser no evento Load do form ou até mesmo em um botão.

 

Dim rstabela As New ADODB.Recordset

 

rstabela.CursorType = adOpenKeyset
rstabela.LockType = adLockOptimistic
rstabela.Open "Select * from tabela ", cnBanco, , , adCmdText

 

Espero ter ajudado!

 

clau , vc sabe me dizer como passo a conexao como parametro para um metodo de uma dll?