业务需求,domino代理调用关系型数据库的存储过程。
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 prm
收起