limpiar tabla de access

[ozmar_11]

hola gracias por tomarse el tiempo de ayudarme pero este error tiene algo curioso solo aparecen los cuadros al presionar el boton con el codigo pero ahora me aparece un nuevo error en un cuadro dice esto:

project1.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped.

y este mensaje me aparece al cerrar la aplicacion pero cuando presiono dos veces el boton se interrumpe el programa y aparece ese mensaje como lo corrijo?
disculpen pero como puedo poner el texto de los codigos en un recuadro como lo hacen ustedes?

[ozmar_11]

bueno disculpen mi falta de cuadro de código pero es que no veo el icono que le pone el cuadro creo que es el mismo icono de la pagina no? pero aquí esta mi código:

Código Delphi [-]
procedure TForm6.Button1Click(Sender: TObject);
begin
IF APPLICATION.MESSAGEBOX('¿REALMENTE QUIERES BORRARTODOS LOS DATOS DE LA BASE DE DATOS? ESTA ACCION NO SE PODRA REVERTIR','Advertencia del sistema',1)=IDOK THEN
BEGIN
  with ADOQuery1.Create(nil) do
  try
    Connection:= ADOConnection1;
    SQL.Text:= 'DELETE FROM Tabla1';
    ExecSQL;
    Close;
  finally
    Free;
  end;
  SHOWMESSAGE('LA TABLA SE HA ELIMINADO POR COMPLETO');
  END;
end;

[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.

[ozmar_11]

hola gracias por ayudarme el problema se resolvio usando ese ultimo codigo gracias por tomarse el tiempo de ayudarme

[ecfisa]

De nada ozmar, me alegro que lo hayas solucionado.

Saludos.