No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Vaciar los Registros de una Query.

delphi

Function DBEmptyTable(
           const DatabaseName,
           TableName : string): Boolean;
var Query : TQuery;
begin
  Query := TQuery.Create(nil);
  try
    Query.DatabaseName := DatabaseName;
    Query.SQL.Clear;
    Query.SQL.Add('DELETE FROM '+TableName);
    Query.ExecSQL;
    Result := True;
  finally
    Query.Free;
  end;
end;

Saludos!