從vb6將now（）插入mysql

Question

對不起我的英語不好。

當我將vb6中的now（）插入mysql（這是一種日期時間類型）時，僅顯示零（像這樣的0000-00-00 00:00:00）。 如何使它們正常顯示？

當我將日期時間類型更改為文本時，它可以正常顯示，但是我無法使用它。

這是我插入的方式

oSql = "INSERT INTO rendeles(ID_Vevo,Datum,VCime,ID_Alkalmazott) VALUES (" & _
cmbVasarlo.ItemData(cmbVasarlo.ListIndex) & ", '" & Now() & "', '" & _ 
oRs1!Cim & "', " & logged_user_id & ")"

Set oRs = oConn.Execute(oSql)

Answer 1

您需要這樣的東西（我對VB6感到非常生銹）

Dim sqlDate As String
sqlDate = Format$(Now, "yyyy-mm-dd hh:mm:ss")

...
cmbVasarlo.ItemData(cmbVasarlo.ListIndex) & ", '" & sqlDate  & "', '" & _ 
oRs1!Cim & "', " & logged_user_id & ")"

Answer 2

將VB6的NOW（）函數格式化為MYSQL的使用格式

Format$(Now(), "yyyy-mm-dd hh:mm:ss")

要么

只需使用MYSQL的Now（）函數代替VB6的

oSql = "INSERT INTO rendeles(ID_Vevo,Datum,VCime,ID_Alkalmazott) VALUES (" & _
cmbVasarlo.ItemData(cmbVasarlo.ListIndex) & ", now(), '" & _ 
oRs1!Cim & "', " & logged_user_id & ")"