存储过程的创建 如何使用ADO访问Oracle数据库存储过程

如何使用ADO访问Oracle数据库存储过程  

　　 一 关于ADO 　　　　 在基于Client/Server结构的数据库环境中 通过OLE DB接口可以存取数据 但它定义的是低层接口 不仅不易使用 而且不能被VB VBA VBScript等高级编程工具访问 而使用ADO则可以很容易地使VB等编程语言直接访问数据（通过OLE DB接口） ADO是基于面向对象方法的 其对象模型如下图所示(略) 　　　　 由上图可见 ADO对象模型总共才包括六个对象 相对于数据访问对象（DAO）来说简单得多 因此实际中常常使用它来访问数据库 　　　　 二 ADO访问数据库实例 　　　　 下面 我们以Oracle为例 使用VB 来访问其数据库中的存储过程 在此例中 我们首先在Oracle数据库上创建有两个存储过程 一个不带参数 另一个带有参数 然后 使用ADO来访问这两个存储过程 步骤如下 　　　　 在Oracle服务器上运行以下DDL脚本: 　　　　DROP TABLE person; 　　CREATE TABLE person 　　(ssn NUMBER( ) PRIMARY KEY 　　fname VARCHAR ( ) 　　lname VARCHAR ( )); 　　INSERT INTO person VALUES( Sam Goodwin ); 　　INSERT INTO person VALUES( Kent Clark ); 　　INSERT INTO person VALUES( Jane Doe ); 　　MIT; 　　/ 　　　　 在Oracle服务器上创建包（package）: 　　CREATE OR REPLACE PACKAGE packperson 　　AS 　　TYPE tssn is TABLE of NUMBER( ) 　　INDEX BY BINARY_INTEGER; 　　TYPE tfname is TABLE of VARCHAR ( ) 　　INDEX BY BINARY_INTEGER; 　　TYPE tlname is TABLE of VARCHAR ( ) 　　INDEX BY BINARY_INTEGER; 　　　　PROCEDURE allperson 　　(ssn OUT tssn 　　fname OUT tfname 　　lname OUT tlname); 　　PROCEDURE oneperson 　　(onessn IN NUMBER 　　ssn OUT tssn 　　fname OUT tfname 　　lname OUT tlname); 　　END packperson; 　　/ 　　　　 在Oracle服务器上创建以下包体（package body） 　　CREATE OR REPLACE PACKAGE BODY packperson 　　AS 　　PROCEDURE allperson 　　(ssn OUT tssn 　　fname OUT tfname 　　lname OUT tlname) 　　IS 　　CURSOR person_cur IS 　　SELECT ssn fname lname 　　FROM person; 　　percount NUMBER DEFAULT ; 　　BEGIN 　　FOR singleperson IN person_cur 　　LOOP 　　ssn(percount) := singleperson ssn; 　　fname(percount) := singleperson fname; 　　lname(percount) := singleperson lname; 　　percount := percount + ; 　　END LOOP; 　　END; 　　PROCEDURE oneperson 　　(onessn IN NUMBER 　　ssn OUT tssn 　　fname OUT tfname 　　lname OUT tlname) 　　IS 　　CURSOR person_cur IS 　　SELECT ssn fname lname 　　FROM person 　　WHERE ssn = onessn; 　　percount NUMBER DEFAULT ; 　　BEGIN 　　FOR singleperson IN person_cur 　　LOOP 　　ssn(percount) := singleperson ssn; 　　fname(percount) := singleperson fname; 　　lname(percount) := singleperson lname; 　　percount := percount + ; 　　END LOOP; 　　END; 　　END; 　　/ 　　　　 在 VB 中打开一个新的工程 缺省创建表单 Form 　　 在表单上添加二个按钮 cmdGetEveryone和cmdGetOne 　　　　 在代码窗口中添加以下代码: 　　　　Option Explicit 　　Dim Cn As ADODB Connection 　　Dim CPw As ADODB Command 　　Dim CPw As ADODB Command 　　Dim Rs As ADODB Recordset 　　Dim Conn As String 　　Dim QSQL As String 　　Dim inputssn As Long 　　　　Private Sub cmdGetEveryone_Click() 　　Set Rs Source = CPw 　　Rs Open 　　While Not Rs EOF 　　MsgBox Person data: & Rs( ) & 　　 & Rs( ) & & Rs( ) 　　Rs MoveNext 　　Wend 　　Rs Close 　　End Sub 　　　　Private Sub cmdGetOne_Click() 　　Set Rs Source = CPw 　　inputssn = InputBox( 　　 Enter the SSN you wish to retrieve: ) 　　CPw ( ) = inputssn 　　Rs Open 　　MsgBox Person data: & Rs( ) & 　　 & Rs( ) & & Rs( ) 　　Rs Close 　　End Sub 　　　　Private Sub Form_Load() 　　 使用合适的值代替以下用户ID 　　口令（PWD）和服务器名称（SERVER） 　　Conn = UID=*****;PWD=*****;driver= _ 　　& {Microsoft ODBC for 　　Oracle};SERVER=dseOracle; 　　Set Cn = New ADODB Connection 　　 创建Connection对象 　　With Cn 　　 ConnectionString = Conn 　　 CursorLocation = adUseClient 　　 Open 　　End With 　　QSQL = {call packperson allperson( 　　{resultset ssn fname _ 　　& lname})} 　　Set CPw = New ADODB Command 　　 创建Command对象 　　With CPw 　　Set ActiveConnection = Cn 　　 CommandText = QSQL 　　 CommandType = adCmdText 　　End With 　　QSQL = {call packperson oneperson(? 　　{resultset ssn _ 　　& fname lname})} 　　 调用存储过程 　　Set CPw = New ADODB Command 　　With CPw 　　Set ActiveConnection = Cn 　　 CommandText = QSQL 　　 CommandType = adCmdText 　　 Parameters Append CreateParameter( 　　 adInteger _ 　　adParamInput) 　　 添加存储过程参数 　　End With 　　Set Rs = New ADODB Recordset 　　With Rs 　　 CursorType = adOpenStatic 　　 LockType = adLockReadOnly 　　End With 　　End Sub 　　　　Private Sub Form_Unload(Cancel As Integer) 　　Cn Close 　　Set Cn = Nothing 　　Set CPw = Nothing 　　Set CPw = Nothing 　　Set Rs = Nothing 　　End Sub 　　　　 运行程序 当点下cmdGetEveryone按钮时 程序调用Oracle数据库中不带参数的存储过程packperson allperson 点下cmdGetOne按钮时调用packperson oneperson存储过程 lishixinzhi/Article/program/Oracle/201311/16721