
PROCEDURE TEST_C(temp out varchar2,a INvarchar2,b in varchar2)
IS
BEGIN
temp:=a || b;
END;
调用方法1:
说明:要在程序开头加入imports System.Data.oleDb
Dim dbConn As New oleDbConnection
Dim dbComm As oleDbCommand
dbConn.ConnectionString = "ProvIDer=MSDAORA.1;User ID=xxx;Password=xxx;Data Source=xxx;"
dbConn.open()
dbComm = dbConn.CreateCommand
dbComm.Parameters.Add("temp",oleDbType.VarChar,30).Direction = ParameterDirection.Output
dbComm.Parameters.Add("a",30).Direction = ParameterDirection.input
dbComm.Parameters("a").Value = "test "
dbComm.Parameters.Add("b",30).Direction = ParameterDirection.input
dbComm.Parameters("b").Value = "OK"
dbComm.CommandText = "{CALL TEST_C(?,?,?)}" '这里就是使用"?"来代替参数
dbComm.CommandType = CommandType.Text
dbComm.ExecuteNonquery()
dbConn.Close()
MessageBox.Show(dbComm.Parameters("temp").Value)
调用方法2:
说明:要在程序开头加入imports System.Data.OracleClIEnt
Dim oraConn As New OracleConnection
Dim oraComm As New OracleCommand
oraConn.ConnectionString = "Data Source=xxx;User ID=xxx;Password=xxx"
oraComm.Connection = oraConn
oraComm.Parameters.Add("temp",OracleType.VarChar,10).Direction = ParameterDirection.Output
oraComm.Parameters.Add("a",10).Direction = ParameterDirection.input
oraComm.Parameters("a").Value = "test "
oraComm.Parameters.Add("b",10).Direction = ParameterDirection.input
oraComm.Parameters("b").Value = "OK"
oraConn.open()
oraComm.CommandText = "TEST_C"
oraComm.CommandType = CommandType.StoredProcedure
oraComm.ExecuteNonquery()
oraConn.Close()
MessageBox.Show(oraComm.Parameters("temp").Value)
总结以上是内存溢出为你收集整理的VB.net 调用oracle里面的procedure的两种方法全部内容,希望文章能够帮你解决VB.net 调用oracle里面的procedure的两种方法所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)