Postada em 26/11/2004 12:37 hs
uso uma rotina para gerar um dbf para um sistema clipper do escritório de contabilidade. na minha maquina de mesa, gera normal, agora no notebook, da o erro, "ERRO INESPERADO CAUSADO PELO BANCO DE DADOS EXTERNO", sendo que nas duas maquinas estou com a mesma versão de windows xp. o que pode estar faltando em uma das maquinas, para dar este erro. abaixo como abro o dbf:
Dim dbdbf As Database
Dim tbdbf As Recordset
Set dbdbf = OpenDatabase(App.Path, False, False, "dBase IV;")
Set tbdbf = dbdbf.OpenRecordset("dbf_71.dbf", dbOpenTable, False)
JA TENTEI dbase III, mas da o mesmo erro, lembrando que na outra maquina vai normal
|
