在数据库ODBC中插入服务器日期错误

Question

我在试图通过参数调用将服务器日期插入数据库时遇到了一点麻烦，我的此操作代码如下所示:

<%
If (CStr(Request("MM_insert")) = "Modal-Menu-AddNote-Form") Then
  If (Not MM_InsertEdit) Then
    ' execute the insert
    Dim MM_InsertCmd
    Set MM_InsertCmd = Server.CreateObject ("ADODB.Command")
    MM_InsertCmd.ActiveConnection = MM_Logistics_STRING
    MM_InsertCmd.CommandText = "INSERT INTO Notes (Note_Text, Note_Date) VALUES (?, ?)" 
    MM_InsertCmd.Prepared = true
    MM_InsertCmd.Parameters.Append MM_InsertCmd.CreateParameter("param1", 202, 1, 255, Request.Form("Modal-Menu-Paragraph-AddNote")) ' adVarWChar
    MM_InsertCmd.Parameters.Append MM_InsertCmd.CreateParameter("param2", 135, 0, -1, Date) ' adDBTimeStamp
    MM_InsertCmd.Execute
    MM_InsertCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_InsertRedirectUrl
    MM_InsertRedirectUrl = "edit.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_InsertRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_InsertRedirectUrl = MM_InsertRedirectUrl & "?" & Request.QueryString
      Else
        MM_InsertRedirectUrl = MM_InsertRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_InsertRedirectUrl)
  End If
End If
%>

重要的是要注意"param2"行，因为这是我试图将日期插入数据库的区域，我也尝试过(0-Unknown,1-In,2-Out,3-In/Out)为第3个参数，但我仍然最终得到错误，如参数类型错误，超出可接受的范围，或彼此冲突，或无效的字符串或缓冲区长度。对于如何解决这个问题有什么想法或想法吗?

Answer 1

这个问题最终得到了解决，最终成为我的文本区域收集数据的问题。最后，感谢大家的帮助和建议。