Delphi-Quellcode:
s:='insert into Interpret values (''0'',''Wert1'') returning id;';
SQLQ := TSQLQuery.Create(SDIAppForm);
SQLQ.SQLConnection := SQLC;
SQLQ.Params.Clear;
// SQLQ.Params.Add;
SQLQ.SQL.Clear;
SQLQ.SQL.add(s);
SQLQ.open;
messagedlg ('id: '+SQLQ.Params[0].asstring,mtInformation,[mbok],0);
Irgendwie funktioniert das nicht - Ich bekomme beim letzten Befehl eine
Exception, weil SQLQ.Params leer ist. Auch der Versuch, vor dem Open des
SQL Statement einen leeren Params[0] zu erzeugen (auskommentierte Zeile) hat an der
Exception nichts geändert.
In ISQL wird bei der Eingabe dieses Befehls über den gespeicherten Trigger der Wert id='0' durch einen neuen eindeutigen Wert ersetzt.
Ja, und in der Datenbank ist nach der Ausführung dieses Codes in der Tabelle Interpret auch noch keine neue Zeile angekommen, obwohl bei der Ausführung des Open Befehls keine Fehler gemeldet wurde.