diferenças entre dao e ado ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: diferenças entre dao e ado ?

Futura

PORTO FERREIRA
SP - BRASIL

Postada em 11/04/2005 13:41 hs

todos os meus sistemas estão em dao, ocorre que estou querendo aos poucos migrar o banco de access p/ firebird, então queria entender primeiro o ADO, estou testando a abertura da conexão por uma variável global em um módulo, até ai normal, mas nos forms pensei em abrir recordsets, e também fecha-los junto com o form, para não colocar os dados em risco. Então como abrir os recordsets, e as transações sql, são iguais a dao ?

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 11/04/2005 14:30 hs

Tente assim

Dim cnn As New adodb.Connection
Dim rst as new adodb.recordset

    cnn.Mode = adModeReadWrite
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=c:db,mdb;Jet OLEDB:Database;"

cnn.Open
rst.Open "Select * from cliente where cod_cliente = 1 ", cnn, adOpenKeyset, adLockOptimistic

rst.close

cnn.close

Escrevi o codigo direto de uma verificada.

__________________________________________________________________________

Qualquer coisa post

Rochª

screech

PORTO ALEGRE
RS - BRASIL

Postada em 12/04/2005 03:24 hs

'****************************************************
'                  MÓDULO DE CONEXÃO
'                 -------------------
' 1. Declarações Gerais
' 2. Rotina de Conexão
'****************************************************

'*********************
'1. DECLARAÇÕES GERAIS
'*********************
Public Conexao As ADODB.Connection

'********************
'2. ROTINA DE CONEXÃO
'********************
Public Sub ConexaoBD()
  Set Conexao = New ADODB.Connection
  Dim Caminho As String

    'Caminho do Banco de Dados
  Caminho = "C:MeuSistemaBancodeDados.mdb"

  'Define a Localização e evento de abertura do DataBase
  Conexao.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                             "Data Source = " & Caminho

  'Permissão para Ler e Escrever registros
  Conexao.Mode = adModeReadWrite

    'Abre a Conexão
  Conexao.Open
End Sub

'************
'Usando no form
'************
No evento Load insira ConexaoBD
Para criar um Recordset basta dclará-lo: Dim MeuRecordSet as ADODB.RecordSet
Para utilizálo basta: Set MeuRecordSet = New ADODB.RecordSet
Não esqueça de liberá-lo após o uso: Set MeuRecordSet = Nothing

--------------------------------------
Screech

"Programar é arte..."

Snake

ITAJUBÁ
MG - BRASIL

Postada em 12/04/2005 10:54 hs

Visite: http://www.macoratti.net/ado.htm

sem mais,

Página(s): 1/1