知识大全如何使用ADO访问Oracle数据库存储过程

Posted 2022-07-16 数据库

篇首语：会当凌绝顶，一览众山小。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何使用ADO访问Oracle数据库存储过程相关的知识，希望对你有一定的参考价值。

如何使用ADO访问Oracle数据库存储过程 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　一关于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存储过程 cha138/Article/program/Oracle/201311/16721

知识大全 如何使用ADO访问Oracle数据库存储过程

知识大全如何使用ADO访问Oracle数据库存储过程