Hallo Gemeinde
ich versuche per SQL ein Datum in die Datenbank zu schreiben, was gelingt, aber das Datum ist flasch.
Es ist nicht 2017 sondern 2014!
Hat jemand eine Ahnung was ich Falsch mache?
Ich verwende Libre als frondend und Mysql als Backend.
Die Tabelle ist als Date formatiert.
Im Basic Editor beobachte ich die Variable RDatum, die den richtigen Datumswert anzeigt.
Also von Heute steht in der Variable 17.08.2017.
Jedoch in der Datenbank kommt 17.08.2014 an.
Oder gibt es eine bequemere Möglichkeit das Tages aktuelles Datum einzusetzen?
Habe den rest vom Makro natürlich nicht mit kopiert, sondern nur den Part worauf es ankommt.
Danke
Code
Code: Alles auswählen
Dim Rdatum as Date
Rdatum =Date()
'Iid = oForm.getByName(IidField).text
oDoc = ThisComponent
'oForm = oDoc.drawpage.forms.getbyindex(0)
oConnection = oForm.activeconnection
SQL_Statement = oConnection.CreateStatement
sSQL = "UPDATE `BestellDaten`Set `Rechnungs Datum`='"& Rdatum &_
"'WHERE `ID` ='"& iID &_
"' AND `BestellDaten`.`Programmiert` <> 'nein' AND `BestellDaten`.`Geschachtelt` <> 'nein'"&_
" AND `BestellDaten`.`Kommisioniert` = 'ja' AND `BestellDaten`.`LS Druck` = True AND"&_
" `BestellDaten`.`Storno` = FALSE"
SQL_Statement.executeUpdate(sSQL)
oform = thisComponent.drawpage.forms.MainForm
nID = iID
oForm.Filter = "(""ID"" = '"+nID+"')"
oForm.applyfilter = true
oForm.reload