Erro Ao Acessar Access 2000

[fafadinhu]

Consigo fazer consulta e alterar dados de um banco de dados do ACCESS 2000 e 2003, consiguindo normalmente na base de dados do 97.

Se alguém suber o motivos..

estou usando da seguinte forma para carregar o base de dados.

que abre normalmente se o banco de dados control.mdb for do access 97

sabendo que ele está situado em uma pasta na rede.

Tentei tambem colocando local na Raiz da minha unidade deu o mesmo erro..

Private Sub Form_Load()

Set db = OpenDatabase("O:\Planilhas\control.mdb")

Set tb = db.OpenRecordset("CONTROLE", dbOpenTable)

End Sub

abaixo o erro que dá quando carrega o FORMULÁRIO.

[Graymalkin]

O problema é que você está utilizando DAO, que por padrão só suporta até o Access 97. Já teve gente aqui que instalou uma atualização e pôde abrir novas versões com o próprio DAO (experimente fazer uma busca no fórum), mas eu recomendaria a utilização do ADO.

Abraços,

Graymalkin

[fafadinhu]

O problema é que você está utilizando DAO, que por padrão só suporta até o Access 97. Já teve gente aqui que instalou uma atualização e pôde abrir novas versões com o próprio DAO (experimente fazer uma busca no fórum), mas eu recomendaria a utilização do ADO.

Abraços,

Graymalkin

Atualizei a vesão com o Service Pack 6, e continua dando o memo erro..

Não consigo axar o erro..

[mariozneto]

Atualizei a vesão com o Service Pack 6, e continua dando o memo erro..

Não consigo axar o erro..

Amigo, como nosso amigo Graymalkin disse, ADO é bem melhor para trabalhar com esta versão do banco de dados.

Veja este exemplo:

'Abre um Banco de Dados com ADO
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\seu_bancot_dados.MDB"
  cnn.Open

  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open "SELECT * FROM Tabela", cnn, adOpenDynamic, adLockOptimistic

  carrega
End Sub

Public Sub carrega()
    Text1.Text = "" & rs(0)
    Text2.Text = "" & rs(1)
    Text3.Text = "" & rs(2)
End Sub

Public Sub limpa()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""

    Text1.Locked = False
    Text2.Locked = False
    Text3.Locked = False
End Sub

Private Sub CmdAdicionar_Click()
    limpa
    rs.AddNew
    text1.setfocus
End Sub

Qualquer dúvida que você tenha usando este código, pode ter certeza que eu lhe ajudo!!

Falow... T+