Subselect in Insert

[DeddyH]

Oder so?

Delphi-Quellcode:

Query.Close;
Query.SQL.Text := Format('INSERT INTO ortsteile (ortsteil, orte_id) ' +
                         'VALUES(%s, (SELECT orte.id FROM orte ' +
                         'WHERE orte.ort=:pOrt AND orte.plz=:pPLZ)',
                         [AnsiQuotedStr(sOrtsteil)]);
Query.Parameters.ParamValues['pOrt'] := sOrt;
Query.Parameters.ParamValues['pPLZ'] := sPLZ;
Query.ExecSQL;