aloha zusammen,
ich versuch gerade verzweifelt eine Stored Procedure auf einer AS400 aufzurufen...
da ich mit der Stored Procedure komponente von
ADO nicht so vertraut bin, wollte ich es gerade über eine normale ADOQuery versuchen...
In der
ADO Query habe ich mir 3 Parameter Felder angelegt (2 Input, 1 Output)
mein source sieht wie folgt aus:
Delphi-Quellcode:
Try
With (dmas400_main.as400_query2)
Do
Begin
Active := False;
SQL.Clear;
Parameters.ParamByName('
KZGR').Value := '
3';
Parameters.ParamByName('
ZUKZ').Value := '
';
Parameters.ParamByName('
Return').Value := EmptyStr;
dmas400_main.as400_query2.Prepared := True;
SQL.Add('
Call LIBARY.StoredProcedure1 (:KZGR, :ZUKZ, :Return)');
ExecSQL;
End;
Except
MessageDlg('
Error SQL Query!', mtError, [mbOK], 0);
Exit;
End;
das komische ist, das er beim 1. versuch den
SQL ohne probleme ausführt, allerdings ist danach der Return Parameter leer!
Beim 2. mal ausführen findet er auf einmal den 1. Parameter nicht mehr...
hat jemand eine idee woran es liegen könnte?