O ERRO ENCONTRADO FOI O COULDN'T NO FIND INSTALLABE ISAM

ja instalei o ISAM (pelo cd do VB)
ja abaxei a dll xbs200.dll e salvei no c:\windows\system
Estou usando a Referência DAO 3.51

ABAIXO O CODIGO :

Private Sub Cmdtestar_click()
  
   Dim dbname As DAO.Database
   Dim tbname As DAO.Recordset
   Dim a As Long
  
   Set dbname = OpenDatabase("C:\cadf003.dbf", False, False, "dbaseIV;")
   Set tbname = dbname.OpenRecordset("duplicat", dbOpenTable, dbReadOnly)

    If Not tbname.EOF Then
        tbname.MoveLast
        tbname.MoveFirst
    End If
     
      MsgBox " Efetuado com Sucesso!!"

End Sub

 

NADA DISSO FUNCIONA POR FAVOR ME AJUDEM

 

Marcel, porque vc está colocando a extensão "dbf", na pasta onde deve estar o arquivo

"duplicat". O nome da pasta é esse mesmo. Será que o erro não esta aí. Eu não coloco extensão na pasta. Verifique

Vila

 

o problema e quando eu compilo o programa ele nao passa da linha :

"Set dbname = OpenDatabase("C:\cadf003.dbf", False, False, "dbaseIV;")"

entendeu amigo ??

 

Set dbname = OpenDatabase("C:\", False, False, "dbaseIV;")

 

no caso de abrir os arquivos dbase, vc deve informar somente a pasta onde

estão localizados os arquivos.

 

o nome do banco vc informa na sql

 

Roberto

VVVVVAAAAALLLLLEEUUUUU ROBERTO

 

SUA RESPOSTA ESTA CORRETA !!!!!!!!!!

 

MUITO OBRIGADO PELA FORCA

que bom que funcionou

 

eu respondi este post antes de olhar o meu email

posso desconsiderar o seu email ?

 

Roberto