Ayuda

[SYakoS]

Buenas amigos programadores en visual basic:

Lo que pasa es q me genera una aplicacion el siguiente error

error '3021' en tiempo de ejecucion:

El valor de BOF o EOF es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual

Por favor necesito ayuda urgente nose que hacer ni porque lo genera, espero su ayuda pronto que esten muy bien.

[Avellaneda]

Iniciado por SYakoS

Buenas amigos programadores en visual basic:

Lo que pasa es q me genera una aplicacion el siguiente error

error '3021' en tiempo de ejecucion:

El valor de BOF o EOF es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual

Por favor necesito ayuda urgente nose que hacer ni porque lo genera, espero su ayuda pronto que esten muy bien.

Pero... si no pones el código es casi imposible que te podamos ayudar!

[SYakoS]

Bueno hay les posteo el codigo

If Validacion.State = 1 Then Validacion.Close
Validacion.Open cadena
cadena = "INSERT into MAESTROURBANO ("
cadena = cadena & " CONSECUTIVO, CONCEPTO, ESTADO, BENEFICIARIO, PAISORIGEN,"
cadena = cadena & " PAISDESTINO, DPTOORIGEN, DPTODESTINO, CIUDADORIGEN, CIUDADDESTINO, FACTURA,"
cadena = cadena & " PUNTO, RAZONSOCIALDESTINO, TELEFONODESTINO, DETALLE, DIRECCIONDESTINO, FECHAESTADO)"
cadena = cadena & " VALUES ( " & Validacion("GUIA_urbana") & ", 'UR', 0, 520520127,"
cadena = cadena & " 1, 1, 26, " & IIf(Len(Validacion("DPTO")) = 0, 0, Validacion("DPTO")) & ", 1, " & IIf(Len(Validacion("CIUDAD")) = 0, 0, Validacion("CIUDAD")) & ", "
cadena = cadena & " 0, 0, '" & Mid(Validacion("RAZONSOCIAL"), 1, 50) & "',"
cadena = cadena & "'" & Mid(Validacion("TELEFONO"), 1, 20) & "', 'ENTREGA FACTURA ',"
cadena = cadena & "'" & Mid(Validacion("DIRECCION"), 1, 150) & "', GETDATE())"

QMovimiento.ActiveConnection = cnurbano
QMovimiento.CommandText = cadena
QMovimiento.Execute


Y el error que me genera es en la linea que aparece en rojo espero me puedan ayudar porq no encuentro solucion a este problema

[Txoco]

Qué tal?

El primer error que veo en el código es que invocas al método Open y no sabemos si en ese momento la variable cadena contiene algo y es válido.

De todas formas, el código de error significa que el recordset está vacío; para evitar el mensaje, debes, o bien comprobar la propiedad RecordCount (que en tu ejemplo seguramente te devolverá cero o -1), o bien poner una comprobación:

Código:

If Validacion.EOF Or Validacion.BOF Then
    ' No hay ningún registro activo
Else
    ' Todo va bene
End If

Si EOF (End Of ¿File? - Fin de ¿fichero?)es Verdadero, significa que el recordset apunta a la última fila del recordset (ejecutar MoveNext elevaría un error interceptable). Si BOF (Beginning of F. - Principio de lo que sea) significa que el recordset apunta al registro anterior al primero, es decir, al aire. En este caso, ejecutar MovePrevious es lo que generaría el error. Como puedes deducir, si ambos son verdaderos, es que algo pasa .

Te recomiendo la segunda forma de comprobación, ya que hay engines de bases de datos que por ODBC siempre devuelven -1 en RecordCount aunque el recordset esté poblado.

Pon siempre un mecanismo de comprobación de este tipo para ahorrarle al usuario mensajes que no va a entender, pero revisa también que la instrucción SQL se concatena correctamente y devuelve al menos una fila.

Y como consejo final, comprueba el estado del recordset así:

If Validacion.State = adStateOpen Then ...

es más legible y eficaz