Error al mostrar datos de una tabla
Publicado por aldo (111 intervenciones) el 31/01/2007 15:32:27
Hola...
tengo en el modulo bas la siguiente conexion...
Global dbAccess As New Connection
Sub AbrirBase()
On Error GoTo ControlError
Set dbAccess = New Connection
dbAccess.Provider = "Microsoft.Jet.OLEDB.4.0"
dbAccess.ConnectionString = "Data Source=c:\user2\audkin"
dbAccess.Properties("Extended Properties") = "dBASE 5.0;"
dbAccess.Open
Exit Sub
ControlError:
Select Case Err.Number
Case -2147467259
MsgBox "Compruebe que exista el archivo de datos .mdb o que esté ubicado en la carpeta correspondiente.", vbCritical
End
Case Else
MsgBox "Error : " & Err.Number & ". " & Err.Description ' Evalúa el número de error.
End
End Select
Exit Sub
Resume
End Sub
y el formulario donde creo el recordset es el siguiente
Dim rsAyu As ADODB.Recordset
Set rsAyu = New Recordset
rsAyu.Open "select * from prestad where numero<>0 order by numero", dbAccess, adOpenStatic, adLockReadOnly
me tira dos errores distintos, a veces uno y otras veces el otro...
los errores son los sig.
"Error: -214746 7259. El sistema operativo no admite la secuencia de ordenacion seleccionada."
"Error: -2147217904. No se han especificado valores para algunos de los parametros requeridos"
ahora, no tengo ni idea porque a veces me sale uno y en otras ocaciones me sale el otro.
Solo quiero tomar una tabla en dbf y mostrarlos en una grilla con msflexgrid.
si alguien me puede ayudar, lo agradecere.
saludos
Aldo
tengo en el modulo bas la siguiente conexion...
Global dbAccess As New Connection
Sub AbrirBase()
On Error GoTo ControlError
Set dbAccess = New Connection
dbAccess.Provider = "Microsoft.Jet.OLEDB.4.0"
dbAccess.ConnectionString = "Data Source=c:\user2\audkin"
dbAccess.Properties("Extended Properties") = "dBASE 5.0;"
dbAccess.Open
Exit Sub
ControlError:
Select Case Err.Number
Case -2147467259
MsgBox "Compruebe que exista el archivo de datos .mdb o que esté ubicado en la carpeta correspondiente.", vbCritical
End
Case Else
MsgBox "Error : " & Err.Number & ". " & Err.Description ' Evalúa el número de error.
End
End Select
Exit Sub
Resume
End Sub
y el formulario donde creo el recordset es el siguiente
Dim rsAyu As ADODB.Recordset
Set rsAyu = New Recordset
rsAyu.Open "select * from prestad where numero<>0 order by numero", dbAccess, adOpenStatic, adLockReadOnly
me tira dos errores distintos, a veces uno y otras veces el otro...
los errores son los sig.
"Error: -214746 7259. El sistema operativo no admite la secuencia de ordenacion seleccionada."
"Error: -2147217904. No se han especificado valores para algunos de los parametros requeridos"
ahora, no tengo ni idea porque a veces me sale uno y en otras ocaciones me sale el otro.
Solo quiero tomar una tabla en dbf y mostrarlos en una grilla con msflexgrid.
si alguien me puede ayudar, lo agradecere.
saludos
Aldo
Valora esta pregunta


0