SQL - Anweisung - Kommatrennung

[MasterChief_88]

Hi!

also hab ne Frage zu SQL:

ich möchte aus einer Tabelle nicht alle Datensätze, sondern nur ganz bestimmte haben.
Die ganz bestimmten Datensätze liegen in einer Stringlist (also der KEY zu jedem Datensatz).
Die ganzen KEYs les in ein string ein und trenne sie durch Komma.

hier der quelltext:

Table.Sql.text := ('Select * from MYTABLE where KEY in (' + QuotedStr(stringKEY)); somit vermeide ich, dass ich *-zig "SELECT"-Anweisungen schreibe.
Ich muss aber noch irgendwie delphi sagen, das die einzelnen KEYs in dem string kommagetrennt sind.

Nun meine Frage: WIE MACHEN ICH DAS? ODER WIE IST DER BEFEHL DAZU?

danke schon mal im voraus !

[nahpets]

Hallo,

Du musst wohl um jeden Wert in der Stringliste ein QuotedStr machen und nicht um die ganze Stringliste. Sofern es sich um numerische Werte handelt, ist ein QuotedStr aber nicht erforderlich, eventuell fehlte Dir nur die schließende Klammer?

Table.Sql.text := ('Select * from MYTABLE where KEY in (' + QuotedStr(stringKEY) + ')');

[MasterChief_88]

also wenn ich das so klammer wie du, dann erhalt ich folgende Fehlermeldung:

arithmetic exception, numeric overflow, or string truncation muss sagen, die fehlermeldung sagt mir gar nix ^^

[MasterChief_88]

und wenn ich das so mach:

Table.Sql.text := ('Select * from MYTABLE where KEY in (' + stringKEY + ')' ); da haut er mir raus, dass er mit dem ) nichts anfangen kann ^^
schon komisch!

[mkinzler]

Verwende Parameter

[MasterChief_88]

???

[nahpets]

Hallo,

zeig' uns bitte mal den Inhalt von stringKEY, da der ja Teil des SQL's wird. Da kann noch allerlei an "Strubbel" passieren.

@mkinzler: Wie müssten hier die Parameter aussehen? Eine kommaseparierte Stringliste (unbekannter Größe) bekommt man (glaub' ich) nicht so leicht in Parameter. Grundsätzlich sollte hier sicherlich das Vorgehen nochmal überdacht werden. Und: Prinzipiell sind Parameter die bessere Alternative.

[shmia]

Parameter funktionieren hier leider nicht.
Man muss sich daher eine Funktion schreiben:

Delphi-Quellcode:

function GetQuotedKommaString(list:TStrings):string;
begin
   Result := '';
   for i:=0 to list.count-1 do
   begin
     if i =0 then
        Result := QuotedStr(list[i])
     else
        Result := Result + ','+QuotedStr(list[i]);
   end;
end;
...
Query.Sql.Text := 'Select * from MYTABLE where KEY in (' + GetQuotedKommaString(liste_dey_keys) + ')';

[MasterChief_88]

@shmia

funktioniert super!!
Genau das war meine Frage und hab ick gesucht !!!

DANK DIR!! HAT MICH WEIT NACH VORNE GEBRACHT!!