El valor de BOF o EOF es True, o el actual registro se eliminó

[0zK4Rr]

Buenas, tengo un problema.

Tengo unas aplicaciones en VB6+SQL2000 que hasta hace poco estuvieron funcionando OK.

Recientemente se tuvo que cambiar el servidor SQL por lo que reinstalaron las BD.
El problema es que en gran parte de las operaciones (generalmente al grabar algo) me sale ese error:

El valor de BOF o EOF es True, o el actual registro se eliminó...



Luego la aplicacion se cierra. Al ingresar nuevamente veo que el registro si fue guardado, el problema es que siempre me sale esa ventana de error.

Pienso que el problema esté por el SQL o alguna configuracion que falta, ya que las aplicaciones no han sido modificadas, y como mencioné, antes de la migracion de sql funcionaban bien.


Otra cosa, no solo pasa en un programa, sino en varios sistemas que tengo.

[flaviovich]

Puedes mostrarnos parte del codigo donde ocurre el error?

[0zK4Rr]

Iniciado por flaviovich

Puedes mostrarnos parte del codigo donde ocurre el error?

Haciendo debug, llego hasta aqui, y luego salta el error

Código:

Sub Guardar()
    On Error GoTo ErrUpdate

    If fg(0).FixedRows = fg(0).Rows Then
        MsgBox "No hay datos para iniciar el proceso.", vbExclamation
        Exit Sub
    End If
    
    For r = fg(0).FixedRows To fg(0).Rows - 1
        lID = fg(0).Cell(flexcpText, r, 0)
        lItem = fg(0).Cell(flexcpText, r, 15)
        lFecha = IIf(fg(0).Cell(flexcpText, r, 9) = Empty, "Null", "'" & fg(0).Cell(flexcpText, r, 9) & "'")
        DBconex.Execute "Update BDLogistica..Pagoefectivo set Fecha=" & lFecha & ",hora='" & fg(0).Cell(flexcpText, r, 10) & "',agencia='" & fg(0).Cell(flexcpText, r, 11) & _
        "',total=" & Format(fg(0).Cell(flexcpText, r, 12), forImporte) & ",ctacte='" & fg(0).Cell(flexcpText, r, 13) & "',observ='" & fg(0).Cell(flexcpText, r, 14) & "' where id=" & lID & " and item=" & lItem
        
    Next
    Call Me.Datos
    
    On Error GoTo 0
        If Err.Number = 0 Then MsgBox Func_Error(50010), vbExclamation
    Exit Sub
ErrUpdate:
  MsgBox Err.Description, vbCritical
End Sub

[flaviovich]

En que linea sale el error?
Has verificado que valores tienes en ese momento?

[0zK4Rr]

Cuando presiono un boton GUARDAR, llega hasta la op2 y luego dispara el error. al final si llega a completar el registro, pero siempre me sale ese error.

[flaviovich]

Has probado ejecutar tu update desde el Analizador de consultas?
Si dices que si actualiza, entonces el problema debe estar en tu procedimiento Datos.
Tienes que mostrar la linea exacta donde sale el error.

[0zK4Rr]

Iniciado por flaviovich

Has probado ejecutar tu update desde el Analizador de consultas?
Si dices que si actualiza, entonces el problema debe estar en tu procedimiento Datos.
Tienes que mostrar la linea exacta donde sale el error.

Sale en esta parte

If Err.Number = 0 Then MsgBox Func_Error(50010), vbExclamation


(mas arriba está el codigo completo y donde está ubicado esta linea)

[flaviovich]

que hace la funcion Func_Error?

[-rommel_]

Normalmente ese Error te sale cuando dice ah alcanzado el Inicio-1 o el Final+1 de los Registros de la consulta... quitale todo el procedimiento de rror y veras que tu error esta en la linea QUE TE SEÑALO ABAJO... El codigo dejalo de esta manera:

Código vb:

Sub Guardar()
    If fg(0).FixedRows = fg(0).Rows Then
        MsgBox "No hay datos para iniciar el proceso.", vbExclamation
        Exit Sub
    End If
    
    For r = fg(0).FixedRows To fg(0).Rows - 1
        lID = fg(0).Cell(flexcpText, r, 0)
        lItem = fg(0).Cell(flexcpText, r, 15)
        lFecha = IIf(fg(0).Cell(flexcpText, r, 9) = Empty, "Null", "'" & fg(0).Cell(flexcpText, r, 9) & "'")
         
         '''''' AQUI TE SALE EL ERROR - Verifica los valor que envias al Execute...
        DBconex.Execute "Update BDLogistica..Pagoefectivo set Fecha=" & lFecha & ",hora='" & fg(0).Cell(flexcpText, r, 10) & "',agencia='" & fg(0).Cell(flexcpText, r, 11) & _
        "',total=" & Format(fg(0).Cell(flexcpText, r, 12), forImporte) & ",ctacte='" & fg(0).Cell(flexcpText, r, 13) & "',observ='" & fg(0).Cell(flexcpText, r, 14) & "' where id=" & lID & " and item=" & lItem        
         '''''' 
    Next
    Call Me.Datos
  
End Sub
 

O de lo contrario te sale el Error cuando haces... un NEXT mas al For... de lugar del FOR... Trabaja con do While not EOF(Componente)... si me entiende???