Datum Uhrzeit MySQL

[Daniel_Berlin]

Hallo,

ich habe ein Edit Feld indem ich ein Datum und eine Uhrzeit eintragen will, im besten Fall als dd.mm.yyyy hh:mm:ss
Leider habe ich keinen erfolg. ich wäre auch mit yyyy-mm-dd hh:mm.ss zufrieden.

[TraumTaenzerDieter]

Für Inserts / Updates per SQL formatiere ich einen DateTime-Wert mit

dt := quotedstr(FormatDateTime('yyyy-mm-dd hh:nn:ss', datumUhrzeit));
Form2.SQLQuery1.SQL.Text := 'INSERT INTO test (endzeitpunkt) VALUES (' + dt + ')';
und dann
Form2.SQLQuery1.ExecSQL

[af0815]

procedure TForm3.ButtonSpeichernClick(Sender: TObject);
var
stringEndzeitpunkt : string;
stringA : TDateTime;
begin
stringA:= EditEndzeitpunkt.Text;
stringA := StrtoDateTime(stringEndzeitpunkt);

Form2.connectDB;

Form2.SQLQuery1.SQL.Text := 'INSERT INTO test (endzeitpunkt) VALUES (''+stringA+''')';
Form2.closeDB;

Ich verstehe nicht, das jeder auf den Stringgefrickel herumreitet. Wenn das Feld in der DB ein Datetime ist gehts mit Parametern typensicher.

Code: Alles auswählen

procedure TForm3.ButtonSpeichernClick(Sender: TObject);    
 var  
stringEndzeitpunkt : string;
dtA :  TDateTime;
begin
      stringEndzeitpunkt := EditEndzeitpunkt.Text;
      dtA := StrtoDateTime(stringEndzeitpunkt);        

 Form2.connectDB;
 Form2.SQLQuery1.Active := false;
 Form2.SQLQuery1.Clear;
try
 Form2.SQLQuery1.SQL.Text := 'INSERT INTO test (endzeitpunkt) VALUES (:sqldta)';
 Form2.SQLQuery1.Params.CreateParam(ftDateTime, 'sqldta', ptInput);
 Form2.SQLQuery1.ParamByName('sqldta').AsDateTime := dtA; 
 Form2.SQLQuery1.ExecSQL;
except
 on E:Exception do begin
    Debugln({I %FILE% + '->' + {I %CURRENTROUTINE%} + ' Exception =>'+ E.Message);
 end;
end; 
....

[Daniel_Berlin]

Ich hab jetzt mal deinen Quellcode genommen, jetzt bekomme ich aber die Fehlermeldung:
Identifier not found ftDateTime
und
Identifier not found ptInput

[af0815]

Dir fehlt in den uses DB (reicht normaerweise im implementationsteil)

Bei google einfach lazarus createparam eingegeben und als 3ten Eintrag

https://www.freepascal.org/docs-html/cu ... param.html

gefunden. Und dort gibt es den Hinweis auf db.pas

[Socke]

Ich hab jetzt mal deinen Quellcode genommen, jetzt bekomme ich aber die Fehlermeldung:
Identifier not found ftDateTime
und
Identifier not found ptInput

Bitte die Unit DB in die uses-Klausel aufnehmen.

[Daniel_Berlin]

sorry, hatte gerade noch was zu tun.

Hat super funktioniert.

[Daniel_Berlin]

Das hat super funktioniert, aber jetzt hab ich mit der Einstellung ein kleines anderes Problem:
Der folgende Befehl funktioniert nur, wenn in dem Feld Endzeitpunkt es drin steht, wenn es leer ist bekomm ich die Meldung " '' is not a valid date format"
Die Else if Bedingung funktioniert, nur der erste Teil bereitet schwierigkeiten

[af0815]

was willst da machen? Das sieht aus als wäre es wild zusammengeklickt.

Einmal update, einmal insert. Im insert einen Fehler drinnen, so das der nicht funktionieren kann. In dem einen Zweig ein ConnectDB im anderen nicht. Zusätzlich ein stringA der boolean ist. Wie wird der zugewiesen?

Meine Glaskugel ist momentan trübe. Kannst du mehr vom Code zeigen, nicht das man alles Erraten muss, was du wirklich willst.

[Daniel_Berlin]

Ich gebe dir mal meinen ganzen Code, dort sind die Variablen aber anders. Ich wollte einen gekürzten Code bereitstellen, damit es übersichtlicher wird.
StringA entspricht strinOrderNeu und wird auf true gesetzt, wenn ein Button geklickt wird.
es geht um die procedure ButtonSpeichernClick

[af0815]

Du hast im Code folgendes:

Code: Alles auswählen

 IF (stringOrderNeu = false) THEN
 begin
  Form2.connectDB;
  Form2.SQLQuery1.SQL.Text := 'Update kauforder SET endzeitpunkt = current_timestamp(), stornierzeitpunkt = current_timestamp(), ist_ausgefuehrt = "0" WHERE order_id ='''+stringOrder_ID+''';';
  Form2.SQLQuery1.Params.CreateParam(ftDateTime, 'current_timestamp', ptInput);
  Form2.SQLQuery1.ParamByName('current_timestamp').AsDateTime := endzeit;
  Form2.closeDB;

Das Problem ist, das du current_timestamp nicht als Parameter in dem SQL-Text definierst, sondern als eine interne Funktion des Servers.

Code: Alles auswählen

 IF (stringOrderNeu = false) THEN
 begin
  Form2.connectDB;
  Form2.SQLQuery1.SQL.Text := 'Update kauforder SET endzeitpunkt = :SQLendzeitpunkt , stornierzeitpunkt = :SQLstornierzeitpunkt , ist_ausgefuehrt = "0" WHERE order_id =:SQLOrderID;';
  Form2.SQLQuery1.Params.CreateParam(ftDateTime, 'SQLendzeitpunkt ', ptInput);
  Form2.SQLQuery1.ParamByName('SQLendzeitpunkt ').AsDateTime := endzeit;
  Form2.SQLQuery1.Params.CreateParam(ftDateTime, 'SQLstornierzeitpunkt ', ptInput);
  Form2.SQLQuery1.ParamByName('SQLstornierzeitpunkt ').AsDateTime := endzeit;
  Form2.SQLQuery1.Params.CreateParam(ftString, 'SQLOrderID', ptInput);
  Form2.SQLQuery1.ParamByName('SQLOrderID').AsString := stringOrder_ID;
  Form2.closeDB;

[Daniel_Berlin]

Super. das hat geklappt.

[sstvmaster]

...

Code: Alles auswählen

 IF (comboMarktteilnehmer.Text ='Müller') THEN
    Begin
     stringMarktteilnehmer:='1';
    end
    else IF (comboMarktteilnehmer.Text ='Meier') THEN
    Begin
    stringMarktteilnehmer:='2';
    end
    ELSE IF (comboMarktteilnehmer.Text ='Lehmann') THEN
    Begin
     stringMarktteilnehmer:='3';
    end
    ELSE IF (comboMarktteilnehmer.Text ='Schmidt) THEN
    Begin
    stringMarktteilnehmer:='4';
    end;
...

Du kannst das auch so machen:

Code: Alles auswählen

  case comboMarktteilnehmer.Text of
    'Müller': stringMarktteilnehmer:='1';
    'Meier': stringMarktteilnehmer:='2';
    'Lehmann': stringMarktteilnehmer:='3';
    'Schmidt': stringMarktteilnehmer:='4';
  { // zur Sicherheit kann man hier auch mit else einen anderen Wert schreiben wenn keine Übereinstimmung gefunden wurde.
  else
    stringMarktteilnehmer:='0';
  }
  end;

Das ist dann übersichtlicher.

[Daniel_Berlin]

Super. das hat geklappt.

[Daniel_Berlin]

alles wieder gut