Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

Re: Zeit einer SQL-Query berechnen und anzeigen

  Alt 18. Jun 2004, 12:54
Delphi-Quellcode:
procedure Irgendwas;
var
  R1: string;
  Start, Stop, Freq: Int64;
begin
  with dm_mysql do
  begin
    sql_artikel.close;
    sql_artikel.sql.text := 'select * from artikel';
    QueryPerformanceCounter(Start);
    sql_artikel.open;
    QueryPerformanceCounter(Stop);
    QueryPerformanceFrequency(Freq);
    lbl_gefunden.Caption := Format('%d insgesamt, die Abfrage dauerte %.4f sek', [sql_Artikel.RecordCount, (Stop - Start) / Freq]);
  end;
end;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat