CONECTAR COM ACCESS VERSAO2000
Pessoal, como eu faço para que meu sistema conecte ao access 2000? Eu fiz uma vez mais não lembro.
Valeu
Valeu
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Conecta()
On Error GoTo ErroConecta
Desconecta
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "\" & "NomeDoBanco.mdb"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tabela", cnn, adOpenDynamic, adLockOptimistic
Exit Sub
ErroConecta:
MsgBox "Erro ao Conectar com o Banco de Dados:" & vbCrLf & vbCrLf & "Erro: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Atenção"
End
End Sub
Private Sub Desconecta()
On Error Resume Next
If cnn.State = adStateOpen Then
cnn.Close
Set cnn = Nothing
End If
If rs.State = adStateOpen Then
rs.Close
Set rs = Nothing
End If
End Sub
para conectar, use conecta... para desconectar (logicamente), desconecta
Dim rs As ADODB.Recordset
Private Sub Conecta()
On Error GoTo ErroConecta
Desconecta
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.jet.OLEDB.4.0; Data Source = " & App.Path & "\" & "NomeDoBanco.mdb"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tabela", cnn, adOpenDynamic, adLockOptimistic
Exit Sub
ErroConecta:
MsgBox "Erro ao Conectar com o Banco de Dados:" & vbCrLf & vbCrLf & "Erro: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Atenção"
End
End Sub
Private Sub Desconecta()
On Error Resume Next
If cnn.State = adStateOpen Then
cnn.Close
Set cnn = Nothing
End If
If rs.State = adStateOpen Then
rs.Close
Set rs = Nothing
End If
End Sub
para conectar, use conecta... para desconectar (logicamente), desconecta
kra, fazer o código para conectar com o banco de dados eu sei.
o q eu quero saber é como eu conecto com access 2000. Porque se eu conectar com o access 2000, na hora da execução do sistema ele dá um erro de versão inválida, ou seja, imcompatÃvel.
Ele só aceita a versão do access 97. Eu qeuro conectar a versão 2000.
o q eu quero saber é como eu conecto com access 2000. Porque se eu conectar com o access 2000, na hora da execução do sistema ele dá um erro de versão inválida, ou seja, imcompatÃvel.
Ele só aceita a versão do access 97. Eu qeuro conectar a versão 2000.
hummmm
vc usa ado ou dao? tá com o mdac atualizado?
vc usa ado ou dao? tá com o mdac atualizado?
normalmente eu uso ado, porém o sitema q fiz e estou mexendo está em dao?
q mdac?
q mdac?
entaum vc vai ter que usar o dao 3.6, se nu tem o a opção pra dao 3.6, aproveite pra instalar o SP6 do VB.
esse eh o link pra baixar:
http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-42a1-a4c8-39718c7e381d&DisplayLang=en
valew!!!
esse eh o link pra baixar:
http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-42a1-a4c8-39718c7e381d&DisplayLang=en
valew!!!
Rafa-Martim
Eu não entendi, como o Jean Jedson informou é só alterar o PROVIDER
Para versões anteriores a 2000 o JET seria o 3.5, como você está usando a versão 2000 é só alterar de 3.5 para 4.0.
Teste e veja se resolveu.
[s92]
Eu não entendi, como o Jean Jedson informou é só alterar o PROVIDER
Provider = Microsoft.jet.OLEDB.4.0Para versões anteriores a 2000 o JET seria o 3.5, como você está usando a versão 2000 é só alterar de 3.5 para 4.0.
Teste e veja se resolveu.
[s92]
pessoal estu usando agora o dao 3.6 .
a minha conexao é dessa forma:
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Sistema_Metta_Shering2000.mdb")
Set rs = db.OpenRecordset("brick", dbOpenTable)
só q agora eu não consigo abrir nenhum formulário: ele dáo seguinte erro:
Method or data member no found, ou seja, método ou dados não encontrado.
pq?
a minha conexao é dessa forma:
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Sistema_Metta_Shering2000.mdb")
Set rs = db.OpenRecordset("brick", dbOpenTable)
só q agora eu não consigo abrir nenhum formulário: ele dáo seguinte erro:
Method or data member no found, ou seja, método ou dados não encontrado.
pq?
só q KPELLAJR olha acima como minha conexão é feita.
o erro dá nesse linha: Set rs = db.OpenRecordset("brick", dbOpenTable) no OpenRecordset
pq?
o erro dá nesse linha: Set rs = db.OpenRecordset("brick", dbOpenTable) no OpenRecordset
pq?
então galera quem pode me ajudar?
a forma de conexão q faço é assim:
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Sistema_Metta_Shering2000.mdb")
Set rs = db.OpenRecordset("brick", dbOpenTable)
a forma de conexão q faço é assim:
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Sistema_Metta_Shering2000.mdb")
Set rs = db.OpenRecordset("brick", dbOpenTable)
AÃ RAFA, vc já tentou deste jeito???
Dim ws As Workspace
Dim query As String
Dim db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Banco.mdb", False, False)
query = "Select * From TABELA order by Campo"
Set vvar = db.OpenRecordset(query)
Tente assim e veja se resolve, vlw ???
Abraço.
Dim ws As Workspace
Dim query As String
Dim db As Database
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\Banco.mdb", False, False)
query = "Select * From TABELA order by Campo"
Set vvar = db.OpenRecordset(query)
Tente assim e veja se resolve, vlw ???
Abraço.
Tópico encerrado , respostas não são mais permitidas