Meldung einer Abfrage in Delphi anzeigen

[Panschi]

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

[MacGuyver]

Moin,

ließ doch vor ExecSQL GetTicksCount aus und danach noch einmal. Den einen Wert vom anderen abziehen und du hast die Millisekunden, die der Aufruf gebraucht hat.

Stefan

[Luckie]

Das muss aber nicht der gleiche Wert sein. Der Query liefert wohl die Dauer des Queries auf dem Server. Macht man es so wie du, hast du die Ausführungszeit und die Übertragung zum Client gemessen.

[Furtbichler]

Die Rückgabe einer ADOQuery ist ein Recordset und das besteht aus mehreren Tabellen, pro Query im Skript eine. Du kannst mit NextRecordset zur nächsten Ausgabe navigieren.

[DeddyH]

Dann ist ExecSQL aber wahrscheinlich die falsche Option, oder?

[Panschi]

Schonmal danke für die Antworten!

Ich öffne das Query nun ganz normal mit
qryAuswertung.open; Nun müsste ich dann ja das nächste Recordset auswählen, jedoch weiß ich nicht welche Vaiable ich als RecordsAffected einsetzen soll.

[Bernhard Geyer]

Zitat von DeddyH:

Dann ist ExecSQL aber wahrscheinlich die falsche Option, oder?

Ja. Liefert ja kein Recordset zurück

[Panschi]

Zitat von Bernhard Geyer:

Ja. Liefert ja kein Recordset zurück

Habe Ich auf qryAuswertung.Open geändert.

Wie handhabe Ich das mit
qryAuswertung.NextRecordSet(????);

[Sir Rufo]

Hatten wir gerade erst http://www.delphipraxis.net/166117-r...-new-post.html

[Panschi]

sry, dass ich so spät antworte, musste gestern noch kurzfristig zu einem Kunden... Werde mir den Quellcode mal genauer ansehen!