vb.net中应用OO4O

Oracle objects for OLE（OO4O）是一组软件层，其设计目的是使与微软 COM 自动化和 ActiveX 兼容的语言直接访问 Oracle 数据库，这些语言包括 Visual Basic、Visual Basic for Application (VBA)、IIS Active Server Pages（ASP）、Windows 脚本宿主和 Visual C++。这些层是直接在 Oracle Call Interface（OCI）上编写的，绕过了标准的 ODBC、OLE DB 和ADO 层。虽然使用它创建的应用程序在使用其它数据库的时候会不兼容，但是它却能够直接地地访问 Oracle 数据库，而且能够更广地访问 Oracle 数据库。

开发人员可以使用 OO4O In-Process 自动化服务器来连接 Oracle 数据库服务器，还可以通过 COM 自动化对象执行 SQL 或 PL/SQL 过程。另外还有一种使用In-Process 服务器的方法，那就是从其接口“OracleInProcServer.XOraSession”为一个会话创建一个 COM 对象并访问子对象，如下面Visual Basic 的例子所示：

Set objSession = CreateObject("OracleInProcServer.XOraSession")

Set objDatabase = objSession.OpenDatabase("","scott/tiger",0)

使用一个数据库对象可以从数据库查询记录，或者直接执行 DLL 或 DML 语句。例如，下面是一段 VBA 脚本，它可以在 Microsoft Excel 中运行并取出 EMP 表中所有的数据然后添加到工作表的表格中：

Sub GetEmployees()

' Use OO4O

Set objSession = CreateObject("OracleInProcServer.XOraSession")

Set objDatabase = objSession.OpenDatabase("", "scott/tiger", 0)

Sql = "select * from emp"

Set oraDynaSet = objDatabase.DBCreateDynaset(Sql, 0)

If oraDynaSet.RecordCount > 0 Then

oraDynaSet.MoveFirst

For x = 0 To oraDynaSet.Fields.Count - 1

Cells(1, x + 1) = oraDynaSet.Fields(x).Name

Cells(1, x + 1).Format = Bold

Next

For y = 0 To oraDynaSet.RecordCount - 1

For x = 0 To oraDynaSet.Fields.Count - 1

Cells(y + 2, x + 1) = oraDynaSet.Fields(x).Value

Next

oraDynaSet.MoveNext

Next

End If

Set objSession = Nothing

Set objDatabase = Nothing

End Sub

虽然可能通过 Data/External 数据源函数从一个外部数据源将数据填充到一个 Excel 电子表，但是这个宏提供了更加直接的控制，允许你准确地指定数据怎样读到电子表中；而且由于宏在访问 Oracle 数据库的时候不经过额外的层，所以其速度也比较快。它还提供附加的功能，包括存储和提取大二进制对象数据（比如说图像）的能力。

OO4O套件包括一个ActiveX 控件Oracle Data Control，它可以绑定到自定义控件，比如说那些在 Visual Basic 中使用的根据用户接口迭代的自动跟踪数据的控件。

OO4O 还包括一个 OLE C++ 类库，该类库为 Visual C++ 开发人员提供一个类似的访问机制，可以被绑定到基础类上。

先看一段程序：

Public Function excToArr(ByVal sql As String, ByVal ar As ArrayList) As ArrayList

Dim OracleDBSession As OracleInProcServer.OraSession

Dim OraDatabase As OracleInProcServer.OraDatabase

Dim dataDynaset As OracleInProcServer.OraDynaset

Dim iColCount As Integer

Dim strSERVER As String = "****" '連接的數據庫服務名

Dim strUSERNAME As String = "****" '用戶名

Dim strPASSWORD As String = "****" '密碼

Dim ar1 As ArrayList

OracleDBSession = CType(CreateObject("OracleInProcServer.XOraSession"), OracleInProcServer.OraSession)

OraDatabase = CType(OracleDBSession.OpenDatabase(strSERVER, strUSERNAME & "/" & strPASSWORD, 0), OracleInProcServer.OraDatabase)

dataDynaset = CType(OraDatabase.CreateDynaset(sql, &H0&), OracleInProcServer.OraDynaset)

iColCount = CType(dataDynaset.Fields, OracleInProcServer.OraFields).Count - 1

Dim oraField As OracleInProcServer.OraField

Dim oraFields As OracleInProcServer.OraFields

Do While Not dataDynaset.EOF

ar1 = New ArrayList

For iColNumber As Integer = 0 To iColCount

oraFields = CType(dataDynaset.Fields, OracleInProcServer.OraFields)

oraField = CType(oraFields(iColNumber), OracleInProcServer.OraField)

ar1.Add(oraField.Value)

Next

dataDynaset.MoveNext()

ar.Add(ar1)

Loop

Return ar

End Function

OraSession对象 通常被使用在应用程序中，管理OraDatabase、Oraconnection、 OraDynaset对象。 Set OraSession=createobject("OracleInProcServer.XOraSession")

OraDatabase对象 OraDatabase对象表示对数据库服务器一个虚拟的登入。 Set OraDatabase=OraSession.DbopenDatabase("数据库别名","用户名/密码",0)

OraDynaset对象 OraDynaset对象允许用户浏览或更新由 SQL SELECT所返回的数据。OraDynaset 必须属于唯一的OraDatabase对象，因此如果建立一个OraDynaset对象可以使用Oradatabase 的DbCreateDynaset或CreateDynaset，两种结果一样。

OraField对象 OraField对象是表示在OraDynaset对象中的某一行(row)中的一个字段(column)或者数据项目(data item), 另一个角度,OraField对象间接从OraDynaset对象的OraFields的数据集合取得其中一个字段的数据，其数据类型通常为万 能变量(Variant) 设置 OraFields.value=值 付值 变量名称=Orafields.value 其Fields集合表示如下： Orafields("名称").value Orafields(i).value