Firebird Procedure Speicherproblem

[Verdi]

Hallo

Ich arbeite mit:
Windows 10
Lazarus 1.4.4
Firebird embedded 2.5.5

Folgende Frage:

Ich möchte übungshalber mit TSQLQuery eine Procedure in Firebird speichern.
(Dass der Code sinnlos ist, ist mir klar, es geht nur um das Üben)

Code: Alles auswählen

  SQLQuery1.SQL.ADD('CREATE PROCEDURE NAME_GET_ALL');
  SQLQuery1.SQL.ADD('returns(kunr integer, name varchar(100))');
  SQLQuery1.SQL.ADD('AS');
  SQLQuery1.SQL.ADD('BEGIN');
  SQLQuery1.SQL.ADD('  FOR SELECT KuNr, Name');
  SQLQuery1.SQL.ADD('  FROM "PERSON"');
  SQLQuery1.SQL.ADD('  into :KuNr, :Name');
  SQLQuery1.SQL.ADD('  DO');
  SQLQuery1.SQL.ADD('  BEGIN');
  SQLQuery1.SQL.ADD('    SUSPEND;');
  SQLQuery1.SQL.ADD('  END');
  SQLQuery1.SQL.ADD('END');  
 
  SQLQuery1.ExecSQL;

SQLTransaction1.Commit;

Fehlermeldung:
IBConnection1: PrepareStatement:
-Dynamic SQL Error
-SQL error code = -104
-Token unknown - line 7, column 8
-?.

Wenn ich den selben Code direkt über TurboBird eingebe, funktioniert die Speicherung, allerdings nur, wenn ich den Code folgendermassen beginne und beende:
set term #;
.
.
.
#
set term ;#

Die set term - Anweisungen kann man aber nicht über SQL-Befehle eingeben, da dann schon in Zeile 1 eine Fehlermeldung entsteht.

(Die Speicherung von Triggern und Generatoren über SQL-Kommandos funktioniert einwandfrei).

Kann mir jemand zeigen wie ich die Procedure über SQL-Kommandos erfolgreich speichern kann?

Vielen Dank für die Hilfe.

Herzliche Grüsse
Verdi

[knight]

Wäre TSQLScript nicht eher für deinen Zweck geeignet?

knight

[Verdi]

Vielen Dank für den Hinweis, ich werde es gerne so probieren.
Herzliche Grüsse, Verdi