eu coloquei um objeto data no meu formulario e coloquei-o o databasename em propriedades como "c:programacaocontrole.mdb" pq quando eu ponho ele pra rodar da a msg "unrecognizer database format c:programacaocontrole.mdb"

o que eu faço??? me ajudem é um trabalho pra facu

vc deve ter esquecido da barra....: c:programacaocontrole.mdb

 

Mas eu recomento vc usar o app.Path

 

cabei de ver....a barra some quando postada aqui....

bom só pra entender.....vc não consegue rodar o programa ou não tá conseguindo abrir o banco de dados?

Bom vou dar uma adiantada, não sei se realmente isso que vc prescisa mas como eu tô indo embora já vou deixar postado...

 

No General Declarations:

'Dimensiono 2 variaveis
Dim BancoDeDados As Database
Dim Tabela As Recordset

---------------------------------------------------------------------------------
Private Sub Form_Load()

Set BancoDeDados = OpenDatabase(App.Path & "programacaocontrole.mdb")
Set Tabela = BancoDeDados.OpenRecordset("Tabela", dbOpenTable)

End Sub

---------------------------------------------------------------------------------
'No lugar da variável "Tabela" vc coloca o nome da sua tabela dentro do banco de dados,se tiver mais de 1'ma tabela vc vai ter que dimensionar (Dim) as outras tb e dar um Set nas mesmas tb ex:

 

'No General
Dim Tabela as Recordset
Dim Tabela2 as Recordset
Dim Tabela3 as Recordset

'No Form_Load
Set BancoDeDados = OpenDatabase(App.Path & "programacaocontrole.mdb")
Set Tabela = BancoDeDados.OpenRecordset("Tabela", dbOpenTable)
Set Tabela2 = BancoDeDados.OpenRecordset("Tabela2", dbOpenTable)
Set Tabela3 = BancoDeDados.OpenRecordset("Tabela3", dbOpenTable)

 

Não se esqueça que vc vai ter que inserir o objeto Data (DAO) pra fazer essa conexão, não é necessário configurar o objeto em suas propriedades, pra falar a verdade só pelo fato de vc inserir o objeto Data já vai funfar, vc pode até mesmo apagar ele depois de colocar o código....

 

qual versão do access vc está usando ?

eu acho que é o 2000

o problema é a versão do ADO ou DAO

 

Roberto

 

Valeu cara, valeu mesmo pela ajuda, mas vê só, ta dando nome invalido

"Set BancoDeDados = OpenDatabase(App.Path & "c:programacaocontrole.mdb")
Set clientes = BancoDeDados.OpenRecordset("clientes", dbOpenTable)"

e tb ja tirei o "c:",o que mais eu faço?? e tb ja coloquei o (DAO)objeto data outra pergunta como faço consulta se não for por esse objeto?

e o meu office é o 2000 mesmoe o vb é 6.0.

 

valeu!!!!

 

 

a versão do DAO é a 3.6 ?

somente essa versão consegue trabalhar com o access 2000

 

Roberto