Error al abrir Recordset
Hola espero que puedas ayudarme.
Quiero abrir una base de datos (*.dbf)pero al intentar abrir el recordset me da error de converión de datos, este es el código que tengo:
Public Sub ejecutar ()
Dim basedatos As Database
Dim tdfVinculado As TableDef
Dim rs As Recordset
Set basedatos = OpenDatabase("d:\", dbDriverNoPrompt, False, "dBase IV;")
Set tdfVinculado = basedatos.CreateTableDef("bases.dbf")
tdfVinculado.SourceTableName = "bases"
Set rs = tdfVinculado.OpenRecordset("bases")
end sub
Muchas gracias de antemano
Quiero abrir una base de datos (*.dbf)pero al intentar abrir el recordset me da error de converión de datos, este es el código que tengo:
Public Sub ejecutar ()
Dim basedatos As Database
Dim tdfVinculado As TableDef
Dim rs As Recordset
Set basedatos = OpenDatabase("d:\", dbDriverNoPrompt, False, "dBase IV;")
Set tdfVinculado = basedatos.CreateTableDef("bases.dbf")
tdfVinculado.SourceTableName = "bases"
Set rs = tdfVinculado.OpenRecordset("bases")
end sub
Muchas gracias de antemano
1 respuesta
Respuesta de orande
1