Programación General > Visual Basic 6.0 e inferiores

 Re: Alguien puede mirar este codigo

(1/2) > >>

cristy:
Hola tengo es codigo para eliminar unos registro de un control de datos adodc pero cae en un loop infinito


 elimino = 0
        bdgeo.UserName = st_login
        bdgeo.Password = st_passw
        bdgeo.ConnectionString = Conectar
        bdgeo.RecordSource = "SELECT * FROM sondajes.t_identi WHERE yacimiento=1 AND codlabor='" & clabor_del & "'"
        bdgeo.Refresh
        If bdgeo.Recordset.RecordCount > 0 Then
            Do Until bdgeo.Recordset.EOF
                bdgeo.Recordset.MoveFirst
                bdgeo.Recordset.Delete
                elimino = 1
              Loop




Muchas Gracias

Jaume:
Creo que la línea del MoveFirst sobra

ROBER.29:
Estoy con Jaume en que te sobra el MoveFirst pero además tb te falta en movenext, porque si no el recordset no avanza y nunca sale del bucle. Tendría que ser asi:

elimino = 0
bdgeo.UserName = st_login
bdgeo.Password = st_passw
bdgeo.ConnectionString = Conectar
bdgeo.RecordSource = "SELECT * FROM sondajes.t_identi WHERE yacimiento=1 AND codlabor='" & clabor_del & "'"
bdgeo.Refresh
If bdgeo.Recordset.RecordCount > 0 Then
Do Until bdgeo.Recordset.EOF
bdgeo.Recordset.Delete
elimino = 1
bdgeo.Recordset.MoveNext
Loop
End if

Jaume:
No lo afirmo, pero creo que el MoveNext no es necesario, puesto que al eliminar el registro ya pasa al siguiente. Creo!!

ROBER.29:
Jaume creo q tienes razon pero de todas formas q pruebe de las dos formas porque yo tampoco estoy seguro de que haga falta el movenext.

De lo que si estoy seguro es que el movefirst sobra.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente