!!Error de filas !!

[Darkseratul]

hola muchas gracias por contestar a los 2

Caral tu siempre ayudándome se te agradece ya le eche una mirada a lo que comentas pero no logro entenderlo ???

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  conMDB.Open;
  conMDB.BeginTrans;
  conMDB.Execute('DELETE * FROM TABLA1;', i);
  if MessageDlg('¿Elliminar ' + IntToStr(i) + ' registros?', mtWarning, [mbYes, mbNo], 0) = mrYes then
    conMDB.CommitTrans;
  conMDB.Close
end;

muchas gracias neftali por tu pronta respuesta si de hecho mis tablas no tenían claves primarias ya las he aplicado a mi base pero a un deves en cuando me sale el error ya no tan seguido como antes pero a un sale

[[Caral]]

Hola
Digamos que tienes un adoQuery y quieres borrar ciertos datos (mas o menos como tu ejemplo):
Las Transacciones se hacen sobre el ADOConnection, algo asi (suponiendo que el adoconnection este en el datamodule):

Código Delphi [-]
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  DataModule1.AdoConnection1.BeginTrans; // comienzo la transaccion
  try // trate de
  AdoQuery1.sql.text:= 'DELETE * FROM TABLA1 where micampo = :Midato'; //Borre de mi tabla segun mi dato
  AdoQuery1.Parameters[0].value:= tudato; // le doy el dato
  AdoQuery1.ExecSQL;  // lo ejecuto
  DataModule1.AdoConnection1.CommitTrans;  // lo guardo
  end;
  except  // creo un excepción
  on E:Exception do DataModule1.AdoConnection1.RollbackTrans; // si pasa algo no cambio nada en la bd
  MessageDlg('No fue posible completar la transacción',mtError,[mbOK],0); // muestro un mensaje
  end;

Creo que esta claro, si tienes dudas avisa.
Saludos

[Darkseratul]

muchas gracias caral lo voy a checar y te digo como me fue