Ver Mensaje Individual
  #2  
Antiguo 14-10-2008
lbuelvas lbuelvas is offline
Miembro
 
Registrado: may 2003
Ubicación: Colombia
Posts: 378
Reputación: 24
lbuelvas Va por buen camino
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;
__________________
Luis Fernando Buelvas T.
Responder Con Cita