请问 如何将date类型保存到数据库里？

Question

代码如下，执行完以后数据库里没有新增记录，程序也没报错，请问是怎么回事？    
Private Sub AddUser(ByVal mUserID As Long)
        Dim mAutoID As Long
        Dim strsql, strConn As String
        Dim mNowTime As Date
        mNowTime = DateTime.Now        strConn = ConfigurationSettings.AppSettings("OraOaDataNetString")
        mAutoID = GetMaxID("User_OnLine", "AutoID", strConn) + 1
        strsql = "insert into User_OnLine(AutoID,UserID,FreshTime) values(" & mAutoID & "," & mUserID & "," & mNowTime & ")"        Dim conn As New OleDb.OleDbConnection(strConn)
        conn.Open()        Dim cmd As New OleDb.OleDbCommand(strsql, conn)
        cmd.ExecuteNonQuery()
        conn.Close()
End Sub

Answer 1

一般是
mNowTime.ToString()还有错你调试一下，跟踪下insert语句倒底是什么内容

Answer 2

对于参数提交，使用DBParameter，不要拼字符串。对于SQL Server中的命令，日期常数要使用'号括起来，以字符串方式提交，并且要使用数据库能够认识的格式，例如 mNowTime.ToString("yyyy-MM-dd h:m:s")。

Answer 3

数据连接是对的，我把strsql改成这样还是不行。
strsql = "insert into User_OnLine(AutoID,UserID,FreshTime) values(" & mAutoID & "," & mUserID & "," & mNowTime.ToString("yyyy-MM-dd HH:mm:ss") & ")"

Answer 4

哦 知道了 应该改成这样：
strsql = "insert into User_OnLine(AutoID,UserID,FreshTime) values(" & mAutoID & "," & mUserID & ",'" & mNowTime.ToString("yyyy-MM-dd HH:mm:ss") & "')"