SQL Rekursive SELECT Abfrage

[omata]

Hallo TUX_der_Pinguin,

dafür ist die TSQLStoredProc-Komponente da.
Du kannst auch ein SimpleDataSet nehmen und dort den CommandType auf ctStoredProc stellen und über den CommandText dann den Namen der Prozedur angeben.

Gruss
Thorsten

[mkinzler]

Selectable SPs kann man auch mit einer normalen Query-Komponente aufrufen.

[TUX_der_Pinguin]

Mein erster Lösungs Ansatz sieht wie folgt aus

Delphi-Quellcode:

SQLQuery               := TSQLQuery.Create(Self);
SQLQuery.SQLConnection := frmMain.SQLCon;
SQLQuery.SQL.Text      := 'CALL GetTree('+QuotedStr(IntToStr(ParentID))+');';
SQLQuery.Open;

If SQLQuery.RecordCount > 0 Then Begin
  While NOT SQLQuery.Eof Do Begin
    ShowMessage(SQLQuery.FindField('Name').AsString);
    SQLQuery.Next;
  End;
End;

SQLQuery.Close;
SQLQuery.Free;

Die Fehlermeldung lautet:

Zitat:

Datenbank-Server-Fehler: PROCEDURE db.GetTree can't return a result set in the given context.

Ich habs mir 'EXECUTE PROCEDURE GetTree()', was ich irgendwo im Forum mal gelesen habe, aber die Syntax
funktioniert schon nicht mals in der MySQL Console.

Der 2. Lösungs Ansatz, etwas viel versprechender aber es scheitert an der Parameterübergabe:

Delphi-Quellcode:

SQLProc                := TSQLStoredProc.Create(Self);
SQLProc.SQLConnection  := frmMain.SQLCon;
SQLProc.StoredProcName := 'GetTree';
With SQLProc.Params.CreateParam(ftInteger, '_ParentID', ptInput) Do AsInteger := PID;
SQLProc.Open;

If SQLProc.RecordCount > 0 Then Begin
  ShowMessage(IntToStr(SQLProc.RecordCount));
End;

SQLProc.Close;
SQLProc.Free;

Die Fehlermeldung:

Zitat:

dbExpress-Fehler: [0x0005]: Operation wird nicht unterstützt.

mfg

TUX