domino代理调用关系型数据库的存储过程报错
业务需求，domino代理调用关系型数据库的存储过程。
domino版本7.0.2
sql server 2008 r2
domino版本7.0.2
sql server 2008 r2
Sub Initialize
On Error Goto errHandle
Dim adoConn As Variant
Dim rstt As Variant
Dim adoComm As Variant
Dim ConnAdmin As String
Dim prm As Variant
Set adoConn = CreateObject("ADODB.Connection")
Set adoComm = CreateObject("ADODB.Command")
ConnAdmin = "driver={SQL Server};server=10.0.193.21;database=kqdev;uid=SA;pwd=57728"
adoConn.open ConnAdmin
Set adoComm.ActiveConnection = adoConn
adoComm.CommandText = "AddWorkReqProcWithArgs"
Set prm=CreateObject("ADODB.Parameter")
prm.Size=25
prm.value="testgh"
adocomm.Parameters.Append prm4同行回答
自己解决了。
参考了http://www.cnblogs.com/joeblackzqq/archive/2011/02/24/1963979.html，特此向该作者表示感谢收起
Sub Initialize
On Error Goto errHandle
Dim adoConn As Variant
Dim rstt As Variant
Dim adoComm As Variant
Dim ConnAdmin As String
Dim prm As Variant
Set adoConn = CreateObject("ADODB.Connection")
Set adoComm = CreateObject("ADODB.Command")
ConnAdmin = "driver={SQL Server};server=10.0.193.21;database=kqdev;uid=SA;pwd=57728"
adoConn.open ConnAdmin
Set adoComm.ActiveConnection = adoConn
adoComm.CommandText = "AddWorkReqProcWithArgs"
Set prm=CreateObject("ADODB.Parameter")
prm.Type = 200
prm.Size=25
prm.value="testgh"
adocomm.Parameters.Append prm
区别就在于prm.Type = adVarChar改为：prm.Type = 200参考了http://www.cnblogs.com/joeblackzqq/archive/2011/02/24/1963979.html，特此向该作者表示感谢收起
浏览1291
浏览1086