Subselect in Insert

[Winned]

Danke für die schnelle Antwort.

Habe das Statement in Klammern gesetzt. Ich erhalte aber nun den Fehler "Unbekannter Fehler".


mfg Winned

[shmia]

Wenn wir mal folgende Abfrage anschauen

SQL-Code:

-- Beispiel 1
SELECT :pOrtsteil, orte.id FROM orte

dann ergibt sich schon mal das Problem dass der Parameter :pOrtsteil keinen definierten Datentyp (varchar, int, float,... ?) haben kann, da der Parameter an keine Spalte gebunden ist.
Selbst der Feldname ist quasi undefiniert.
Bei folgender Abfrage wäre dann wenigstens der Feldname definiert

SQL-Code:

-- Beispiel 2
SELECT :pOrtsteil AS pOrtsteil, orte.id FROM orte

aber so richtig hilft das auch nicht weiter.
ADO bzw. die VCL kann keinen Parameter erzeugen!
Somit wäre also gezeigt, dass Parameter zwischen SELECT und FROM nicht funktionieren können.
Es sei denn, man würde den Parameter per Code erzeugen, wobei dann nicht gesagt ist, dass das funktioniert.

Damit wäre erklärt, weshalb
INSERT INTO ortsteile (ortsteile, orte_id) SELECT :pOrtsteil, orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ nicht funktioniert.

[shmia]

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, []);

[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;

[Winned]

Danke an alle für die Antworten, war sogar eine funktionierende Lösung dabei.

@DeddyH: Deine Lösung hat leider ebenfalls "Unbekannter Fehler" ausgeworfen. Allerdings fehlte bei dir im Quellcode eben auch eine Klammer zum Schluss und ich hatte Probleme zu compilieren, solange die Funktion AnsiQuotedStr() bzw. QuotedStr() verwendet wurde.

@shmia:

Zitat von shmia:

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, []);

Deine 2. Variante funktioniert reibungslos, aber muss man das ganze wirklich so umständlich gestalten?

Vielleicht gibts ja noch ein paar andere Ideen, wo das Problem liegen könnte oder so. Die Datentypen beider Spalten (ortsteile.orte_id und orte.id) sind jedenfalls gleich. Andernfalls bedanke ich mich schonmal für die Mühen.


mfg Winned

[DeddyH]

Naja, man könnte sich den resultierenden SQL-String ja einmal anzeigen lassen.

[edit] So klappt das zumindest bei mir (ohne DB-Anbindung):

Delphi-Quellcode:

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))',
                         [QuotedStr(sOrtsteil)]);
Query.Parameters.ParseSQL(Query.SQL.Text, true);
Query.Parameters.ParamByName('pOrt').Value := sOrt;
Query.Parameters.ParamByName('pPLZ').Value := sPLZ;

[/edit]