OracleObjectsforOLE及在VB中的应用.doc

Oracle Objects for OLE及在VB中的应用 一般说来，访问远程后台数据库我们都是通过ODBC来完成的。但是，ODBC有一个致命的缺点速度慢。事实上，对于ORACLE数据库，除了ODBC，我们还可以利用ORACLE本身所提供的OLE对象（Oracle Objects for OLE）来实现快速访问有关数据库。在ORACLE V8中，Oracle Objects for OLE（以下简称OO）为常用开发工具提供了一整套与数据库简单相连的通讯访问方式，它支持各种支持VB自定义控件或OLE自动化（OLE Automation）的开发环境。OO主要由三部分组成：l ORACLE对象服务器（the Oracle Object Server）l ORACLE数据访问控件（the Oracle Data Control）l C+类库（the Oracle Objects for OLE C+ Class Library）OO主要包括对象和用途： OraClient 定义工作域，并管理会话集。OraSession 管理数据库对象集，并提供共享式连接和事务控制。OraConnection 与ORACLE数据之间建立的连接。OraDatabase 对ORACLE数据库的一个“虚”登录。OraParamArray 参数组。OraParameter 绑定在SQL语句或PL/SQL块中的有关变量。OraDynaset 利用SELECT语句所得到的记录。OraSQLStmt 预定义的单独的一句SQL语句。OraField OraDynaset对象中的列（Column）。下图展示了OO的三种组成部分与ORACLE数据库之间的关系。下图是各对象之间的关系： 下面以VB为例，主要讲一下ORACLE对象服务器（the Oracle Object Server）和ORACLE数据访问控件（the Oracle Data Control）的有关应用。一、ORACLE数据访问控件（the Oracle Data Control） 要在VB中使用数据访问控件ORADC（Oracle Data Control）须先在项目(Project)中加入部件ORADC.OCX（通常它放在ORACLE的缺省路径下的BIN目录下），然后在FORM上加入一个ORADC，查看它的有关属性，可以看到，它与VB所带的RDO(Remote Data Object)相同，有Connect和DatabaseName两个属性。但注意，此处的属性的填写与RDO不同，DATABASE处加入的是在ORACLE设置中所命名的HostString，而Connect则需填入用户名和口令，如：. 设置用户名和口令 oradata1.Connect = UserName/Password 设置数据库名 oradata1.DatabaseName = DBName 指定表 oradata1.RecordSource = select * from myTable 刷新数据 oradata1.Refresh.其它操作均与Remote Data Control相同。二、 ORACLE对象服务器（the Oracle Object Server）在VB里，OraSession、OraDataBase、OraDynaset分别与VB内置的RDO对象rdoConnection、rdoEnvironment、rdoResultset相类似，不同的只是它们的定义方式不同。定义OLE对象变量Dim OraSession As ObjectDim OraDatabase As ObjectDim OraDynaset As Object建立OraSession对象。注意，该对象只需建立一次。Set OraSession = CreateObject(OracleInProcServer.XOraSession)建立与ORACLE数据库的连接Set OraDatabase = OraSession.DbOpenDatabase(DBName, UserName/Password, 0&)建立OraDynaset对象Set OraDynaset = OraDatabase.DbCreateDynaset(select * from tablename, 0&)开始一个事务OraSession.DbBeginTransDo Until OraDynaset.EOF If OraDynaset.Fields(“myField1”).value100 Then Goto TranErr OraDynaset.DbEdit OraDynaset.Fields(myField1).value = 0 OraDynaset.DbUpdate OraDynaset.DbMoveNext Loop 结束事务处理 OraSession.DbCommitTranErr: 事务回滚 OraSession.DbRollback 除了简单地访问数据库以外，还可以利用ORACLE对象服务器带参数调用ORACLE的存储过程和PL/SQL块。下面的程序段调用ORACLE过程来实现根据人员代码检索姓名的功能。ORACLE过程：PROCEDURE GetAge (userid IN CHAR, userage OUT NUMBER) is BEGIN SELECT age into userage from userinfo WHERE usercode=userid;END GetAge;VB程序段：Sub Form_Load ()定义OLE对象变量.Dim OraSession As ObjectDim OraDatabase As ObjectDim OraSqlStmt As Object建立OraSession对象.Set OraSession = CreateObject(OracleInProcServer.XOraSession)建立与ORACLE数据库的连接Set OraDatabase = OraSession.DbOpenDatabase(DBName, UserName/Password, 0&)OraDatabase.Parameters.Add userid, “00301”, ORAPARM_INPUTOraDatabase.Parameters(userid”).ServerType = ORATYPE_CHAR OraDatabase.Parameters.Add userage, 0, ORAPARM_OUTPUTOraDatabase.Parameters(userage).ServerType =ORATYPE_NUMBER 调用ORACLE过程 Set OraSqlStmt=OraDatabase.CreateSQL(Begin PackageName.GetAge(:userid,_:userage); end;, 0&) 显示检索结果MsgBox OraDatabase.Parameters(userage).Value 改变参数userid的值，进行新一轮检索OraDatabase.Parameters(userid).Value = “00503”刷新调用OraSqlStmt.DbRefresh显示检索结果MsgBox OraDatabase.Parameters(userage).Value 删除参数OraDatabase.Parameters.Remove (userid)OraDatabase.Pa