|
Dim cmd As New ADODB.Command
Dim Par As New ADODB.Parameter
Set cmd.ActiveConnection = CurrentProject.Connectioncmd.Parameters.Append cmd.CreateParameter("@return_value", adInteger, adParamReturnValue)'(必须的,可以返回执行的状态的)Set Par = cmd.CreateParameter("@备注" & I, adVarChar, adParamInput, 50, rss("备注"))
cmd.Parameters.Append Par
Set Par = cmd.CreateParameter("@错误", adVarChar, adParamInputOutput, 100, "")'(系统返回的参数值)
cmd.Parameters.Append Parcmd.CommandText = "销售_增加新销售记录"
cmd.CommandType = adCmdStoredProc
cmd.ExecuteIf cmd.Parameters("@return_value").Value <> 0 Then '当返回值是不成功时
MsgBox Par.Value, vbInformation, "系统提示"
Elseend
[em01][em01] |
|