limpiar tabla de access

[ecfisa]

Hola.

Puede ser en el evento OnClick de un TButton por ejemplo, pero la sintáxis varía de acuerdo a los componente que uses.

TTable:

Código Delphi [-]
procedure TForm1.btnVaciarTablaClick(Sender: TObject);
begin
  // Asegurarse que la tabla esté en modo exclusivo
  Tabla1.Close;
  Tabla1.Exclusive:= True;
  Tabla1.Open;
  // Vaciar 
  Table1.EmptyTable
end;

TADOTable:

Código Delphi [-]
procedure TForm1.btnVaciarTablaClick(Sender: TObject);
begin
  ADOTable1.DeleteRecords(arAll);
end;

Saludos.

[ozmar_11]

hola gracias por responder use el código del ADOTable pero no funciona al darle clic al botón me aparece este error:
proyect1.exe raised exeption classEOleExepction whit message 'la operacion no esta permitida en este contexto' process stopped
como lo corrijo?

[ecfisa]

Hola ozmar.

Me olvidé que debías usar con anterioridad:

Código Delphi [-]
  CursorLocation:= clUseServer;

Pero de todos modos algunos de los providers no soportan bién la operación de borrado con ADOTable . Creo que sería mucho mejor que usaras un TADOQuery para hacer esa tarea:

Código Delphi [-]
procedure TForm1.btnVaciarTablaClick(Sender: TObject);
begin
  with TADOQuery.Create(nil) do
  try
    Connection:= ADOConnection1;
    SQL.Text:= 'DELETE FROM TU_TABLA';
    ExecSQL;
    Close;
  finally
    Free;
  end;
end;

Saludos.

[ozmar_11]

hola use ecfisa use el código que me recomendaste y me funciono muy bien pero al cerrar la aplicación me aparecen 2 cuadros con estos mensajes:

Exception EAccessViolation in module project1.exe at 00098FB4. Access violation at address 00498FB4 in module 'project1.exe'. read of
address 00000008.

project1.exe raised exception class EAccessViolation with message 'Access violation at address 004FA140 in module 'project1.exe'.read 00000004'. Process stoped.
use step or Run continue

por que salen esos mensajes y como los evito?

[ecfisa]

Hola ozmar.

Los errores EAccessViolation se producen generalmente cuando intentas usar o liberar un recurso que ya no existe (ya sea que todavía no fué creado o ya fué liberado). No es posible darte una respuesta concreta sin ver el código.
Una forma de ubicar el error es poner un break antes de la salida de la aplicación (por lo tanto antes de la manifestación del mismo) y luego con F7/F8 hacer un seguimiento para ver donde se provoca.

Un saludo.

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