limpiar tabla de access

[ecfisa]

Hola ozmar.

No veo posibilidad de acces violation en ese código, pero por las dudas vamos a asegurarnos.

Poné un componente TADOQuery (ADOQuery1) y desde el Object Inspector asignale a su propiedad Connection el ADOConnection correspondiente, luego en reemplazo, utilizá este código:

Código Delphi [-]
procedure TForm6.Button1Click(Sender: TObject);
begin
  if Application.MessageBox('¿REALMENTE QUIERES BORRAR TODOS LOS DATOS DE LA BASE DE DATOS? '+ 
      'ESTA ACCION NO SE PODRA REVERTIR','Advertencia del sistema',1) = IDOK then
    with TADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Text:= 'DELETE FROM TABLA1';
      ExecSQL
    end
end;

Saludos.