Wenn du Glück hast, dann funktioniert Folgendes:
Delphi-Quellcode:
var
sql :
string;
begin
sql := '
INSERT INTO ortsteile (ortsteil, orte_id) '+
'
VALUES(''
@@@''
, SELECT orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ';
sql := StringReplace(
sql, '
@@@', sOrtsteil, []);
Query.SQL.Text :=
sql;
Query.Parameters.ParamValues['
pOrt'] := sOrt;
Query.Parameters.ParamValues['
pPLZ'] := sPLZ;
Query.ExecSQL;
end;
PS: ahhrg, ich wollte eigentlich die Variante ohne Schlüsselwort VALUES verwenden...
Delphi-Quellcode:
sql := '
INSERT INTO ortsteile (ortsteil, orte_id) '+
'
SELECT ''
@@@''
AS ortsteil,orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ';
sql := StringReplace(
sql, '
@@@', sOrtsteil, []);