Verwendung einer Stored Procedure

[onkelthom]

Hallo zusammen,

ich kann kaum glauben dazu nix finden zu können, aber ich werd nicht fündig

Ich verwende TIBOStoredProc mit Zugriff auf Firebird 2.1
Die dort angesprochene Prozedur liefert im Test den gewünschten Wert zurück.
Daher muss mein Fehler irgendwo im Delphi Code liegen.

Code:

IBOStoredProc1.ParamByName('pANZAHL').asInteger;                             //Parameter den die Prodezur zum ausführen braucht
iRESULT := IBOStoredProc1.ParamByName('pRESULT').asInteger;                  //Paremeter den die Prozedur als Result zurück liefert.
IBOStoredProc1.Prepare;
IBOStoredProc1.ExecProc;
IBOStoredProc1.Close;
DM.DataModule1.IBOTransaction1.CommitRetaining;

Die Variable iRESULT bleibt immer leer ...

Liegt es vielleicht an der Reihenfolge der Zeilen ?
Hab´s ettliche Male gedreht, ich komm nicht drauf.

Viele Grüße
Thomas

[DeddyH]

Mit IBO kenne ich mich nicht aus, aber ich kenne das so (die Syntax kann natürlich variieren):

Delphi-Quellcode:

SP.ParamByName('Param').Value := 42;
SP.Open; //nicht Exec
Variable := SP.FieldByName('Rueckgabe').Value;

[onkelthom]

das war´s
Für mich bist Du heute der Größte !!

Viele Grüße
Thomas

[mkinzler]

Oder als normalen Select:
select <Felder> from <SP_Name>(<InputParameter>) where <Bedingung>;

[p80286]

Ich weiß auch nichts genaues (Firebird) aber bei mir sähe das so aus:

Delphi-Quellcode:

  Query.sqltext:='select Myproc from dual';
  Query.Open;
  if not Query.EOF then........

Ohne "select" kein Rückgabewert.

Gruß
K-H

[borwin]

Es gibt zwei Typen von SP

Der eine Typ von SP gibt eine Ergebnissmenge zurück. Dann ist in der SP zwingend ein SUSPEND pro Datensatz notwendig.
Dann geht das was mkinzler vorgeschlagen hat
select <Felder> from <SP_Name>(<InputParameter>) where <Bedingung>; und den Aufruf in Delphi dazu

Delphi-Quellcode:

Query.Open;
  while not Query.EOF do ........

Ist in der SP kein SUSPEND oder man bekommt genau einen Datensatz, dann muss ich einen anderen Weg in Delphi wählen.
onkelthom war schon auf dem richtigen Weg. Der Resultwert kann erst nach der Ausführung mit ExecProc abgerufen werden.
Vorher gibt es noch keinen Wert.
So sollte es funktionieren

Delphi-Quellcode:

IBOStoredProc1.ParamByName('pANZAHL').asInteger;                             //Parameter den die Prodezur zum ausführen braucht
IBOStoredProc1.Prepare;
IBOStoredProc1.ExecProc;
// Nach dem Exec
iRESULT := IBOStoredProc1.ParamByName('pRESULT').asInteger;                  // Der Rückgabewert Paremeter den die Prozedur als Result zurück liefert.
DM.DataModule1.IBOTransaction1.CommitRetaining;

Gruß Borwin

[DeddyH]

Ich weiß nicht, wie das bei IBO ist, aber wäre statt ParamByName nicht FieldByName für den Rückgabewert angebrachter?

[mkinzler]

Zitat von DeddyH:

Ich weiß nicht, wie das bei IBO ist, aber wäre statt ParamByName nicht FieldByName für den Rückgabewert angebrachter?

Nur beim Select, sonst steckt die Rückgabe auch in Parametern

[DeddyH]

Bei UIB komm ich da auch über die Felder ran, aber was soll' s.