Hallo,
in meinem Delphi-Programm will ich über
einen Service-Punkt Stored-Procedures anlegen lassen
ohne den ISQL zu verwenden.
Dazu habe ich folgenden Code geschrieben:
With Query2 Do
Begin
DataBase1.StartTransaction;
Close;
SQL.Clear;
HlpStr := 'Create procedure GetDatenByIdx(i_Idx Integer)';
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Returns (r_Laenge Integer, r_Breite Integer)');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'As');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Begin');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Select Laenge, Breite From T_Holz where LaufIdx = :i_Idx into r_Laenge, r_Breite;');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'End');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
SQL.Add(HlpStr);
ExecSQL;
DataBase1.Commit;
End;
Als Fehlermeldung bekomme ich "Typ vom Feld i_idx ist unbekannt".
Wo liegt mein Fehler ?
Wir setzen Delphi 4.0, mit Interbase 5.6 ein .
Vielen Dank.
Gruß
Ralf Eberhard
in meinem Delphi-Programm will ich über
einen Service-Punkt Stored-Procedures anlegen lassen
ohne den ISQL zu verwenden.
Dazu habe ich folgenden Code geschrieben:
With Query2 Do
Begin
DataBase1.StartTransaction;
Close;
SQL.Clear;
HlpStr := 'Create procedure GetDatenByIdx(i_Idx Integer)';
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Returns (r_Laenge Integer, r_Breite Integer)');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'As');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Begin');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'Select Laenge, Breite From T_Holz where LaufIdx = :i_Idx into r_Laenge, r_Breite;');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
HlpStr := Concat(HlpStr,'End');
HlpStr := Concat(HlpStr,Chr(13),Chr(10));
SQL.Add(HlpStr);
ExecSQL;
DataBase1.Commit;
End;
Als Fehlermeldung bekomme ich "Typ vom Feld i_idx ist unbekannt".
Wo liegt mein Fehler ?
Wir setzen Delphi 4.0, mit Interbase 5.6 ein .
Vielen Dank.
Gruß
Ralf Eberhard
Comment