DELETE FROM
Publicado por Juan Morales (36 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;
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
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
0