SQL - deletando

Top  Previous  Next

With QryApaga do

begin

     close;

     sql.clear;

     sql.add('delete from ItemVenda');

     sql.add('Where PedidoNr = :0');

     prepare;

     params[0].AsString := EditPedidoNr.Text;

     Execsql;

end;