Probleme mit SELECT

[Luciano]

Wegen dem Primary Key... OK aber da muß ich einiges umstellen, irgendetwas hatte ich mir dabei gedacht, aber was wohl Naja... mal sehen ob ich das noch hinbekomme...

Jetzt mal so wie ich das gelöst habe... zumindest so wie es einigermaßen funktioniert. Ich hatte nicht alles gepostet, ich wollte eigentlich nur einen Ansatz wissen...

Nachmal vielen Dank für eure Hilfe... Ich hoffe ich kann auch mal helfen aber mein wissen beschränkt sich bis jetzt nur auf Fragen

Hier jetzt das Resultat, ich habe noch eine Tabellen mehr mit eingebracht. Wäre das auch mit einem JOIN gegangen? Nur so als Frage, da es jetzt funktioniert will ich es nicht noch einmal umschreiben... bin etwas unter Zeitdruck

Greets

Luciano

Delphi-Quellcode:

 Anfrage2 := '( SELECT '+
             ' FAKTURIERUNG.KONTRAKT_NR, '+
             ' FAKTURIERUNG.LFDNR, '+
             ' FAKTRELA.FAKTURIER_LFDNR, '+
             ' FAKTRELA.LFDNR, '+
             ' FAKTRELA.RELATION1, '+
             ' VONNACH.FAKTRELA_LFDNR, '+
             ' VONNACH.LFDNR, '+
             ' VONNACH.SUMME, '+
             ' FAKTFAKTOR.VONNACH_LFDNR, '+
             ' FAKTFAKTOR.LFDNR '+
             ' FROM '+
             ' FAKTURIERUNG, FAKTRELA, VONNACH, FAKTFAKTOR '+
             ' WHERE '+
             ' FAKTURIERUNG.KONTRAKT_NR = '+QuotedStr(DataModule1.Q_PARTIEDAMPFKontrakt_nr.Value)+
             ' AND FAKTRELA.FAKTURIER_LFDNR =  FAKTURIERUNG.LFDNR '+
             ' AND VONNACH.FAKTRELA_LFDNR = FAKTRELA.LFDNR '+
             ' AND FAKTFAKTOR.VONNACH_LFDNR = VONNACH.LFDNR )';

      //ShowMessage(Anfrage2);

      with DataModule1.Q_TEST do
        begin
          Close;
          SQL.Clear;
          SQL.Add(Anfrage2);
          Open;
        end;

    with DBGrid21 do
      begin
        Columns.Add;
        Columns[0].FieldName := 'KONTRAKT_NR';
        Columns[0].Title.Caption := 'Kontraktnr.';

        Columns.Add;
        Columns[1].FieldName := 'SUMME';
        Columns[1].Title.Caption := 'Fakturiersatz';

        Columns.Add;
        Columns[2].FieldName := 'RELATION1';
        Columns[2].Title.Caption := 'Relation';
      end;