Como abrir Dbf con ADO

07/11/2006 - 20:17 por Alr | Informe spam
Saludos al grupo.

Hace mucho tiempo pregunte en este foro como abrir archivos dbf con ADO, y
me dieron la respuesta. El caso es que en aquel tiempo hice un pequeño
reporte en excel que accesaba dbf's, sin embargo ahora que necesito abrir
otros archivos dbf con el mismo codigo (incluso el reporte que hice ya no
corre en mi pc), me da un error: Run-time error '- 2147217900 (80040e14)':
[Microsoft][ODBC dBase Driver] Index not found."

El codigo es el siguiente:

Sub x()
Dim l_Cnt As New ADODB.Connection
Dim l_Rst As New ADODB.Recordset
Dim l_Scn As String
l_Scn = "select CVECTA, DESCRI from POLCUE.DBF order by CVECTA"
l_Cnt.Open "driver={Microsoft dBase Driver
(*.dbf)};driverid'7;dbq=C:\Sistemas\Pol\Dat"
l_Rst.Open l_Scn, l_Cnt, adOpenDynamic, adLockOptimistic, adCmdText
If Not l_Rst.EOF Then
demas codigo
Endif
End Sub
Pero al llegar a -> l_Rst.Open l_Scn, l_Cnt, adOpenDynamic,
adLockOptimistic, adCmdText
sale este error, y no tengo ni idea de que pueda ser, ya busque en internet,
sin embargo solo encontre este error para conecciones a SQL.

Espero y alguien me pudiera orientar.

Gracias de antemano.
 

Leer las respuestas

#1 Héctor Miguel
08/11/2006 - 08:34 | Informe spam
hola, Alr !

Hace mucho tiempo pregunte en este foro como abrir archivos dbf con ADO, y me dieron la respuesta.
El caso es que en aquel tiempo hice un peque#o reporte en excel que accesaba dbf's
sin embargo ahora que necesito abrir otros archivos dbf con el mismo codigo (incluso el reporte que hice ya no corre en mi pc)
me da un error: Run-time error '- 2147217900 (80040e14)': [Microsoft][ODBC dBase Driver] Index not found."



1) [hasta donde se]... 'basicamente'... los errores'-2147xxxxx'... u '800xxxxx'... significan que...
-> ocurrio una llamada a un 'proveedor/servidor/objeto/...' que NO estaba 'disponible/visible/...'
[al menos en 'ese' momento]

2) [si no recuerdo mal]... en aquella ocasion se corrigio al actualizar el componente MDAC a la version mas reciente -?-
[incluso se comentaba la 'posibilidad' de que se tratara de archivos de VFP que requieren componentes adicionales] -?-
y el mensaje que recibias [en aquella ocasion] era: -> [Microsoft][ODBC dBase Driver] Index file not found [...] <= nota el FILE -?-

comentas que -otros- cambios pudiera haber desde aquella ocasion ?
saludos,
hector.

__ el codigo expuesto __
Sub x()
Dim l_Cnt As New ADODB.Connection
Dim l_Rst As New ADODB.Recordset
Dim l_Scn As String
l_Scn = "select CVECTA, DESCRI from POLCUE.DBF order by CVECTA"
l_Cnt.Open "driver={Microsoft dBase Driver (*.dbf)};driverid'7;dbq=C:\Sistemas\Pol\Dat"
l_Rst.Open l_Scn, l_Cnt, adOpenDynamic, adLockOptimistic, adCmdText
If Not l_Rst.EOF Then
demas codigo
Endif
End Sub
Pero al llegar a -> l_Rst.Open l_Scn, l_Cnt, adOpenDynamic, adLockOptimistic, adCmdText
... error, y no tengo ni idea de que pueda ser... busque en internet... solo encontre este error para conecciones a SQL.

Preguntas similares