Mehrere Datensätze über mehrere Tabellen

[himitsu]

TStrings.CommaText

[NoName1]

Vielendank vorersteinmal.
Ich habe diese Seite https://stackoverflow.com/questions/...with-in-clause
und werde mich einmal damit auseinandersetzen.

Ein schönes Wochende allen.

[Sinspin]

Delphi-Quellcode:

s := '';
for i = 0 to Stringlist.Count - 1 do
begin
  if s <> '' then
    s := s + ',';
  s := s + StringList[i];
  s := '('+s+')';
end;
query.SQL.Text := 'SELECT irgendwas FROM irgendwo WHERE a.Adressid in '+s;

Wenn du eine andere Tabelle hast von der die Werte kommen brauchst du natürlich keine StringList dazwischen:

Delphi-Quellcode:

s := '';
query.First;
while not query.Eof do
begin
  if s <> '' then
    s := s + ',';
  s := s + query.FieldByName('einFeldName').AsString; // auch integer können einfach als string gelesen werden.
  s := '('+s+')';
  query.Next;
end;
query.SQL.Text := 'SELECT irgendwas FROM irgendwo WHERE a.Adressid in '+s;

[himitsu]

Zitat von himitsu:

TStrings.CommaText

oder TStrings.Delimiter:=',' und TStrings.DelimitedText
oder string.Join (TStringHelper.Join)
oder