Mehrere Datensätze über mehrere Tabellen

[NoName1]

Guten Tag Delphianer,
ich habe bisher aus mehreren Tabellen immer nur für einen Adresse die Datensätze benötigt.
Dazu folgender Code:

Delphi-Quellcode:

select a.name1 || ', ' || a.name2 As Suchender, 
a.adressid, 
l.Datum, l.Adressid, l.BRSTATUS, l.lastatus, 
CAST(b.Itembegin as Date), b.arbeitstext 

from adressen a 
left join lateilnehmer l 
on (a.Adressid = l.adressid)

left join logentage b 
on (l.datum = Cast(b.itembegin as Date)) 
  
where a.Adressid in (:pListe) //Vorher stand hier: where a.Adressid = :pAdressID
and a.brstatus = 101 
and a.adraktiv = 'J' 
and b.artderarbeit <> 'BR' 
order by a.Name1, l.datum desc

Das Problem ist, dass a.adressid vom Typ Integer ist und deshalb die Fehlermeldung
conversion error from string "(1035,907,1033)"'
ausgegeben wird.

Welche Möglichkeiten gibt es trotzdem zum Ziele zu kommen?

Vielen Dank für alle Hilfen im Voraus.

[joachimd]

in der Regel können Listen nicht als Parameter eingegeben werden. Du müsstest also ein Konstrukt bauen, welches entweder mehrere Parameter verwendet oder über eine temporäre Hilfstabelle gehen.

[himitsu]

es kommt drauf an
* kann das DBMS Array-Typen (meistens ja)
* kann die verwendete Datenbank-Komponente auch mit Array-Typen umgehen?
* und hat der benutzte TParam-Typ eine Übergabefunktion für z.B. TStrings oder Arrays?

* sowie TFiled/TParam.Value bzw. der Type Variant können mit z.B. nicht mit TStringList/Tsrrings, außer man benutzt eine DelphiKlasse, welche z.B. IDispatch implementiert.

Nja, ich hab ich meistens einfach ein Makro benutzt.
where a.Adressid in (&pListe)
Bei Integern sehr einfach, ansonsten muß man noch mit dem Escaping aufpassen.

Oder als kommaseparierter AsString und dann im SQL z.B. eine StringToArray- oder StringToRecord-Funktion verwenden


PS: [CODE=SQL] ... [CODE]

[Sinspin]

Zitat von NoName1:

Das Problem ist, dass a.adressid vom Typ Integer ist und deshalb die Fehlermeldung
conversion error from string "(1035,907,1033)"'
ausgegeben wird.

Da ist dein String doch schon fertig. Ist zwar nicht optimal, aber bau an der Stelle das Script doch selber zusammen.

Delphi-Quellcode:

....SQL.Text := 'select a.name1 || '', '' || a.name2 As Suchender,
a.adressid,
l.Datum, l.Adressid, l.BRSTATUS, l.lastatus,
CAST(b.Itembegin as Date), b.arbeitstext

from adressen a
left join lateilnehmer l
on (a.Adressid = l.adressid)

left join logentage b
on (l.datum = Cast(b.itembegin as Date))
  
where a.Adressid in '+MyIdListString+ // <--
'and a.brstatus = 101
and a.adraktiv = ''J'' 
and b.artderarbeit <> ''BR'' 
order by a.Name1, l.datum desc'

[NoName1]

Zitat von Sinspin:

Zitat von NoName1:

Das Problem ist, dass a.adressid vom Typ Integer ist und deshalb die Fehlermeldung
conversion error from string "(1035,907,1033)"'
ausgegeben wird.

Da ist dein String doch schon fertig. Ist zwar nicht optimal, aber bau an der Stelle das Script doch selber zusammen.

Delphi-Quellcode:

...
where a.Adressid in '+MyIdListString+ // <--
'and a.brstatus = 101
and a.adraktiv = ''J'' 
and b.artderarbeit <> ''BR'' 
order by a.Name1, l.datum desc'

Momentan habe ich keine Vorstellung wie man das Script erzeugen soll?

Delphi-Quellcode:

Etwa so mit einer TStringlist und einer While-Schleife:
while i = 0 to Tstringlist.Count - 1 do
begin
 Where a.Adressid in (TStringList[i] + ',) ??????
end;

Das Problem bleibt doch, dass a.AdressID ein Integer-Wert ist.

Ach so: Die Datenbank ist Interbase

[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