Datum vergleichen

[Barzy2x]

Danke, das läuft. Zwar meldet delphi einen Fehler wenn es keine passenden datensätze findet, aber das kann ich sicher mit einer TRY EXCEPT bedingung abfangen.

[MrSpock]

Hallo Barzy2x,

welchen Fehler meldet Paradox denn? Dass keine Datensätze gefunden werden ist ja kein Fehler, sondern wird durch eine leere Datenmenge gekennzeichnet, also könnte noch woanders ein Wurm drin sein.

[Barzy2x]

Es wird ein, meiner Meinung nach, recht ungewöhnlicher Fehler gemeldet:
Ungültiges Schlüsselwort Symbolstring SELECT. Dies wird gemeldet wenn keine Datensätze gefunden werden und wenn die Abfrage ein zweites Mal ausgeführt wird.

[MrSpock]

Hallo Barzy2x,

ich denke es ist eher umgekehrt: Es wird eine leere Datenmenge angezeigt, weil das SQL Statement nicht korrekt ist. Poste doch mal den aktuellen Code, der der SQL Eigenschaft seinen Inhalt gibt.

[Barzy2x]

Das Problem liegt nicht darin das eine leere Datenmenge angezeigt wird. Die SQL Anweisung zeigt beim ersten Ausführen Datensätze an, wenn diese vorhanden sind. Wenn ich diese Abfrage jedoch nochmal starte wird der oben beschriebene Fahler angezeigt. Folgenden Code benutze ich zur Abfrage

Code:

procedure TTerminVerwaltung.BitBtn1Click(Sender: TObject);
begin

DatenbankOeffnen.Edit1.Text = 'Testtabelle.db'
Query1.ParamByName('CurDate').AsDate := date;
Query1.SQL.Add('SELECT Uhrzeit,Datum,Beschreibung FROM TestTabelle WHERE datum < :CurDate')
Query1.Open;
END;

Muss ich eventuell diese Abfrage in irgendeiner Form schließen, damit beim zweite Zugriff kein Fehler gemeldet wird?

[harrybo]

Hi Barzy2x,
bei einem erneuten Aufruf einer Abfrage sollte diese, falls geöffnet zunächst geschlossen werden. Dein Problem liegt aber daran, dass das Property SQL eine Liste ist, und Du bei jedem Add dort eine Zeile hinzufügst. Beim erneuten Aufruf sollte daher die Liste gecleart werden, allerdings nur, wenn das SQL Statement sich ändert, ansonsten kann die Zeile einfach raus. Also:

Code:

procedure TTerminVerwaltung.BitBtn1Click(Sender: TObject); 
begin 
  with Query1 do begin
    if Active then
      Close;
    DatenbankOeffnen.Edit1.Text = 'Testtabelle.db' 
    ParamByName('CurDate').AsDate := date;
    // nur wenn sich SQL ändert  
    // SQL.Clear;
    // SQL.Add('SELECT ...') 
    Open; 
  end
end;

Als Hinweis noch: die Zeile DatenbankOeffnen.Edit1.Text = 'Testtabelle.db' wird unnötigerweise bei jeder Aktualisierung der Abfrage durchlaufen und ist daher hier nicht gut platziert. Für das Requery bietet sich eine eigene Routine an, an die als Parameter den variablen Wert der Abfrage, also den Parameter der Abfrage erhält:

Code:

procedure RequeryQuery1(ADate: TDateTime);
begin
  with Query1 do try
    DisableControls; //friert eventuelle Anzeig in Grid o.ä. ein
    if Active then
      Close;
    ParamByName('CurDate').AsDate := ADate;
    Open;
  finally
    EnableControls;
  end;
end;

Dann sähe Dein ButtonClick so aus:

Code:

procedure TTerminVerwaltung.BitBtn1Click(Sender: TObject); 
begin 
  DatenbankOeffnen.Edit1.Text = 'Testtabelle.db';
  RequeryQuery1(date);
end;

Vorteil dabei: Du kannst jederzeit per Code die Abfrage aktualisieren und die Routine macht auch wirklich nur, was draufsteht.

gruß, harrybo