Pessoal sou novo no fórum e por favor não me levem a mal s eestou postando algo que alguém já perguntou!! Tenho um projeto utilizando DAO e gostaria de muda-lo para ADO como faço estou deseperado. Sei que existem muitas coisas falando a respieto, mas por ser novo na programação não entendo muito bem alguém poderia me ajudar, please!!! Obrigado a todos pela atenção.

1º tem que ir no menu PROJECT/REFERENCES, procurar na caixa a referencia (Microsoft ActiveX Data Objects 2.8 Library marcar e clicar em ok para adicionar esta referencia ao projeto

 

adicionar um modulo e dentro dele colocar a conexão:

 

Public cnn As New ADODB.Connection

 

agora no Form o comamdo para conectar com o BD

 

On Error GoTo erro_na_conexao
cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "BD.mdb; jet OLEDB:Database Password=senha"
cnn.CursorLocation = adUseClient
cnn.Open
Exit Sub

erro_na_conexao:
With Err
If .Number <> 0 Then
MsgBox " houve um erro na conexão com o banco de dados." & _
vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "erro na conexão"
.Number = 0
Set cnn = Nothing
End
End If
End With

 

ou pode colocar este codigo da conexão tambem num modulo e chama-lo no form load

 

Relaxa..

 

1 - Os recordsets..vc tera q alterar a declaracao deles para ADODB.Recordset.

2 - Vc não vai mais usar Openrecordset vc vai usar o Execute.

3 - A Variavel de conexao com o Banco tera de ser declarada como New Adodb.Connection

 

Blx

Alguém poderia me ajudar mais (se alguém puder é claro). Tipo como eu faço com as declarações do Banco de Dados e Tabelas e como faço para definir as variáveis (Banco de Dados e Tabelas) em cada formulário? Por favor me ajudem... preciso mostrar no meu emprego que posso fazer bom programa!!! Abaixo está o código utilizado por mim em DAO:

 

Variáveis declaradas no módulo:

 

Public dbHorto As Database
Public rstCliente As Recordset
Public rstCaixa As Recordset
Public rstProduto_Estocado As Recordset

 

Variáveis declaradas no Form:

 

Private Sub Form_Load()
 Set dbHorto = OpenDatabase(App.Path & "dbHorto.mdb")
 Set rstCliente = dbHorto.OpenRecordset("Cliente", dbOpenTable)

end sub

 

Gostaria transformar toda essa ligação que foi feita em DAO p/ ADO

Declarando abertura do Banco :

Public adoBanco      As New ADODB.Connection
Declarando abertura de tabela :

Public tblAux        As New ADODB.Recordset

 

ABERTURA DE BANCO INTERBASE

  adoBanco.CommandTimeout = 30
      adoBanco.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=" & strCaminhoDoBanco & ";UID=sysdba;password=masterkey"
      adoBanco.Open
   

ABERTURA DE BANCO ACCESS

adoBanco.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminhoDoBanco
 

ABERTURA DE TABELAS

     strSQL = ""
     strSQL = strSQL & " Select * from Clientes "
     strSQL = strSQL & "Where CodigoDoCliente=" & CDbl(txtCodigo.Text)
     If tblAux.State = adStateOpen Then tblAux.Close
     tblAux.Open strSQL, adoBanco, adOpenForwardOnly, adLockReadOnly
     If Not tblAux.EOF Then
        .... dados da tabela

     endif

     

Como te falei anteriormente, não pode esquecer da referencia