Hi
Delphi-Quellcode:
// suchen der ID
DBForm.sqli.sql.clear;
DBForm.sqli.SQL.add('Select GEN_ID(GEN_IDRECORDS_ID,1) From RDB$Database;');
DBForm.sqli.Open;
id := DBForm.sqli.Fields[0].AsInteger;
PS.: Bei der obigen INSERT, üwrde ich trotzdem eher die Variante mit ParamByName bevorzugen, ist einfach viel Übersichtlicher, und nicht so Fehleranfällig (wenn im Text irgendwelche Spezialzeichen vorkommen !!!)