SQlite SQL Abfrage mit Datumsformat

[RSO]

Hallo,

ich experimentiere mit SQlite und habe eine kleine Datenbank aufgebaut.
Bis jetzt hat die Umsetzung ganz gut funktioniert.
Nun mochte ich in der SQL-Abfrage die Datenfelder von der Form1 (edit5.text und edit6.text) als Variable -> Datumvon und Datumbis verwenden.
Schreibe ich das Datum im Klartext z.B. 2022-08-01 funktioniert die Abfrage. Wie muß ich die Datumsfelder für den Select
formatieren?
Das Datenfeld Datum ist zur Zeit VarChar, kann aber geändert werden. (SQlite akzeptiert ja alles

Vielen Dank im Voraus für Eure Hilfe.

Code: Alles auswählen

procedure TForm1.ZeitraumAbfrage;
var
  Datumvon : String;
  Datumbis : String;
begin
  Datumvon := edit5.Text;
  Datumbis := edit6.Text;

  SQLQuery1.close;
  SQLQuery1.sql.clear;
  SQLite3Connection1.Connected := true;
  SQLQuery1.sql.clear;
  SQLQuery1.sql.text := 'select sum(betrag) from tabelle1 where Gruppe = 2 AND Datum >= Datumvon OR Datum <= Datumbis';
  SQLQuery1.active := true;
  summeLabel.caption := Form1.SQLQuery1.FieldByName('Sum(Betrag)').asString;
 // LoadData;
  SQLQuery1.open;
  DBGrid1.datasource := DataSource1;

  DBGrid1.autofillcolumns := true;
 end;            

[RSO]

So funktioniert die SQL mit Datumsübernahme aus einem Edit.txt

Code: Alles auswählen

procedure TForm1.ZeitraumAbfrage;
var
  von, bis :String;
  Datumvon : String;
  Datumbis : String;
begin
  von := edit5.Text;
  bis := edit6.Text;

  SQLQuery1.close;
  SQLQuery1.sql.clear;
  SQLite3Connection1.Connected := true;
  SQLQuery1.sql.clear;
  SQLQuery1.sql.text := 'select sum(betrag) from tabelle1 where Gruppe = 2 AND Datum >= :Datumvon OR Datum <= :Datumbis';
  SQLQuery1.ParamByName('Datumvon').asString := von;
  SQLQuery1.ParamByName('Datumbis').asString := bis;

  MessageDlg('meld  ' + von, mtConfirmation, mbYesNo,0);

  SQLQuery1.active := true;
  summeLabel.caption := Form1.SQLQuery1.FieldByName('Sum(Betrag)').asString;
 // LoadData;
  SQLQuery1.open;
  DBGrid1.datasource := DataSource1;

  DBGrid1.autofillcolumns := true;
 end;              

[Epcop]

Statt

Code: Alles auswählen

Datum >= :Datumvon OR Datum <= :Datumbis

Besser das?

Code: Alles auswählen

(Datum >= :Datumvon AND Datum <= :Datumbis)

Und bei den Eingabefelder Edit5 und Edit6 musst du aufpassen, dass das Datumsformat korrekt eingegeben wird ("2.9.22" o.ä. führt wahrscheinlich zu Problemen). Evtl. überprüfen oder diesen Datepicker zur Eingabe nehmen.

[af0815]

Ein Datum sollte immer ein Datum sein und kein String. Das macht später immer Probleme wenn man es nicht vermutet. Mir ist schon klar das gerade SQLite da ein gestörtes Verhältnis hat und so ziemlich alles als String akzeptiert.

Sqlite kann das Datum auf 3 verschieden Weisen verwalten siehe http://www.sqlite.org/matrix/datatype3.html .

Wenn du String verwendest, so muss du es immer im ISO8601 Format machen und bist auch selbst dafür verantwortlich. Lazarus mit seinen TDateTime Funktionen wird dich beim String nicht unterstützen. Überlege dir gut, welchen Tiger du da am Schwanz ziehst.

[charlytango]

Ein Datum sollte immer ein Datum sein und kein String.

kann da af0815 nur zustimmen. Auch in SQLite definiere ich Datumsfelder immer als DATE.
Dann klappt es auch falls ich auf die irre Idee kommen sollte mal die Datenbank zu wechseln.
Und warum sollte ich mir Probleme einhandeln wollen die durch die Lazarus Zugriffskomponenten (oder auch durch ZEOS) bereits verlässlich gelöst wurden?

[RSO]

Hallo,

vielen Dank für die Hilfestellung.

Das Feld Datum baue ich auf Date um.
Und für die Datumseingabe habe ich eine kleine
Konvertierungsfunktion geschrieben.

Code: Alles auswählen

SQLQuery1.sql.text := 'select sum(betrag) from tabelle1 where Gruppe = 2 AND Datum >= :Datumvon OR Datum <= :Datumbis';
  SQLQuery1.ParamByName('Datumvon').asString := von;
  SQLQuery1.ParamByName('Datumbis').asString := bis;   

Diese Umwandlung der Datentypen und Einbau in die SQL-Abfrage ist gewöhnungsbedürftig.

[af0815]

Gewöhnungsbedürtig ja, vielleicht. Nur mit dem blöden String kannst du ganz rasch 'unerklärliche' Probleme haben, nur weil dein Kollege, Freund, whatever eine andere Einstellung im System hat und das Datum halt anders ein gibt. Boom und dann suche mal

Geil sind so Sachen, wenn ein chinesicher Computer mit deutschen Einstellungen läuft unter Windows läuft - echt geil Das bringt amerikanosche Administratoren zum Weinen, wenn das aufgrund der Software so sein muss. Hehe alles schon erlebt.

[shokwave]

Eine Frage an die SQL-Profis:Sollte "BETWEEN" nicht auch gehen und leserlicher sein?

Code: Alles auswählen

SQLQuery1.sql.text := 'select sum(betrag) from tabelle1 where Gruppe = 2 AND Datum BETWEEN :Datumvon AND :Datumbis';
  SQLQuery1.ParamByName('Datumvon').asString := von;
  SQLQuery1.ParamByName('Datumbis').asString := bis;

[af0815]

Eine Frage an die SQL-Profis:Sollte "BETWEEN" nicht auch gehen und leserlicher sein?

Antwort von Radio Eriwan: Im Prinzip ja

Ob Between funktioniert hängt davon ab, ob das SQL der DB das unterstützt. Da gibt es zwischen den Systemen beträchtliche Unterschiede.

Grundlegend sollte es mit numerischen Werten bei SQLite gehen. Siehe u.a. https://www.sqlitetutorial.net/sqlite-between/ aber sicher nicht mit Strings.

[RSO]

Hallo,

in diesem Fall funktioniert between nicht. Habe ich schon ausprobiert,
Die SQL Abfragen kann man auch sehr schön mit dem SQLite Browser
ausprobieren.

[Epcop]

Warum keine Klammern verwenden?