Foros del web, para los que viven de bits

Pulgaza · 18-oct-2007, 11:23

Que signifia este error

Error '-2147467259 (80004005)' en tiempo de ejecucion:
El proveedor de datos u otros servicios devolvio un estado E_FAIL

aqui les dejo como hago la conexion, no creo que sea eso, por que se conecta sin ningun problema.

dsnfox="DSN=Visual FoxPro Database;UID=;SourceDB=C:\Datos\control.dbc;Source Type=DBC;Exclusive=No;BackgroundFetch=Sí;Collate=M achine;Null=No;Deleted=No;"
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open dsnfox

aqui esta el codigo, pero si hay un error en la bd, me sale el mensaje "La base examen.dbf devuelve EOF"

Set myset = New ADODB.Recordset
sql = "SELECT MAX(noexam) maximo FROM examen;"
myset.Open sql, db, adOpenDynamic, adLockOptimistic
With myset
If Not .EOF Then
newid = CLng(!maximo)
reg.noexam(i) = newid + 1
Else
MsgBox "La base examen.dbf devuelve EOF"
End If
.Close
End With
Set myset = Nothing

habiendo data me decia que myset.EOF=True ahora bien este es el codigo optimo, pero para ver cuela era el problema tube que hacer esto

Set myset = New ADODB.Recordset
sql = "SELECT * FROM examen;"
myset.Open sql, db, adOpenDynamic, adLockOptimistic
With myset
.MoveLast
.Close
End With
Set myset = Nothing

aqui me devuelve el estado E_FAIL a que se debe esto ?

aavg · 18-oct-2007, 14:30

Si ya cerraste tu recordset no es necesario el:

Código:

'Set myset = Nothing

Intenta comentando esa linea a ver si se soluciona.

Otra cosa que podrias hacer antes de consultar busca si:

Código:

if myset.RecordCount > 0 then
   myset.Movefirst
End if

Pulgaza · 19-oct-2007, 11:09

Me sigue dando el error, se que tiene que ver exactamente con la tabla, no es la conexion, por que si fuese asi, me fallaria todo el programa, no es el comando de SQL MAX por que lo he usado antes y esta bien formulado, pregunto la solucion de todo esto es borrando los registros mas viejos de la tabla, si antes no lo mencione, uso dBase

aavg · 19-oct-2007, 11:29

Te esta regresando datos en el recordset??

Verifica

Código:

myset.RecordCount > 0

Despues de que hayas abierto el recordset con los datos de tu tabla

Código:

myset.Open sql, db, adOpenDynamic, adLockOptimistic

Pulgaza · 19-oct-2007, 12:26

Bueno, ya solucione el problema, no era cuestion de codigo en Visual Basic, era que faltaba una ruta de ODBC SQL Server nunk habia visto eso pero bueno, gracias de todos modos ^^

18-oct-2007, 11:23	#1 (permalink)
Pulgaza Fecha de Ingreso: octubre-2007 Mensajes: 10	Estado E_Fail Que signifia este error Error '-2147467259 (80004005)' en tiempo de ejecucion: El proveedor de datos u otros servicios devolvio un estado E_FAIL aqui les dejo como hago la conexion, no creo que sea eso, por que se conecta sin ningun problema. dsnfox="DSN=Visual FoxPro Database;UID=;SourceDB=C:\Datos\control.dbc;Source Type=DBC;Exclusive=No;BackgroundFetch=Sí;Collate=M achine;Null=No;Deleted=No;" Set db = New ADODB.Connection db.CursorLocation = adUseClient db.Open dsnfox aqui esta el codigo, pero si hay un error en la bd, me sale el mensaje "La base examen.dbf devuelve EOF" Set myset = New ADODB.Recordset sql = "SELECT MAX(noexam) maximo FROM examen;" myset.Open sql, db, adOpenDynamic, adLockOptimistic With myset If Not .EOF Then newid = CLng(!maximo) reg.noexam(i) = newid + 1 Else MsgBox "La base examen.dbf devuelve EOF" End If .Close End With Set myset = Nothing habiendo data me decia que myset.EOF=True ahora bien este es el codigo optimo, pero para ver cuela era el problema tube que hacer esto Set myset = New ADODB.Recordset sql = "SELECT * FROM examen;" myset.Open sql, db, adOpenDynamic, adLockOptimistic With myset .MoveLast .Close End With Set myset = Nothing aqui me devuelve el estado E_FAIL a que se debe esto ?

18-oct-2007, 14:30	#2 (permalink)
aavg Fecha de Ingreso: noviembre-2002 Ubicación: Morelia México Mensajes: 356	Re: Estado E_Fail Si ya cerraste tu recordset no es necesario el: Código: 'Set myset = Nothing Intenta comentando esa linea a ver si se soluciona. Otra cosa que podrias hacer antes de consultar busca si: Código: if myset.RecordCount > 0 then myset.Movefirst End if __________________ Abraham Velasco Usuario # 516 en los Foros del Web. El hombre no vale por lo que sabe, sino por lo que transmite C'est parce qu'il y a un Dieu que nous sommes libres

19-oct-2007, 11:09	#3 (permalink)
Pulgaza Fecha de Ingreso: octubre-2007 Mensajes: 10	Re: Estado E_Fail Me sigue dando el error, se que tiene que ver exactamente con la tabla, no es la conexion, por que si fuese asi, me fallaria todo el programa, no es el comando de SQL MAX por que lo he usado antes y esta bien formulado, pregunto la solucion de todo esto es borrando los registros mas viejos de la tabla, si antes no lo mencione, uso dBase

19-oct-2007, 11:29	#4 (permalink)
aavg Fecha de Ingreso: noviembre-2002 Ubicación: Morelia México Mensajes: 356	Re: Estado E_Fail Te esta regresando datos en el recordset?? Verifica Código: myset.RecordCount > 0 Despues de que hayas abierto el recordset con los datos de tu tabla Código: myset.Open sql, db, adOpenDynamic, adLockOptimistic __________________ Abraham Velasco Usuario # 516 en los Foros del Web. El hombre no vale por lo que sabe, sino por lo que transmite C'est parce qu'il y a un Dieu que nous sommes libres

19-oct-2007, 12:26	#5 (permalink)
Pulgaza Fecha de Ingreso: octubre-2007 Mensajes: 10	Re: Estado E_Fail Bueno, ya solucione el problema, no era cuestion de codigo en Visual Basic, era que faltaba una ruta de ODBC SQL Server nunk habia visto eso pero bueno, gracias de todos modos ^^

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado