Clipper/FiveWin - DELETE FROM

 
Vista:

DELETE FROM

Publicado por Juan Morales (30 intervenciones) el 09/04/2018 23:13:19
AMIGOS HE LEIDO Q SE PUEDE USAR DELETE FROM CON WHERE PAA BORRAR DATOS DE UNA BASE DE DATOS YO USO LO SIGTE;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PRIVATE wR2:= TOLEAUTO():New("adodb.recordset")
    wR2:LockType := adLockOptimistic
    wR2:CursorType := adOpenKeyset
    wR2:CursorLocation := adUseClient
    wR2:ActiveConnection(oApp:oCon)
    wR2:Source := "SELECT * FROM WDETMOV WHERE ANOF='" + AllTrim(STR(VANOF)) + "' AND MESF ='" + ALLTRIM(STR(VMESF)) + "'  AND FLAG = '" + ALLTRIM(VFLAG) + "' ;
            ORDER BY ANOF,MESF,CUENTA,CODCOS "
 
    wR2:Open()
 
 
DO WHILE .NOT. wR2:EOF()    //   LEER SALDOS DE CUENTAS DEL A¥O PEDIDO
 
	wR2:Delete()
 
    wR2:MoveNext()   // SIGUIENTE REGISTRO
 
ENDDO
 
wR2:Close()

PODRIA SIMPLIFICAR USANDO DELETE Y SI SE PUEDE COMO LO USO PORQ CAMBIE EL SELECT POR DEL DELETE Y NO HIZO NADA ALGUNA OBSERVACION

MUCHAS GRACIAS POR LA AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder