Unterschiedliche Datensätze selektieren

[HPB]

Guten Tag Delphianer,
ich möchte aus einer Tabelle einzelne Datensätze selektieren.

Z. B. befinden sich in einer Tabelle die Datensätze:

Key Artikelnummer Artikelanme
1 Artikel1 Irgendetwas
2 Artikel56 Nochwas
3 Artikel89 Anderer Artikel
4 Artikel100 Zuerst
5 Artikel899 Immer
6 Artikel34456 Verschieden
7 Artikel111 Nicht den
8 Artikel000 Dies und das
usw.

Ich möchte nun z. B. die Datensätze 1, 3, 4, 6, 7, 118 zusammen auswählen
um sie mit Fastreport auszudrucken.

Aber wie selektiere ich nun diese Datensätze?
Mit select * from artikel where ??? kann ich die Datensätze ja nicht filtern.

Ich könnte der Tabelle eine neue Spalte "drucken J/N" hinzufügen und dann
auf dieses Feld abfragen where drucken = J .

Aber vielleicht kennt noch jemand eine andere Lösung?

Mit Gruß

HPB

[Sir Rufo]

1. Temporäre Tabelle mit den ausgewählten IDs füllen und dann damit die Abfrage gestalten
2. ClientDataSet mit den ausgewählten IDs füllen und dann per MasterDetail-Verbindung nur die markierten Sätze verwenden
3. ClientDataSet mit den kompletten ausgewählten Sätzen füllen und die dem Report geben

[himitsu]

WHERE Key IN (1, 3, 4, 6, 7, 118) oder denke ich da jetzt zu falsch?

Wie entscheidest du eigentlich was gedruckt werden soll, also wo kommen die Keys her?

[HPB]

Zitat von himitsu:

WHERE Key IN (1, 3, 4, 6, 7, 118) oder denke ich da jetzt zu falsch?

Wie entscheidest du eigentlich was gedruckt werden soll, also wo kommen die Keys her?

Danke an Euch beiden.
Den Vorschlag von Sir Rufo werde ich noch testen.

Zu himutsu:
Ich stelle die Daten in einem VirtualStringTree mit einer CheckBox dar.
Nun kann ich jeden zu druckenden DS aktivieren (CheckBox = Checked)
Im Node des VirtualStringTree ist der PrimaryKey der Tabelle mit hinterlegt.
Dein Vorschlag mit WHERE Key IN (1, 3, 4, 6, 7, 118) sieht doch sehr viel versprechend aus. Muss ich aber noch prüfen.
Vielen Dank nochmals
HPB

[himitsu]

Selektierte Items durchgehen und die IDs mit Komma in einem String zusammenhängen.
Alternativ die IDs in eine Liste/Array und dann eine Funktions, welche die Einträge (Integer/String) mit Kommas zu einem Strig verbindet.
z.B. eine TStringList -> Add(IntToStr(Key)) > CommaText

Query.SQL := '... WHERE Key IN (' + KommaListe + ')'
oder

Delphi-Quellcode:

Query.SQL := '... WHERE Key IN (&KommaListe)';
Query.MacroByName('KommaListe').Value := KommaListe;

[HPB]

Zitat von himitsu:

Selektierte Items durchgehen und die IDs mit Komma in einem String zusammenhängen.
Alternativ die IDs in eine Liste/Array und dann eine Funktions, welche die Einträge (Integer/String) mit Kommas zu einem Strig verbindet.
z.B. eine TStringList -> Add(IntToStr(Key)) > CommaText

Query.SQL := '... WHERE Key IN (' + KommaListe + ')'
oder

Delphi-Quellcode:

Query.SQL := '... WHERE Key IN (&KommaListe)';
Query.MacroByName('KommaListe').Value := KommaListe;

Danke himitsu,
ich habe es gerade mal ausprobiert.
Mit dem SQL-Befehl:

Delphi-Quellcode:

select * from ksopreise
where ksoid IN (323933, 94970, 504926)

bekomme ich das korrekte Ergebnis.
Es ist gelöst!

Gruß
HPB