Ir al contenido



Foto

[TRUCO DELPHI] Vaciar los Registros de una Query.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 28 noviembre 2016 - 03:06

[TRUCO DELPHI] Vaciar los Registros de una Query.


delphi
  1. Function DBEmptyTable(
  2. const DatabaseName,
  3. TableName : string): Boolean;
  4. var Query : TQuery;
  5. begin
  6. Query := TQuery.Create(nil);
  7. try
  8. Query.DatabaseName := DatabaseName;
  9. Query.SQL.Clear;
  10. Query.SQL.Add('DELETE FROM '+TableName);
  11. Query.ExecSQL;
  12. Result := True;
  13. finally
  14. Query.Free;
  15. end;
  16. end;

Saludos!


  • 1