Hallo Forum,
Ich implementiere momentan eine kleine "Extra"-Funktion, welche ein schon vorhandenes Projekt erweitern soll.
Es handelt sich um einen kleinen Performance Test, welcher die Ausführungszeit einer
SQL Anweisung ausgibt und diese dann mit einer anderen Tabelle vergleicht.
Den
SQL-Code selber habe ich bereits:
Code:
USE MeineDatenbank
SET STATISTICS TIME ON
SELECT * FROM MeineTabelle
SET STATISTICS TIME OFF
Das ganze setze ich nun folgendermaßen in Delphi um:
Delphi-Quellcode:
function TfrmPerformance.Auswertung(var Con: TADOConnection;
cb: TDBLookUpComboBox): string;
begin
qryAuswertung.Connection := Con;
qryAuswertung.SQL.Clear;
qryAuswertung.SQL.Add('USE ' + (Con.DefaultDatabase));
qryAuswertung.SQL.Add('SET STATISTICS TIME ON');
qryAuswertung.SQL.Add('SELECT * FROM ' + cb.KeyValue);
qryAuswertung.SQL.Add('SET STATISTICS TIME OFF');
qryAuswertung.ExecSQL;
qryAuswertung.Close;
In dem
SQL Management Studio wird außer den Ergebnissen auch die erstelle Statistik unter "Meldungen" ausgegeben! Gibt es eine Möglichkeit diese auch in Delphi ausgeben zu lassen?
LG