Auslesen von Daten / Rechnung mit Datum

[Jumpy]

Da das ja eine starre Abfrage zu sein scheint (immer 5 Tage Vorschau) dann würde ich da nicht mit Parametern arbeiten sondern mit einem reinen SQL-Statement, das wenn nötig zusätzlich das Datum von einem String in ein Datum umwandelt, also:

SQL-Code:

SELECT * FROM Print_Auftrag WHERE ConvertiereInDatum(Fertig) BETWEEN CURDATE() AND CURDATE()+5

"ConvertiereInDatum" steht für eine entsprechende Funktion deiner Datenbank, konnte jetzt nicht finden, was ihr einsetzt. Könnte z.B. "Convert" in MS SQL sein, TO_DATE in Oracle, usw.

Dann würde ich mir das ganze geraffel mit den Variablen schenken, da die eh nur aus einem Buchstaben bestehen, der nix erklärt hat das keinen Mehrwert. Wenn man das "With" mal drin läßt, fände ich sowas lesbarer:

Delphi-Quellcode:

with ListView1.Items.Add do begin
      Caption:=SQLQuery1.FieldByName('ID').AsString;
      SubItems.Add(SQLQuery1.FieldByName('Irgendwas').AsString);
      //usw.

Und last but not least würde ich für so eine "abgeschlossene" Funktion nicht eine Query verwenden, die ich eh gerade auf dem Form rumliegen habe und so wieder verwende sondern ich würde mir innerhalb der Prozedur eine Query erzeugen, SQL zuweisen, ausführen, Query wieder freigeben.

[ironman139]

Ok dann werde ich mich mal damit befassen wie ich das umstellen kann.

So sieht jetzt mein Code sehr unschön aus, das müsste ich jetzt noch 4 mal wiederholen für -4, -3,...

Code:

begin

  datumheute := date;
  datumheute := IncDay(datumheute, -5);


  ListView1.Items.Clear;
    SQLTransaction1.commit;
       SQLQuery1.Close;
    SQLQuery1.SQL.Text := 'SELECT * FROM Print_Auftrag WHERE Ferig LIKE :Fertig';

  SQLQuery1.Params.ParamByName('Fertig').AsString := DateToStr(datumheute);
   SQLQuery1.Open;

    while not SQLQuery1.Eof do
             begin
     with ListView1.Items.Add do begin
      Caption:=(SQLQuery1.Fields[0].AsString);
      SubItems.Add(SQLQuery1.Fields[2].AsString);
      SubItems.Add(SQLQuery1.Fields[3].AsString);
      SubItems.Add(SQLQuery1.Fields[9].AsString);
      SubItems.Add(SQLQuery1.Fields[15].AsString);
      SubItems.Add(SQLQuery1.Fields[11].AsString);
      SubItems.Add(SQLQuery1.Fields[19].AsString);
   end;
        SQLQuery1.Next;

end;

[jobo]

Zitat:

Zitat von ironman139 (Beitrag 1459411)

Ok dann werde ich mich mal damit befassen wie ich das umstellen kann.

Gut!

Zitat:

Zitat von ironman139 (Beitrag 1459411)

So sieht jetzt mein Code sehr unschön aus, das müsste ich jetzt noch 4 mal wiederholen für -4, -3,...

Nein, eine Abfrage für alle Tage von Heute bis Heute+5 Tage!

Die 5-malige Wiederholung von Code ist natürlich möglich, aber eine denkbar schlechte Variante. Jumpy hat 2 weiter oben erklärt wie es ohne Parameter geht.

[ironman139]

Zitat:

Zitat von Jumpy (Beitrag 1459394)

Da das ja eine starre Abfrage zu sein scheint (immer 5 Tage Vorschau) dann würde ich da nicht mit Parametern arbeiten sondern mit einem reinen SQL-Statement, das wenn nötig zusätzlich das Datum von einem String in ein Datum umwandelt, also:

SQL-Code:

SELECT * FROM Print_Auftrag WHERE ConvertiereInDatum(Fertig) BETWEEN CURDATE() AND CURDATE()+5

"ConvertiereInDatum" steht für eine entsprechende Funktion deiner Datenbank, konnte jetzt nicht finden, was ihr einsetzt. Könnte z.B. "Convert" in MS SQL sein, TO_DATE in Oracle, usw.

Dann würde ich mir das ganze geraffel mit den Variablen schenken, da die eh nur aus einem Buchstaben bestehen, der nix erklärt hat das keinen Mehrwert. Wenn man das "With" mal drin läßt, fände ich sowas lesbarer:

Delphi-Quellcode:

with ListView1.Items.Add do begin
      Caption:=SQLQuery1.FieldByName('ID').AsString;
      SubItems.Add(SQLQuery1.FieldByName('Irgendwas').AsString);
      //usw.

Und last but not least würde ich für so eine "abgeschlossene" Funktion nicht eine Query verwenden, die ich eh gerade auf dem Form rumliegen habe und so wieder verwende sondern ich würde mir innerhalb der Prozedur eine Query erzeugen, SQL zuweisen, ausführen, Query wieder freigeben.

OK. die Variablen sind schon draußen.
Ich verwende eine MariaDB 10

Für die MariaDB ist die Konvertierung TO_DATE oder STR_TO_DATE.
In den ganzen Beispielen ist das Str Datum aber anderst getrennt (05-03-2020) bei mir ist es aber durch Punkte getrennt.

Ich glaube es führt kein weg vorbei das Format auf Date zu stellen.
Dazu in phpMyAdmin einfach das Format für die Spalte ändern? Und meinen Code anpassen ?
Momentan setze ich mit einem DateTimePicker das Datum in ein Edit Feld und schreib dieses dann in die Datenbank.

Das System selber programmier ich bereits seit 2 Jahren.
Die Datenbank enthält 6000 Aufträge. Daher sollte es halbwegs reibungslos funktionieren.

[Jumpy]

Bei str_to_date solltest du als 2. Parameter angeben, in welchem Format dein Datum in dem String vorliegt. Hier mal mein erster Google Treffer dazu:

https://www.w3schools.com/sql/func_m...tr_to_date.asp

also

str_to_date(Fertig, "%d.%m.%Y")

[p80286]

Zitat:

Zitat von ironman139 (Beitrag 1459420)

In den ganzen Beispielen ist das Str Datum aber anderst getrennt (05-03-2020) bei mir ist es aber durch Punkte getrennt.

Chic ist das jetzt Amerikanisches oder deutsches Format?
Wenn schon ein Datum als Text dann wenigstens das ISO-Format (2020-02-02 = 20.Februr 2020!)

Gruß
K-H

[haentschman]

Zitat:

dann wenigstens das ISO-Format (2020-02-02 = 20.Februr 2020!)

..ist das ne Fangfrage? :stupid: Oder Kontrolle ob das wirklich einer liest? :wink:

ISO: YYY-MM-TT

[hhcm]

Zitat:

Zitat von haentschman (Beitrag 1459624)

ISO: YYY-MM-TT

Fast

[haentschman]

:oops: die Batterie war leer...:P

[hhcm]

Im übrigen kannst du folgendes machen

Code:

// Neues Feld anlegen
ALTER TABLE Print_Auftrag ADD COLUMN Fertig_neu DATETIME NULL DEFAULT NULL;

// Daten von Fertig in Fertig_Neu konvertieren
UPDATE Print_Auftrag SET Fertig_Neu = STR_TO_DATE(Fertig, "%d.%m.%Y");

Kontrollieren ob die Datumsfelder richtig sind

Code:

// Altes Feld löschen
ALTER TABLE Print_Auftrag DROP COLUMN Fertig;

// Neues Feld in alten Feldnamen umbenennen
ALTER TABLE Print_Auftrag CHANGE COLUMN Fertig_neu Fertig DATETIME NULL DEFAULT NULL;

Jetzt musst nur "nur" noch deinen Code anpassen. .AsString geht immer noch, sieht nur anders aus.