DBF

USUARIO.EXCLUIDOS 19/04/2007 13:42:31
#212742
Ola, tenho um banco de dados em dbf.
Criei o banco com os campos nome, senha
a tabela esta salva com o nome de tbusuari e o banco tb.
no modulo coloquei o seguinte codigo.

Global linhacomand As String 'Variavel na qual define a linha de comando
Global ws As Workspace 'Variavel para rede
Global db As Database 'Variavel para trabalhar com banco de dados
Global tbusu As Recordset 'Variavel para trabalhar com a tabela registro

Function abreusuario()
'abre a tabela vendas
linhacomand = App.Path & "\bdados\TBUSUARI.DBF"
Set ws = DBEngine.CreateWorkspace("newworkspace", "Admin", "", "dbusejet")
Set db = ws.OpenDatabase(linhacomand, False, False, ";pwd=12345")
Set tbusu = DBvend.OpenRecordset("TBUsuari", dbOpenTable, dbSeeChanges, dbPessimistic)
End Function



Só que dá o seguinte erro:
Run-time error '3343':
Unrecognized database format 'C:\VN\BDados\TBUSUARI.DBF'

O que faço?, o que esta errado?
Desde já agradeço.
USUARIO.EXCLUIDOS 19/04/2007 15:51:44
#212804
Tenta isso...

Adicione a referência:
Microsoft ADO Ext. 2.8 for dll and security

na function...

Set Dbfs = OpenDatabase(Dir1.Path, False, False, "DBASE III")
Set DBFBANCO = Dbfs.OpenRecordset(nArquivo, dbOpenTable)
USUARIO.EXCLUIDOS 19/04/2007 16:30:59
#212818
AGORA MUDOU O ERRO
USUARIO.EXCLUIDOS 19/04/2007 16:57:15
#212826
O arquivo DBF não se encontra no mesmo diretorio de criação do sistema, app.path significa diretorio raiz.
Tópico encerrado , respostas não são mais permitidas
Voltar