如何解决SQL SP不向ADO返回值
好的,我这里缺少明显的东西-我有一个SP,它带有一个整数ID并返回一个字符串。我已经在DAO中使用了很长时间的SP。现在,我需要切换到ADO,以便可以在现有连接下运行它(另一个问题我将在其他地方发布)。
所以我的代码如下。它不返回错误,但也不返回结果。输出参数为null。我想念什么?
Dim adoCon As ADODB.Connection
Dim adoCMD As ADODB.Command
Dim SQLstr As String
Dim ConStr As String
'--- get connection string from existing object,but strip leading odbc; piece
ConStr = Replace(CurrentDb.TableDefs("[TableName]").Connect,"ODBC;","")
Set adoCon = New ADODB.Connection
adoCon.ConnectionString = ConStr
adoCon.Open
Set adoCMD = New ADODB.Command
With adoCMD
.ActiveConnection = adoCon
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(,adInteger,adParamReturnValue,Null) ' return value
.Parameters.Append .CreateParameter("Path",adVarChar,adParamOutput,500,Null)
.Parameters.Append .CreateParameter("AsyID",adParamInput)
.Parameters.Item("AsyID").Value = AsyID
.CommandText = "dbo.spGetAncestry"
.Execute
End With
GetHeritage = adoCMD.Parameters(1).Value 'parm(0) = 0; parm(1) = NULL; parm(2) = AsyID
adoCon.Close
解决方法
尽管您的代码应该可以工作。请删除参数定义中的可选表达式,然后尝试以下操作:
Dim rv as Integer
Set adoCMD = New ADODB.Command
With adoCMD
.ActiveConnection = adoCon
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("RETURN_VALUE",adInteger,adParamReturnValue)
.Parameters.Append .CreateParameter("Path",adVarChar,adParamOutput,500)
.Parameters.Append .CreateParameter("AsyID",adParamInput,AsyID)
.CommandText = "dbo.spGetAncestry"
.Execute
End With
rv = adoCMD.Parameters("RETURN_VALUE").Value
GetHeritage = adoCMD.Parameters("Path").Value
还请确保您的SP返回的输出参数是正确的数据类型和大小,并相应地调整代码。如果要返回VARCHAR(MAX),则在ADO中将其视为“ BLOB”,请参阅此相关问题What are the limits for ADO data types?。 在这种情况下,您可以尝试从SP返回varchar(8000)并相应地更新代码。
,找到了。 显然,在ADO调用中,当它在SQL批处理中执行时,将返回值设置为什么(在将其设置为null之前,我试图使用“”甚至是“”)都没有关系,只需将其设置为此跟踪形式中显示为NULL。对于此运行,将Output初始化为“”,但批处理传入NULL。 [!上面的查询的SQL跟踪在输出变量的初始化中用“”执行1] 1
通常,null不会成为问题,因为典型的SP分配是: SET @Path = [从表中选择值] 或者,如果是串联,则可以初始化变量: SET @Path ='' 在将输入串在一起之前。 但是,在此特定情况下,SP是递归的。它调用自身,将输入和输出值传递给新副本。因此,您无法初始化值,也无法使用直接分配。为了解决这个问题,我需要使用: @path = COALESCE(@path,'')+ [从表中选择值] 捕获传入的所有NULL。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。