Borrar datos con IBX y FB2.0

[lbuelvas]

Hola, hice la siguiente prueba con una tabla de mi base de datos y me funcionó bien. Mi base de datos es Firebird 1.5.5. Lo diferente es que utilicé un objeto TIBQuery en vez de un TIBDataset, este ultimo objeto lo utilizo para navegación y manipulacion de registros.

Me parece que es mas apropiado un TIBQuery o incluso es mejor un TIBSQL pues estas lanzando eliminaciones de registros.

Código Delphi [-]
    for i := 10000 to 10005 do
    begin
      IBQuery1.SQL.Clear;
      if (i < 10005) then
        begin
          IBQuery1.SQL.Text := 'DELETE FROM RESOLUCION WHERE ID = :Borrar';
          IBQuery1.ParamByName('Borrar').Value := I;
        end
      else
        IBQuery1.SQL.Text := 'DELETE FROM RESOLUCION WHERE ID = 1000000' ;
      IBQuery1.ExecSQL;
    end;