limpiar tabla de access

[[Caral]]

Hola
1- Tabla1.Delete;
2- Componentes ADO.
Saludos

[ozmar_11]

hola gracias por contestarme pero la sentencia Tabla1.delete que hace? y en que componente ado deberia ponerlo?

[[Caral]]

Hola
Para conectarte con ado lo haces con el componente adoconnection.
Para borrar la tabla lo puedes hacer con un adotable o si quieres hacerlo por sql tendra que ser con un adoquery.
Saludos

[ozmar_11]

y la sentencia Tabla1.delete donde la aplicaría?

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