Public Function ConnOra(OraID, OraUsr, OraPwd, nbid)
Dim n As Long '这个取存储过程的返回参数
Dim str As String
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command Dim param As ADODB.Parameter
Dim Strnb As String
Strnb = " '" & nbid & " '"
'Strnb = nbid
str = "Provider = MSDAORA.1;Password=" & OraPwd & _
";User ID=" & OraUsr & _
";Data Source=" & OraID & _
";Persist Security Info=True"
cn.CursorLocation = adUseClient
cn.Open str
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "UPDATE_ENB_ALL_IP" '存储过程UPDATE_ENB_ALL_IP(NB_INFO in varchar2)
cmd.CommandType = adCmdStoredProc
'这个是输入参数
Set param = cmd.CreateParameter("@NB_INFO", adVarChar, adParamInput, 10, Trim(Strnb))
cmd.Parameters.Append param
'这个是输出参数
Set param = cmd.CreateParameter("@n", adCurrency, adParamOutput)
cmd.Parameters.Append param
Set rs = cmd.Execute '执行到这里就报错了%>_<%
'n = cmd.Parameters("@n")
MsgBox Err.Description
Set rs = Nothing
Set cmd = Nothing
Set cn = NothingEnd Function
Dim n As Long '这个取存储过程的返回参数
Dim str As String
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command Dim param As ADODB.Parameter
Dim Strnb As String
Strnb = " '" & nbid & " '"
'Strnb = nbid
str = "Provider = MSDAORA.1;Password=" & OraPwd & _
";User ID=" & OraUsr & _
";Data Source=" & OraID & _
";Persist Security Info=True"
cn.CursorLocation = adUseClient
cn.Open str
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "UPDATE_ENB_ALL_IP" '存储过程UPDATE_ENB_ALL_IP(NB_INFO in varchar2)
cmd.CommandType = adCmdStoredProc
'这个是输入参数
Set param = cmd.CreateParameter("@NB_INFO", adVarChar, adParamInput, 10, Trim(Strnb))
cmd.Parameters.Append param
'这个是输出参数
Set param = cmd.CreateParameter("@n", adCurrency, adParamOutput)
cmd.Parameters.Append param
Set rs = cmd.Execute '执行到这里就报错了%>_<%
'n = cmd.Parameters("@n")
MsgBox Err.Description
Set rs = Nothing
Set cmd = Nothing
Set cn = NothingEnd Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货