|
摘了一段我以前写的代码,你参考一下。
Dim cmd As New ADODB.Command
Dim Par As New ADODB.Parameter
Set cmd.ActiveConnection = CurrentProject.Connection
'注意:参数的建立次序应与存储过程相同!
Set Par = cmd.CreateParameter("@shenqingid", adVarChar, adParamInput, 36, shenqingid)
cmd.Parameters.Append Par
Set Par = cmd.CreateParameter("@ic", adVarChar, adParamInput, 4, txtic)
cmd.Parameters.Append Par
cmd.CommandText = "发证"
cmd.CommandType = adCmdStoredProc
cmd.Execute
xkzid = cmd.Parameters("@xkzid").Value
Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
|
|