En ciertos reportes debo abrir algunos archivos para obtener informacion de
ellos, pero especificamente en 1 de ellos tengo el siguiente problema,
espero y alguien pueda orientarme.
Sub Llena_Temp()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "driver={Microsoft dBase Driver
(*.dbf)};driverid'7;dbq=c:\sistemas\inv"
rs1.Open "select AJUSTE,TIPO,FECHA from AJUSTES.DBF order by AJUSTE",
cn, , , adCmdText 'Aqui marca el error.
'rs1.Open "select * from AJUSTES.DBF order by AJUSTE", cn, , , adCmdText
'Tampoco funciono de esta forma.
'rs.Open "select * from AJUSTES.DBF", cn, , , adCmdText
'Ni de esta forma.
' El resto del codigo ...
End Sub
Si AJUSTES.DBF lo sustituyo por cualquier otro archivo lo abre sin problema,
el archivo existe en el directorio, los campos existen en el archivo (y en
ese orden).
El error que me muestra es el Numero: -2147217900 y el mensaje es:
[Microsoft][ODBC dBase Driver] Index file not found.
No se a que tipo de indice se refiere.
Gracias de antemano.
Saludos.
Leer las respuestas