SQL 服务器存储过程后出现意外的白色 space

Question

使用 ADODB 对象从 Excel 中的 VBA 调用存储过程时，似乎出现意外的白色 space。当运行来自 SQL Server Management Studio 的过程时，不会出现此问题。

exec usp_testloginalert '2015-11-29 00:00:00','2015-11-30 00:00:00',N'screen'

更新

代码来自 vba

Function querylogs(ByVal todate As Date, ByVal fromdate As Date, ByVal desc As String)
Dim cn As ADODB.Connection
Dim cmdProd As ADODB.command
Dim prs As New ADODB.Recordset

sQuery = "usp_testloginalert"
Set cn = New ADODB.Connection
With cn
    .Provider = "SQLOLEDB"
    sConnection = "dbconn"
    .ConnectionString = sConnection
    .ConnectionTimeout = 1000
    .CommandTimeout = 1000
End With
cn.Open sConnection

Set cmdProd = New ADODB.command
With cmdProd
    .ActiveConnection = cn
    .CommandType = adCmdStoredProc
    .CommandText = "usp_testloginalert"
    .CommandTimeout = 1000
End With
Dim prmFromDate As ADODB.Parameter
Set prmFromDate = cmdProd.CreateParameter("@FromDate", adDBDate,adParamInput)
prmFromDate.Value = fromdate
cmdProd.Parameters.Append prmFromDate

Dim prmToDate As ADODB.Parameter
Set prmToDate = cmdProd.CreateParameter("@ToDate", adDBDate, adParamInput)
prmToDate.Value = todate
cmdProd.Parameters.Append prmToDate

Dim prmDescritpion As ADODB.Parameter
cmdProd.Parameters.Append cmdProd.CreateParameter("Descritpion",adBSTR,adParamInput, 100, desc)

Set prs = New Recordset
prs.CursorLocation = adUseClient
prs.Open cmdProd.Execute

Application.EnableCancelKey = True
cn.Close

Set querylogs = prs
End Function

Answer 1

当我们没有看到您的程序代码时很难回答，但我可以建议您使用 LTRIM and RTRIM 删除 leading/trailing 空白。

在下面：LTRIM(RTRIM( /* character_xpression */ ))

更新

如果不是 SQL 问题，请尝试查看相关帖子：

Remove leading or trailing spaces in an entire column of data

Delete blanks from start and end of a string in vba

http://www.excelitems.com/2009/03/remove-extra-spaces-from-cell-value.html

Answer 2

问题已解决，将参数长度设置为传递的变量的长度。

将 lendesc 变暗为整数

lendesc = Len(desc) + 1

Dim prmDescritpion As ADODB.Parameter
cmdProd.Parameters.Append cmdProd.CreateParameter("Descritpion", adBSTR,adParamInput, lendesc, desc)

SQL 服务器存储过程后出现意外的白色 space

Unexpected white space after SQL Server stored procedure

sql

sql-server

excel

vba

adodb