Einzelnen Beitrag anzeigen

Benutzerbild von tschinkes
tschinkes

Registriert seit: 29. Jun 2004
Ort: Mannheim
29 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: ADO / DBGrid / Query / mehrere Tabellen

  Alt 7. Jul 2008, 21:57
*lol gott sei dank bin ich mit der ansicht nicht alleine *fg, allein die SELECT Anweisung weiter oben ist ja schon pervers

Naja wenns ne einfachere Lösung gibt wäre ich echt dankbar dafür.

Also mit der LIKE Anweisung hab ich auch schon probiert, gibt eine Exception, irgendwo muss es da rein aber ich weiß nicht wo Oo

Mein Ansatz ist wie folgt:

Delphi-Quellcode:
  with DataModule1.ADOQueryGrid do
  begin
    Active := FALSE;
    SQL.Clear;
    SQL.add ('SELECT *, iif(Leihe.Platte IS NULL,''Nein'',''Ja'') AS Ausleihe' +
                'FROM ((((Platte AS t1' +
                'INNER JOIN Interpret AS t2 ON t1.interpret = t2.id)' +
                'INNER JOIN Label AS t3 ON t1.label = t3.id)' +
                'INNER JOIN Stil AS t4 ON t1.stil = t4.id)' +
                'INNER JOIN Qualität AS t5 ON t1.qualität = t5.id)' +
                'LEFT JOIN (SELECT DISTINCT Platte'+
                'FROM Leihe WHERE t1.CODE = :suchid) Leihe'+
                'ON t1.id = Leihe.platte');
    ParamCheck := true;
    Parameters.ParamByName('suchid').Value := Edit1.Text;
    Open;
    end;
  end;
Tobi
"Let´s fetz", sagte der Spatz und sprang in den Mixer

Delphi 7 Enterprise inkl. JEDI / WinXP / Lahme Kiste als PC
http://www.kraft-internet.de
  Mit Zitat antworten Zitat