ACCES XP - REFERENCIA

USUARIO.EXCLUIDOS 19/04/2004 10:37:55
#21284
Ola galera, Qual referencia eu uso para trabalhar com ado - acces xp
Muito obrigado
USUARIO.EXCLUIDOS 19/04/2004 10:41:47
#21286 Resposta escolhida
Acho que o nome é esse...

"Microsoft Activex Data Objects 2.7 library"
USUARIO.EXCLUIDOS 19/04/2004 12:45:32
#21332
tenta usar essa function



Public Function ConectaBD() As Boolean
    On Error GoTo OpenErr

    Dim MSDatabase as String

    Set CN2 = New ADODB.Connection

    MSDatabase = "Caminho do BD"
    CN2.CursorLocation = adUseClient
    CN2.Provider = "Microsoft.Jet.OLEDB.4.0"
    CN2.Open MSDatabase, Admin
    DBConnect = True
    Exit Function

OpenErr:

    MsgBox "Erro Abrindo " & MSDatabase & vbNewLine & Err.Description, vbCritical, "Open Database Error"
    DBConnect = False


End Function



depois vc pode usar assim:


ConectaBD
rs.Open "tabela", conexao, 3



blz...
Tópico encerrado , respostas não são mais permitidas
Voltar