Problem mit Devart MyDac

[juelin]

Hallo Gemeinde,

Delphi 10.3 Community Edition.
Windows 10
Devart MyDac 10.0.1
Datenbank MySql MariaDB

bin am verzweifeln.
Die Procedure hat immer funktioniert und jetzt nicht mehr.
Will ein Feld (Systole) in der Tabelle vital ändern.
Geht aber nicht.

Delphi-Quellcode:

          Form1.MyCommand1.SQL.Clear;
          Form1.MyCommand1.SQL.Add('UPDATE vital SET Systole=:Sys WHERE Nachname=:Nac AND Vorname=:Vor AND Geburtsdatum=:Geb AND Datum=:Dat AND Uhrzeit>=:Uhr1 AND Uhrzeit<=:Uhr2');
          Form1.MyCommand1.ParamByName('Sys').Name:='Sys';
          Form1.MyCommand1.ParamByName('Sys').DataType:=ftInteger;
          Form1.MyCommand1.ParamByName('Sys').Value:=e3sys;
          Form1.MyCommand1.ParamByName('Nac').Name:='Nac';
          Form1.MyCommand1.ParamByName('Nac').DataType:=ftString;
          Form1.MyCommand1.ParamByName('Nac').Value:=e3nn;
          Form1.MyCommand1.ParamByName('Vor').Name:='Vor';
          Form1.MyCommand1.ParamByName('Vor').DataType:=ftString;
          Form1.MyCommand1.ParamByName('Vor').Value:=e3vn;
          Form1.MyCommand1.ParamByName('Geb').Name:='Geb';
          Form1.MyCommand1.ParamByName('Geb').DataType:=ftDateTime;
          Form1.MyCommand1.ParamByName('Geb').Value:=e3geb;
          Form1.MyCommand1.ParamByName('Dat').Name:='Dat';
          Form1.MyCommand1.ParamByName('Dat').DataType:=ftDateTime;
          Form1.MyCommand1.ParamByName('Dat').Value:=e3dat;
          Form1.MyCommand1.ParamByName('Uhr1').Name:='Uhr1';
          Form1.MyCommand1.ParamByName('Uhr1').DataType:=ftDateTime;
          Form1.MyCommand1.ParamByName('Uhr1').Value:=h8;
          Form1.MyCommand1.ParamByName('Uhr2').Name:='Uhr2';
          Form1.MyCommand1.ParamByName('Uhr2').DataType:=ftDateTime;
          Form1.MyCommand1.ParamByName('Uhr2').Value:=h9;
          Form1.MyCommand1.Execute;
          if SqlRet then
          begin

SqlRet ist der Rückgabewert (Result) aus TForm1.MyCommand1AfterExecute(Sender: TObject; Result: Boolean);
SqlRet ist TRUE

Der Wert Systole in Datenbank ist vorher und nachher 135.
Wert e3sys (im Parameter sys) ist aber 137
Alle anderen Paramerterwerte sind in Ordnung.
Nach Execute ist der Wert Systole in Datenbank immer noch 135.

Hat jemand eine Idee was das ist?
Oder wie man das testen kann?

Danke und Gruß
Jürgen

[blawen]

Wird der Datensatz wirklich gefunden oder existieren mehrere, welche auf die Bedingung zutreffen?
Als kritisch sehe ich hier die Uhrzeit!

Code:

UPDATE vital SET Systole=:Sys WHERE Nachname=:Nac AND Vorname=:Vor AND Geburtsdatum=:Geb AND Datum=:Dat AND Uhrzeit>=:Uhr1 AND Uhrzeit<=:Uhr2

Generell würde ich den Zeitraum so angeben

Code:

DATUM BETWEEN :Datum_Start AND :Datum_Ende

[juelin]

es gibt nur einen Datensatz mit Datum = 2.1.2000 und Uhrzeit = 14:00:00
Datum in e3dat ist 2.1.2000
Uhrzeit in Uhr1 = 14:00:00 und Uhr2 = 14:00.59

[juelin]

Problem ist die Ujrzeit.
Wenn ich die Uhrzeit in der WHERE-Klause weglasse, so funktioniert der Update.
Das geht aber nur weil es zu dem Datum nur einen Satz in der Datenbank gibt.
Was ist wenn es mehrere Datensatze zu einem Datum gibt?

[hoika]

Hallo,
mach mal aus dem Update- einen Select-Befehl

Select * From vital WHERE Nachname=:Nac AND Vorname=:Vor AND Geburtsdatum=:Geb AND Datum=at AND Uhrzeit>=:Uhr1 AND Uhrzeit<=:Uhr2');

[scrat1979]

Ich habe mit AbsoluteDatabase in meinem Terminplaner ein ähnliches Phänomen was letztendlich mit einem Rundungsfehler von TDateTime (Uhrzeit ist ja die nachkommestelle) zusammenhängt. Damit schlägt zum Beispiel der Vergleich „14:00:00“ aus der Datenbank = „14:00:00“ über EncodeDatetime fehl. Habe ewig gebraucht um den Fehler zu finden. Ich berechne mir nun in einer eigenen Funktion (über EncodeDateTime und YearOf, MinuteOf etc.) den TDateTime-Wert neu und vergleiche dann den berechneten Wert. Somit ist der „Rundungsfehler“ identisch und der Vergleich gelingt. Performance-Einbußen im merklichen Bereich habe ich bei ca. 3000 Datensätzen, welche so in einem Wisch neu berechnet werden, nicht.

Ob dir dies weiterhelfen wird weiß ich nicht, aber ich wollte dir meine Erfahrung nicht vorenthalten.

[Neumann]

Würde Uhr1 mal auf 13:59 setzten, geht das?

[juelin]

Hallo scrat1979
ich glaube Du hast recht.
Aber irgendwie funktioniert es nicht bei mir.
Habe mit EncodeTime gearbeitet.
Kannst Du mir mal ein Beispiel senden.
Danke und Gruß
Jürgen