1﹑在SQL/PLUS中﹐右鍵選 test﹐輸入傳入參數﹐F9運行﹐可一步一步調試看到結果﹔
2﹑VB.NET調用﹕
Dim cmdOra As New OleDbCommand
cmdOra.Connection = connStr.ConnectDB
cmdOra.Parameters.Clear()
cmdOra.CommandType = CommandType.StoredProcedure
cmdOra.CommandText = "zrep_bga_out_sp"cmdOra.Parameters.Add("c_sysserno", OleDbType.VarChar)
cmdOra.Parameters.Add("c_outby", OleDbType.VarChar)
cmdOra.Parameters.Add("c_lstupdby", OleDbType.VarChar)
cmdOra.Parameters.Add("rtnflag", OleDbType.Integer)
cmdOra.Parameters.Add("rtnmsg", OleDbType.VarChar)cmdOra.Parameters("rtnmsg").Size = 50cmdOra.Parameters("c_sysserno").Value = Trim(txtBarCode.Text)
cmdOra.Parameters("c_outby").Value = Trim(txtUser.Text)
cmdOra.Parameters("c_lstupdby").Value = s_UsercmdOra.Parameters("c_sysserno").Direction = ParameterDirection.Input
cmdOra.Parameters("c_outby").Direction = ParameterDirection.Input
cmdOra.Parameters("c_lstupdby").Direction = ParameterDirection.Input
cmdOra.Parameters("rtnflag").Direction = ParameterDirection.ReturnValue
cmdOra.Parameters("rtnmsg").Direction = ParameterDirection.ReturnValueDim iFlag As Integer
Dim cMsg As StringTry
cmdOra.ExecuteNonQuery()
iFlag = cmdOra.Parameters("rtnflag").Value
cMsg = cmdOra.Parameters("rtnmsg").Value
txtBarCode.Text = ""
txtBarCode.Focus()
Catch ex As Exception
vMsg(9, "錯誤﹕" & ex.Message)
Finally
cmdOra.Connection.Close()
cmdOra.Connection.Dispose()
cmdOra.Parameters.Clear()
cmdOra.Dispose()
End Try
2﹑VB.NET調用﹕
Dim cmdOra As New OleDbCommand
cmdOra.Connection = connStr.ConnectDB
cmdOra.Parameters.Clear()
cmdOra.CommandType = CommandType.StoredProcedure
cmdOra.CommandText = "zrep_bga_out_sp"cmdOra.Parameters.Add("c_sysserno", OleDbType.VarChar)
cmdOra.Parameters.Add("c_outby", OleDbType.VarChar)
cmdOra.Parameters.Add("c_lstupdby", OleDbType.VarChar)
cmdOra.Parameters.Add("rtnflag", OleDbType.Integer)
cmdOra.Parameters.Add("rtnmsg", OleDbType.VarChar)cmdOra.Parameters("rtnmsg").Size = 50cmdOra.Parameters("c_sysserno").Value = Trim(txtBarCode.Text)
cmdOra.Parameters("c_outby").Value = Trim(txtUser.Text)
cmdOra.Parameters("c_lstupdby").Value = s_UsercmdOra.Parameters("c_sysserno").Direction = ParameterDirection.Input
cmdOra.Parameters("c_outby").Direction = ParameterDirection.Input
cmdOra.Parameters("c_lstupdby").Direction = ParameterDirection.Input
cmdOra.Parameters("rtnflag").Direction = ParameterDirection.ReturnValue
cmdOra.Parameters("rtnmsg").Direction = ParameterDirection.ReturnValueDim iFlag As Integer
Dim cMsg As StringTry
cmdOra.ExecuteNonQuery()
iFlag = cmdOra.Parameters("rtnflag").Value
cMsg = cmdOra.Parameters("rtnmsg").Value
txtBarCode.Text = ""
txtBarCode.Focus()
Catch ex As Exception
vMsg(9, "錯誤﹕" & ex.Message)
Finally
cmdOra.Connection.Close()
cmdOra.Connection.Dispose()
cmdOra.Parameters.Clear()
cmdOra.Dispose()
End Try
解决方案 »
- occi createConnection出现的问题
- 以SYSTEM身份登录,login_user值为SYS ???
- 求助高手,一个关于SEQUENCE的问题,在线等.!!!!!!!
- 帮我看一条sql语句,想不通为什么会有这样的作用
- 我服务里为何没有 Management Server
- sql语法,请来帮帮忙!!!
- (在线给分)请问如何将一个文件中的数据插入oracle数据库中?
- oracle服务自动停止了
- vs 2012 连接数据库时出现的错误:尝试加载 Oracle 客户端库时引发 BadImageFormatException。如果在安装 32 位 Oracl
- 求教:连接服务器端报ORA-12537,操作系统验证没有问题!
- 关于授予对象权限的问题
- 超级大难题,表的合并,请高手指点
?
1﹑在SQL/PLUS中﹐右鍵選 test﹐輸入傳入參數﹐F9運行﹐可一步一步調試看到結果﹔Sorry﹐It's PLSQL,not SQL/PLUS
1、在sql_plus中:
sql>exec usp_platename(参数1,参数2);
2、在过程中调用:
usp_platename(参数1,参数2);