bin am verzweifeln... select abfragen miteinander kombinieren???

[Serienchiller]

das problem kommt dann wenn ich in eine select anweisung 5! tabellen einbauen muss wie eben hier:

Delphi-Quellcode:

if not frmhaupt.CheckBox1.Checked and frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('select * from zwbilderprogramme z, '+
        'bilder b, programme p,zwbildertags x, tags t '+
        'where ((b.bid=z.bildid and p.pid=z.programmid) ' +
        'and (b.bid=x.bildid and t.tid=x.tagid)) '+
        'and (p.namep containing UPPER(:WERT) or t.namet '+
        'containing upper(:WERT) or x.id is null) order by upper(b.name)');

[DeddyH]

Ob 2, 10 oder 200 Tabellen ist doch syntaktisch egal, das Muster ist immer dasselbe. Du musst da Tippfehler drinhaben oder sowas. Füg doch einfach mal eine nach der anderen Tabelle im JOIN dazu, bis es knallt. Das Statement kannst Du hier posten, dann können wir mal drüberschauen, was da nicht stimmen könnte.

[Serienchiller]

also mit 3 tabellen funktioniert es schonmal hattest recht.

Delphi-Quellcode:

if frmhaupt.CheckBox1.Checked and not frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('select b.* from bilder b left join '+
        'zwbildertags x on x.bildid=b.bid left join tags t '+
        'on t.tid=x.tagid  where (t.namet containing UPPER(:WERT) or b.name '+
        'containing upper(:WERT)) order by upper(b.name)');

nur wie füg ich da jetzt noch die anderen beiden dazu?

[DeddyH]

Na, genauso ("LEFT JOIN Tabelle ON ..." vor der WHERE-Bedingung).

[Jumpy]

Wie wäre es damit, erstmal die maximale Datenmenge zu ermitteln (ggf. als View speichern):

Code:

Select b.*,p.*,t.* From bilder b
Left Join zwbilderprogramme zbp on b.bID = zbp.bildID
Left Join programme p on zbp.programmID = p.pID
Left Join zwbildertags zbt on b.bID = zbt.bildID
Left Join tags t on zbt.tagID = t.tID

Darauf dann dynamisch die Abfrage basteln, weil für alle Kombinationen der Checkboxen eine eigene Abfrage zu basteln ist doch zu aufwendig.

Select bID From
(Select ... [s.o.]])
Where //ab hier dynamisch erzeugen
Or
Or

[DeddyH]

Zitat von Jumpy:

..., weil für alle Kombinationen der Checkboxen eine eigene Abfrage zu basteln ist doch zu aufwendig.

Wie gesagt, muss er ja gar nicht, es ändert sich lediglich die WHERE-Klausel je nach Stand der Checkboxen.

[Jumpy]

Zitat von DeddyH:

Zitat von Jumpy:

..., weil für alle Kombinationen der Checkboxen eine eigene Abfrage zu basteln ist doch zu aufwendig.

Wie gesagt, muss er ja gar nicht, es ändert sich lediglich die WHERE-Klausel je nach Stand der Checkboxen.

OK, dann hab ich was überlesen. Dachte das läuft jetz hinaus auf:

Delphi-Quellcode:

if cb1.Checked and not cb2.Checked and not cb3.Checken then...
if not cb1.Checked and cb2.Checked and not cb3.Checken then...
if not cb1.Checked and not cb2.Checked and cb3.Checken then...
if cb1.Checked and cb2.Checked and not cb3.Checken then...
if cb1.Checked and not cb2.Checked and cb3.Checken then...
if not cb1.Checked and cb2.Checked and cb3.Checken then...
if cb1.Checked and cb2.Checked and cb3.Checken then...

und jedes mal ein eigenes SQL-Statement basteln mit veränderten Tabellen und veränderter Where-Bedingung...

[Serienchiller]

super das werd ich jetzt angehen hab ein gutes gefühl...
wenn es statisch alles funktioniert bau ich mir die dynamik danach rein.

[DeddyH]

Genau, lass die WHERE-Klausel voerst ganz weg, JOINe alle benötigten Tabellen der Reihe nach zusammen und kontrolliere das Ergebnis (das sich nicht ändern sollte). Danach baust Du Dir dynamisch Deinen Filter zusammen und bist fertig.

[edit] @Jumpy: schau nochmal auf der ersten Seite nach, da wurde auch nur die WHERE-Klausel zusammengesetzt. Das einzige Schwierige dabei ist, dass sie halt mit WHERE beginnen muss und danach dann nur noch ORs folgen. Aber das bekommt man mit der in meinem Beispiel verwendeten Boolean-Variable ja in den Griff. [/edit]

[Serienchiller]

so es hat endlich funktioniert. hab auch ein bisl dynamik schon reingebaut. dank dir für deine geduld. das mit dem left join das hätte mir gestern mal jemand sagen müssen...

Delphi-Quellcode:

procedure anzeigen(befehl: String);
begin
  dm.dsetbilder.Close;
  dm.dsetbilder.SelectSQL.Clear;
  if befehl = 'alleanzeigen' then
  begin
    dm.dsetbilder.SelectSQL.Add('select * from bilder b order '+
      'by upper(b.name)');
  end
  else
  begin
    dm.dsetbilder.SelectSQL.Clear;
    dm.dsetbilder.SelectSQL.Add('select b.* from bilder b left join '+
        'zwbildertags x on x.bildid=b.bid left join tags t '+
        'on t.tid=x.tagid left join '+
        'zwbilderprogramme z on z.bildid=b.bid left join programme p '+
        'on p.pid=z.programmid ');

// nur bild
    if frmhaupt.CheckBox1.Checked and not frmhaupt.CheckBox2.Checked and
      not frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where b.name containing upper(:WERT) ');

// nur programm
    if not frmhaupt.CheckBox1.Checked and frmhaupt.CheckBox2.Checked and
      not frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where Upper(p.namep) containing UPPER(:WERT)');

// nur tag
    if not frmhaupt.CheckBox1.Checked and not frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where Upper(t.namet) containing UPPER(:WERT)');

// bild und programm
    if frmhaupt.CheckBox1.Checked and frmhaupt.CheckBox2.Checked and
      not frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where (p.namep containing UPPER(:WERT) '+
        'or b.name containing upper(:WERT)) order by upper(b.name)');

// bild und tag
    if frmhaupt.CheckBox1.Checked and not frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where (t.namet containing UPPER(:WERT) '+
      'or b.name containing upper(:WERT)) order by upper(b.name)');

// programm und tag
    if not frmhaupt.CheckBox1.Checked and frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where (t.namet containing UPPER(:WERT) or '+
        'p.namep containing UPPER(:WERT)) order by upper(b.name)');

// alle 3 zusammen
    if frmhaupt.CheckBox1.Checked and frmhaupt.CheckBox2.Checked and
      frmhaupt.CheckBox3.Checked then
      dm.dsetbilder.SelectSQL.Add('where (t.namet containing UPPER(:WERT) or '+
        'p.namep containing UPPER(:WERT) or b.name containing upper(:WERT)) '+
        'order by upper(b.name)');

    dm.dsetbilder.ParamByName('WERT').AsString := befehl;
  end;
  dm.dsetbilder.Open;
  if dm.dsetbilder.IsEmpty then showmessage('Keine Icons gefunden');
end;