sql - 存储过程问题中的VBA传递日期

Question

我很难使用 SQL 存储过程将日期值传递给日期时间值。 @DateTime参数在 Microsoft SQL Server 的 MyDb 中采用日期时间格式。当我运行下面的子程序时，我得到一个错误:Parameter type not supported.我相信这个错误与 adDBTimeStamp 有关参数类型。知道如何解决这个问题吗？

Public Sub AddDateTime

Dim DateTime as Date
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim param as ADODB.Parameter
Dim sConnString As String

/*Create the connection string*/

DateTime = Now()

sConnString = "Driver={SQL Server};Server=TheServer3;Database=MyDb;Trusted_Connection=Yes;"

Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = sConnString
cmd.CommandText = "usp_AddNewDateTime"
cmd.CommandType = adCmdStoredProc

Set param = cmd.CreateParameter("@DateTime", adDBTimeStamp, adParamInput, , DateTime)
cmd.Parameters.Append param

Set rs = cmd.Execute

/*Clean up*/

Set conn = Nothing
Set rs = Nothing

End Sub

Answer 1

由于您提供的是 Date值，只需使用 adDBDate :

Set param = cmd.CreateParameter("@DateTime", adDBDate, adParamInput, , DateTime)