Power Builder - Eliminar todos los registros

long ll_row=1

do while ll_row <= dw_1.Rowcount

dw_1.Deleterow(ll_row)

ll_row++

Loop

dw_1.Update()

Commit;

if sqlca.sqlcode = 0 then

Commit;

else

Rollback;

end if

Ejemplo 2:

Delete from nombre_tabla

where nombre_tabla.nombre_campo = 'Valor que deseas comprar';

if sqlca.sqlcode = 0 then

Commit;

else

Rollback;

end if

/* Ya borrados solo dale un Retrieve al Datawindow */

integer i_contador

integer i_num_reg

i_contador = 1

i_num_reg = dw_1.Rowcount()

do while i_contador <= i_num_reg

	dw_1.Deleterow(dw_1.getrow())

	i_contador++

Loop

dw_1.update()