Suche über mehrere Tabellen

[BW19]

DANKE

Delphi-Quellcode:

  with QueryTemp do
  begin
    Active        := False;

     DatabaseName  := asDataDir;

     SQL.Clear;

      DecodeDate(DateTimePickerVon.Date, wYearVon, wMonthVon, wDayVon);
      DecodeDate(DateTimePickerBis.Date, wYearBis, wMonthBis, wDayBis);



      if ((wYearBis - wYearVon) >= 0) then
      begin
        for iDateiJahr := wYearBis downto wYearVon do
        begin
          if ((iDateiJahr = wYearBis) and ((wYearBis - wYearVon) > 0)) then
          begin
            wMonthBisBerechnung := wMonthBis;
            wMonthVonBerechnung := 1;
          end
          else if (iDateiJahr = wYearVon) then
          begin
            wMonthBisBerechnung := 12;
            wMonthVonBerechnung := wMonthVon;
          end
          else if ((wYearVon = wYearBis) and ((wYearBis - wYearVon) = 0)) then
          begin
            wMonthBisBerechnung := wMonthBis;
            wMonthVonBerechnung := wMonthVon;
          end
          else
          begin
            wMonthBisBerechnung := 12;
            wMonthVonBerechnung := 1;
          end;

          for iDateiMonat := wMonthBisBerechnung downto wMonthVonBerechnung do
          begin
            sDateiSuchen   := cs_ProtBuch + cs_ProtBuchTrennzeichen + IntToStr(iDateiMonat) + cs_ProtBuchTrennzeichen + IntToStr(iDateiJahr) +'.DB';
            if FileExists(PfadErweiternAllgemein(asDataDir, True) + sDateiSuchen) then
            begin
              if SQL.Count = 0 then
                SQL.Add('SELECT * FROM "' + sDateiSuchen + '"')
              else
              begin
                SQL.Add('UNION');
                SQL.Add('SELECT * FROM "' + sDateiSuchen + '"')
              end;
            end;
          end;
        end;
      end
      else
      begin
        MessageDlg('Ungültige Datumseingabe', mtError, [mbOK], 0);
        TabellenInEineTabelleKopieren := False;
        sTabelle                      := '';
        Exit;
      end;

Hoff das is verständlich.....
Mit dem Algo is alles abgedeckt was ich brauche
Das alles passiert in ner Funktion die die verschiedenen Tabellen in eine Temp Tabelle hineinkopiert!

Gruss BW

[shmia]

Dann verwende doch UNION ALL, damit die BDE nicht anfangen muss zu sortieren.

[BW19]

Zitat von shmia:

Dann verwende doch UNION ALL, damit die BDE nicht anfangen muss zu sortieren.

Ja aber genau das soll ja nicht so sein das er alle Tabellen anhängt nur die die relevant sind

Oder meinste was anders?

Gruss BW

[DeddyH]

Bitte erst nachlesen, dann meckern UNION filtert Dubletten automatisch heraus (so wie DISTINCT), während UNION ALL dies nicht tut.

[BW19]

O_o

Ich kann und will mich hier nich Battlen mit euch Profis
und meckern tu ich ja nich hat sich ja nur die frage gestellt wieso Union All
weils so wie ichs etz mach funktionierts ja richtig nett

Nachtrag:

Heeee Union All is ja richtig geil gerade nachgelesen in meinem Schlauenbuch

Verwenden Sie das Schlüsselwort UNION, um die Ergebnisse von zwei SELECT-Anweisenungen zu einer Ergebnismenge zu kombinieren. Alle doppelten Zeilen werden aus dem engdgültigen Ergebnis entfernt. Verwenden Sie UNION ALL, um doppelte Zeilen zu bewahren

respekt ^^ erst lesen dann schreiben

Wobei ich dazu sagen muss das es höchstwahrscheinlich keine doppelten geben wird Da in meiner Protokoll-Tabelle 2 Felder sind des eine is ne Einfahrt und das andere ne Ausfahrt beide DateTime und dann noch Das Feld Kartendaten Das den Kompletten spuraufbau einer EC-Karte hat.

Aber sicher ist sicher! Hab das Union All eingefügt zu Entlastung der BDE das natürlich logisch klingt wenn mans weis

Danke ihr seid wiedermal super und ich doof

Aber bin ja lernfähig zumindest hab ihr mich soweit gebracht damit ich nachlese

Gruss BW