vb 调用 Oracle 函数返回数据集的例子
来源:互联网 发布:淘宝店铺歌曲怎么弄 编辑:程序博客网 时间:2024/05/01 12:31
PL/SQL 代码:
CREATE OR REPLACE PACKAGE "SCOTT"."PKG_TEST" AS
TYPE myrcType IS REF CURSOR;
FUNCTION get(strbarcode VARCHAR) RETURN myrcType;
END pkg_test;
CREATE OR REPLACE PACKAGE BODY "SCOTT"."PKG_TEST" AS
FUNCTION get(strbarcode IN VARCHAR) RETURN myrcType IS
rc myrcType;
BEGIN
OPEN rc FOR strbarcode;
RETURN rc;
END get;
END pkg_test;
--------------------------------------------------------------------------------------------------------
VB 代码:
Private Sub Command1_Click()
On Error GoTo cursorErr:
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=oraAny;Extended Properties=PLSQLRSet=1"
cnn.Open
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "{CALL scott.pkg_test.get(?)}"
.Parameters.Append .CreateParameter("strBarCode", adVarChar, adParamInput, 100, "SELECT * FROM TAB")
End With
rst.CursorType = adOpenStatic
rst.LockType = adLockReadOnly
Set rst.Source = cmd
rst.Open
MsgBox rst.RecordCount
Set rst = Nothing
Set cmd = Nothing
Exit Sub
cursorErr:
Set cmd = Nothing
Set rst1 = Nothing
MsgBox Err.Description
End Sub
CREATE OR REPLACE PACKAGE "SCOTT"."PKG_TEST" AS
TYPE myrcType IS REF CURSOR;
FUNCTION get(strbarcode VARCHAR) RETURN myrcType;
END pkg_test;
CREATE OR REPLACE PACKAGE BODY "SCOTT"."PKG_TEST" AS
FUNCTION get(strbarcode IN VARCHAR) RETURN myrcType IS
rc myrcType;
BEGIN
OPEN rc FOR strbarcode;
RETURN rc;
END get;
END pkg_test;
--------------------------------------------------------------------------------------------------------
VB 代码:
Private Sub Command1_Click()
On Error GoTo cursorErr:
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=oraAny;Extended Properties=PLSQLRSet=1"
cnn.Open
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "{CALL scott.pkg_test.get(?)}"
.Parameters.Append .CreateParameter("strBarCode", adVarChar, adParamInput, 100, "SELECT * FROM TAB")
End With
rst.CursorType = adOpenStatic
rst.LockType = adLockReadOnly
Set rst.Source = cmd
rst.Open
MsgBox rst.RecordCount
Set rst = Nothing
Set cmd = Nothing
Exit Sub
cursorErr:
Set cmd = Nothing
Set rst1 = Nothing
MsgBox Err.Description
End Sub
- vb 调用 Oracle 函数返回数据集的例子
- 最完整的:JAVA调用ORACLE的存储过程、函数的返回结果集例子
- JAVA调用ORACLE的存储过程、函数的返回结果集例子
- IBatis调用ORACLE的存储过程、函数的返回结果集例子
- DELPHI 调用 Oracle 存储过程并返回数据集的例子.
- Delphi 调用 Oracle 存储过程并返回数据集的例子.
- 关于VB调用Access的Rnd函数随机返回表中数据的解决方法
- 一个oracle函数返回数组的例子
- ORACLE 函数返回数据集
- vb调用oracle数据库返回游标的存储过程
- Delphi中调用oracle的存储过程返回数据集
- 使用VB调用Oracle程序包内的存储过程返回结果集
- VB.NET、EXCEL调用SQL Server带参数的存储过程并返回数据集
- java调用ORACLE函数返回结果集
- java 调用oracle函数返回结果集
- 一个简单的oracle函数返回数组的例子
- 一个简单的oracle函数返回数组的例子[zz]
- oracle函数简单例子有返回值
- MapXtreme2004代码 MapControl控件中显示地图文件
- hello
- ht的cgi处理过程
- CppUnit 单元测试框架(二)
- UML精简手册
- vb 调用 Oracle 函数返回数据集的例子
- XML Basic-from w3schools.com
- 日本人对印尼暴乱中华人世界的描述(转)
- 推荐《Java数值方法》
- 国内广播电台
- DELPHI 调用 Oracle 存储过程并返回数据集的例子.
- VS.NET中调试客户端脚本
- XML Advanced-from w3schools.com
- XML Examples-from w3schools.com