DAO FUNCIONA COM O ACCESS 2000 ???
olá pessoal...
o DAO fonuncia com o Access 2000?, não estou conseguindo fazer a conexão
se alguem puder me ajudar....
estou fazendo isso :
Set BD = OpenDatabase(App.Path & "\Banco.mdb")
mas não está funcionando !!!
o banco eu criei diretamente no access 2000...
pessoal ? dá pra criar relacionamentos no Visual Data Manager do VB ???
Desde já agradeço muito...
que Deus ilumine cada vez mais vocês....
o DAO fonuncia com o Access 2000?, não estou conseguindo fazer a conexão
se alguem puder me ajudar....
estou fazendo isso :
Set BD = OpenDatabase(App.Path & "\Banco.mdb")
mas não está funcionando !!!
o banco eu criei diretamente no access 2000...
pessoal ? dá pra criar relacionamentos no Visual Data Manager do VB ???
Desde já agradeço muito...
que Deus ilumine cada vez mais vocês....
Vc fez a referencia ao DAO.. em PROJECT / REFERENCES?
Se eu não me engano.. DAO 3.5 pra access97 e 3.6 pra 2000...
Se eu não me engano.. DAO 3.5 pra access97 e 3.6 pra 2000...
Olá amigo,
Eu faço assim com Access 2000:
Public BANCO As New ADODB.Connection
Public TABELA As New ADODB.Recordset
BANCO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Banco.mdb;"
TABELA.CursorLocation = adUseClient
TABELA.Open "SELECT * FROM Nome da Tabela", BANCO, adOpenKeyset, adLockOptimistic, adCmdText
Veja se serve pra vc
Pierre
realmente eu não tinha feito a referencia..(nem sabia !)
mas agora dá um erro assim:
Type mismatch
no recordset, eu declarei ela no Declarations
Set tabClientes = BD.OpenRecordset("select * from Clientes order by codigo")
o que será ???
mas agora dá um erro assim:
Type mismatch
no recordset, eu declarei ela no Declarations
Set tabClientes = BD.OpenRecordset("select * from Clientes order by codigo")
o que será ???
Tá ok! Você esta começando a APRENDER DAO.. .sugiro que você faça o seguinte!!!
Desmarque a referencia que vc fez... retire todas as referencias ao DAO...q vc marcou...
é melhor você aprender VIA ADO...
Faça referência ao "Microsoft ActiveX Data Objects 2.1 Library"
Para conectar faça assim
Entendeu..... assim vai ser mais prático... DAO é passado!!! o ado é bem mais FLEXà ÂVEL.. e PRà ÂTICO...
Desmarque a referencia que vc fez... retire todas as referencias ao DAO...q vc marcou...
é melhor você aprender VIA ADO...
Faça referência ao "Microsoft ActiveX Data Objects 2.1 Library"
Para conectar faça assim
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
'Abre a conexão com acesso 2000
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Banco.mdb;"
sql = "select * from Clientes order by codigo"
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
TextNome = rst![nomedocliente]
TextEndereco = rst![endereco]
Entendeu..... assim vai ser mais prático... DAO é passado!!! o ado é bem mais FLEXà ÂVEL.. e PRà ÂTICO...
Tópico encerrado , respostas não são mais permitidas