Visual Basic - abrir DBF´s

Necesito abrir un fichero DBF desde VISUAL BASIC 5.0
No quiero utilizar el CONTROL DATA (si es posible)
Yo pongo :
dim areadetrabajo as workspace
dim basededatos as database

set areadetrabajo = dbengine.workspaces(0)
set basededatos = areadetrabajo.opendatabase("mifichero.dbf",true,true, "dbaseIII;")

y no funciona, que es lo hago mal. Gracias

Hola Manuel,

La sintaxis es un poco diferente para abrir bases de datos DBF. El primer parametro es el directorio en donde se encuentra el DBF, y el ultimo debe especificar un valor string constante para cada version de DBF. Por ejemplo dBASE IV.

Prueba este codigo. Abre un DBF llamado dbf.dbf ubicado en el directorio mis documentos.


Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("c:\mis documentos", False, False, "dBASE IV;")
Set rs = db.OpenRecordset("dbf", dbOpenSnapshot)