Subselect in Insert

[Winned]

Hallo,

ich habe da ein Problem bezüglich eines Selects innerhalb eines Insert-Statements. Ich poste hier mal den Code:

Delphi-Quellcode:

Query.Active := false;
Query.SQL.Clear;
Query.SQL.Add('INSERT INTO ortsteile (ortsteil, orte_id)');
Query.SQL.Add('VALUES(:pOrtsteil, SELECT orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ');
Query.Parameters.ParamValues['pOrtsteil'] := sOrtsteil;
Query.Parameters.ParamValues['pOrt'] := sOrt;
Query.Parameters.ParamValues['pPLZ'] := sPLZ;
Query.ExecSQL;

Ich verwende als Datenbankkomponente ADO.

Wie man in den ergänzenden Angaben sehen kann, verwende ich eine Access 2003 Datenbank (*.mdb).
Ich versuche also ein INSERT in die Tabelle ortsteile auszuführen und das Feld orte_id soll den Wert aus der Tabelle orte bekommen. Die id in der Tabelle orte ist ein Primary Key, also wird hier auch nur 1 Ergebnis zurückgeliefert.

Die Werte, die in den Parametern stehen, habe ich übrigens geprüft. Sie enthalten die korrekten Werte.

Der Fehler, der auftaucht, lautet:

Zitat:

Syntaxfehler. in Abfrageausdruck 'SELECT orte.id FROM orte WHERE orte.ort=? AND orte.plz=?'

Das SELECT-Statement an sich funktioniert (habe ich getestet) und wenn ich anstatt des SELECTs im INSERT einen variablen oder festen Wert nehme funktioniert es auch. Sobald ich allerdings das SELECT-Statement in die VALUES an 2. oder auch 1. Stelle schreibe funktioniert es nicht mehr.

Tabellennamen in eckigen Klammern schreiben führte auch nicht zum Erfolg.

Schreibe ich das SELECT-Statement allein als VALUE ins Statement, funktioniert es ebenfalls nicht. Folgendes Statement habe ich auch ausprobiert:

Code:

INSERT INTO ortsteile (ortsteile, orte_id) SELECT :pOrtsteil, orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ

Das hat allerdings auch nichts gebracht. Es kam zwar keine Fehlermeldung, aber es wurde auch kein Eintrag in die Datenbank vorgenommen.

Es wäre nett, wenn jemand mir da helfen könnte.

Das Problem habe ich temporär gelöst, indem ich einfach 2 Statements verwendet habe, aber das kann ja nicht die Lösung sein.


mfg Winned


P.S: Habe im Internet schon gesucht aber noch nichts konnte bisher meinen Fehler beheben.

[p80286]

klammer das select doch mal

Code:

'VALUES(:pOrtsteil, (SELECT orte.id FROM orte WHERE orte.ort=:pOrt AND orte.plz=:pPLZ))

Gruß
K-H

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