运行存储过程从访问VBA

Question

从字符串转换日期和/或时间时，我不断收到

转换的错误而失败。

这是我的vba我正在使用以及我的sql服务器存储过程的语法。为了让这个运行成功，我应该改变什么？

Private Sub btnRunStoredProc_Click() 
Dim cmd As ADODB.Command, startdate As String, enddate As String 
    Set cmd = New ADODB.Command 
    startdate = "'" & Me.txtStartDate & "'" 
    enddate = "'" & Me.txtEndDate & "'" 
    cmd.ActiveConnection = "Provider=sqloledb;Server=Server;Database=DB;Trusted_Connection=yes;" 
    cmd.CommandType = adCmdStoredProc 
    cmd.CommandText = "runstoredproc" 
    cmd.Parameters.Append cmd.CreateParameter("@startdate", adVarChar, adParamInput, 255, startdate) 
    cmd.Parameters.Append cmd.CreateParameter("@enddate", adVarChar, adParamInput, 255, enddate) 
    cmd.Execute 
End Sub 


ALTER Procedure [dbo].[runstoredproc] 
(
     @startdate varchar(100) 
     ,@enddate varchar(100) 
) 
As 

Select * from helper where hiredate between @startdate And @enddate 

Answer 1

考虑使用Format()将MS Access日期转换为字符串，因为连接引号不起作用。此外，使用CONVERT()将SQL Server中的varchar字符串转换为日期。格式YYYY-MM-DD用于不依赖于文化设置与月份和日期的位置。

VBA

Private Sub btnRunStoredProc_Click() 
    Dim cmd As ADODB.Command, startdate As String, enddate As String 

    Set cmd = New ADODB.Command 

    startdate = Format(Me.txtStartDate, "YYYY-MM-DD") 
    enddate = Format(Me.txtEndDate, "YYYY-MM-DD") 

    With cmd 
     .ActiveConnection = "Provider=sqloledb;Server=Server;Database=DB;Trusted_Connection=yes;" 
     .CommandType = adCmdStoredProc 
     .CommandText = "runstoredproc" 
     .Parameters.Append .CreateParameter("@startdate", adVarChar, adParamInput, 255, startdate) 
     .Parameters.Append .CreateParameter("@enddate", adVarChar, adParamInput, 255, enddate) 
     .Execute 
    End With 

    Set cmd = Nothing 
End Sub 

TSQL

ALTER Procedure [dbo].[runstoredproc] 
(
     @startdate varchar(100) 
     ,@enddate varchar(100) 
) 
As 

SELECT * FROM [helper] 
WHERE hiredate BETWEEN CONVERT(DATE, @startdate) AND CONVERT(DATE, @enddate) 

Answer 2

任何原因，你的参数不能是日期/时间数据类型？你的hiredate专栏的数据类型是什么？这一直为我工作：

Private Sub btnRunStoredProc_Click() 
Dim cmd As ADODB.Command, startdate As Date, enddate As Date 
    Set cmd = New ADODB.Command 
    startdate = CVDate(Me.txtStartDate) 
    enddate = CVDate(Me.txtEndDate) 
    cmd.ActiveConnection = "Provider=sqloledb;Server=Server;Database=DB;Trusted_Connection=yes;" 
    cmd.CommandType = adCmdStoredProc 
    cmd.CommandText = "runstoredproc" 
    cmd.Parameters.Append cmd.CreateParameter("@startdate", adDBTimeStamp, adParamInput, , startdate) 
    cmd.Parameters.Append cmd.CreateParameter("@enddate", adDBTimeStamp, adParamInput, , enddate) 
    cmd.Execute 
End Sub 


ALTER Procedure [dbo].[runstoredproc] 
(
     @startdate datetime 
     ,@enddate datetime 
) 
As 

Select * from helper where hiredate between @startdate And @enddate