|
|
我有一个参数有以下参数。SQL SP …+ a' e% s! q5 U. Y6 B) C
myProc(@param1 AS TINYINT,@sparam2 AS TINYINT,@param3 AS TINYINT,@param4 AS TINYINT,@param5 AS TINYINT,@param6 AS TINYINT,@param7 AS TINYINT,@paramOut NVARCHAR (255) OUTPUT)而且我在VBA中有以下ADODB代码…
- a' c- `3 u- Y4 ]sVal1 = 1sVal2 = 1sVal3 = 1sVal4 = 1sVal5 = 1sVal6 = 1sVal7 = 1Dim cnn As ADODB.ConnectionDim cmd As ADODB.CommandDim param1,param2,param3,param4,param5,param6,param7,param8 As ADODB.ParameterDim Rs As ADODB.RecordsetSet cnn = New ADODB.Connectioncnn.ConnectionString = "DRIVER=SQL Server;SERVER=SERVER;DATABASE=PEER_DB;Trusted_Connection=Yes"cnn.Open cnn.ConnectionStringSet cmd = New ADODB.CommandSet Rs = New ADODB.Recordsetcmd.ActiveConnection = cnncmd.CommandType = adCmdStoredProccmd.CommandText = "myProc"Set param1 = cmd.CreateParameter("@param1",adTinyInt,adParamInput,1,sVal1)cmd.Parameters.Append param1Set param2 = cmd.CreateParameter("@param2",adTinyInt,adParamInput,1,sVal2)cmd.Parameters.Append param2Set param3 = cmd.CreateParameter("@param3",adTinyInt,adParamInput,1,sVal3)cmd.Parameters.Append param3Set param4 = cmd.CreateParameter("@param4",adTinyInt,adParamInput,1,sVal4)cmd.Parameters.Append param4Set param5 = cmd.CreateParameter("@param5",adTinyInt,adParamInput,1,sVal5)cmd.Parameters.Append param5Set param6 = cmd.CreateParameter("@param6",adTinyInt,adParamInput,1,sVal6)cmd.Parameters.Append param6Set param7 = cmd.CreateParameter("@param7",adTinyInt,adParamInput, adParamReturnValue)cmd.Parameters.Append param7Set param8 = cmd.CreateParameter("@paramOut",adVarChar,adParamOutput,255,adParamReturnValue)cmd.Parameters.Append param8Rs.CursorType = adOpenStaticRs.CursorLocation = adUseClientRs.LockType = adLockOptimisticcmd.ExecuteRs.Open cmd我所要做的就是传递VBA( y0 S) J) M- j x& \ Y' Y
sVal根据这些参数执行我的过程，然后我需要返回有效的输出参数。ADODB连接时，过程没有正确执行，因为我没有得到应有的结果。有人能引导我朝着正确的方向前进。我缺少一些执行语句吗？
6 H9 `) S1 O1 x' w( f& ?' p; q; \% G , |' n( Z+ P% b: d( X
解决方案: |
|
技术问答
246 人阅读
|
0 人回复
|
2023-09-12
