MS SQL 2005 express DateTime Felder mit VBA beschreiben

[fo_juergen]

Hallo Forumsmitglieder,

habe eine Problem mit dem schreiben des aktuellen Datums und der Zeit in ein DateTime - Feld
in einer MS SQL 2005 Datenbank,das Feld MWCounter wird geschrieben, aber das Feld MWDateTime mit Datum und Zeit nicht.

Der gleiche String funktioniert aber bei einer MySql Datenbank, sind die Datetime Formate von MySQL und MS SQL verschieden?


Mein Code:
strDate = Format(Now, "\#yyyy\-mm\-dd hh:mm:ss#")

strSql = "insert into dbo_T_LoggingData(MWCounter,MWDateTime) " & _
            "values(" & Wert1 & ", " & strDate & ");"
DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True

Gruß Jürgen

[DF6GL]

Hallo,

versuch mal:

strDate = Format(Now, "yyyymmdd hh:mm:ss")


und

"values(" & Wert1 & ", '" & strDate & "');"

[fo_juergen]

@DF6GL,

danke für die schnelle Antwort, schreibt immer noch keine Werte in die Tabelle...?

kann es an dem SQL Server liegen?

[fo_juergen]

Hallo

mit folgendem Code kommt auch eine Fehlermeldung, siehe Anhang

strDate = Format(Now, "yyyymmdd hh:mm:ss#")
       strSql = "insert into dbo_T_LoggingData(MWCounter,MWDateTime) " & _
            "values(" & Wert1 & ", " & strDate & ");"
           
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSql
        DoCmd.SetWarnings True


     

[Anhang gelöscht durch Administrator]

[daolix]

ohne mich auszukenne aber fehlt da nicht ein \ als vorletztes Zeichen in der Iso-Formatierung?

strDate = Format(Now, "\#yyyy\-mm\-dd hh:mm:ss\#")

[DF6GL]

Hallo,

was sagen die "Warnings" ?

Lass die mal eingeschaltet..

Wenn es dann geht, ersetze Docmd.RunSQL durch Currentdb.Execute.


Weiterhin solltest Du ein ADP-Projekt erstellen und auf den MS-SQL-Server direkt zugreifen

Falls Du ODBC-Verknüpfung aktuell verwendest ,  wird das Datumsformat aber vermutlich so aussehen:


strDate = Format(Now, "\#yyyy\-mm\-dd hh:mm:ss\#")

[fo_juergen]

Hallo,

die warnings ausgeschaltet, keine Fehlermeldung.

verwende ODBC - Verknüpfung zum MS-SQL-Server

@DF6GL

Weiterhin solltest Du ein ADP-Projekt erstellen und auf den MS-SQL-Server direkt zugreifen

welche Vorteile hat ein direkter zugriff?

[DF6GL]

Hallo,

dann aktiviere noch die Bestätigungs-Meldungen in den Optionen bei Bearbeiten/Suchen

[database]

Hallo,

hier - strDate = Format(Now, "\#yyyy\-mm\-dd hh:mm:ss\#") - kommt 2x 'mm' vor, was m.E. Probleme verursachen wird.

versuch statt dessen mal folgende Sytax:

strDate = Format(Now, "yyyy\-mm\-dd hh:nn:ss")

bzw.

strDate = Format(Now, "yyyymmdd hh:nn:ss")

oder auch

strDate = Format(Now, "mm\/dd\/yyyy hh:nn:ss")


EDIT: die Rauten müssen raus - es funktionieren alle Varianten der Formatierung

[daolix]

Hallo,

versuch mal:

strDate = Format(Now, "yyyymmdd hh:mm:ss")


und

"values(" & Wert1 & ", '" & strDate & "');"

Diesem Vorschlag von DF6GL jetzt folgend sollte dein code etwa so ausschauen:

Code [Auswählen] Erweitern

strDate = Format(Now, "yyyymmdd hh:mm:ss")
       strSql = "insert into dbo_T_LoggingData(MWCounter,MWDateTime) " & _
            "values(" & Wert1 & ", '" & strDate & "');"
           
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSql
        DoCmd.SetWarnings True

Man beachte hier die eingefärbten Hochkommas: "values(" & Wert1 & ", '" & strDate & "');"

[fo_juergen]

Hallo,

Problem gelöst, VBA - Code war korrekt, lag an meinem SQL Server.

Danke für die Hilfe.

[database]

Hallo,

Code war korrekt, lag an meinem SQL Server

und das obwohl der SQL-Server die Rauten nicht anerkennt