VB与Oracle的引用教程（vb引用oracle）

Visual Basic (VB) 6 是一种经典的基于Microsoft Windows桌面平台的程序开发环境，在存储数据时，用户可以选择Oracle数据库，下面教程将指导用VB 6.0连接Oracle数据库，并实现基本的查询操作。

（一）首先安装对应版本的Oracle客户端，我这里使用Oracle12c。我们还需要下载oracle 12c 的驱动程序，实现VB和oracle之间交互。

（二）打开VB软件，新建一个Standard EXE的图形窗体，用来完成后续的开发工作，接下来我们可以拖入一些控件，比如Textbox、Listbox等，来完成客户端的用户界面：

（三）完成用户界面部分以后，要实现VB与oracle之间的数据交互，我们需要引用Oracle OLE DB Properties，在文件编辑框的顶部点击「工具」，再点击「引用」，将下面列出的组件勾上即可

1. OLE 2. ADO 2.6/ 2.7/ 2.8

接下来定义数据库连接变量，以及执行查询语句时用到的命令变量：

Dim Conn As ADODB.Connection ‘用于定义数据库连接

Dim Cmd As ADODB.Command ‘用于定义命令变量

（四）修改Form_load事件，完成连接Oracle：

Sub Form_Load()

Set Conn = New ADODB.Connection

Dim ConnectionString As String

ConnectionString = “provider = oledb.oracle;data source = oracle12c;user id = username;password = passwd;”

Conn.Open ConnectionString

End Sub

（五）查询操作实现：

Sub btn_select_Click()

On Error GoTo ErrorHandler

Set Cmd = New ADODB.Command

Cmd.ActiveConnection = Conn

Dim SQL_text As String

SQL_text = “SELECT 字段 FROM 表”

Cmd.CommandText = SQL_text

Set RS = Cmd.Execute()

ListBox1.Clear

Do While Not RS.EOF

ListBox1.AddItem RS.Fields.Item(1).Value

RS.MoveNext

Loop

RS.Close

Set RS = Nothing

Label4.Caption = “查询完成。”

Exit Sub

ErrorHandler:

MsgBox “错误号：” & Err.Number & “；错误信息：” & Err.Description

End Sub

（六）最后，在Form_unload事件中，添加一个关闭数据库连接的操作：

Sub Form_Unload(Cancel As Integer)

If Not (Conn Is Nothing) Then

Conn.Close

Set Conn = Nothing

End If

End Sub

结束了Visual Basic 6与Oracle数据库的交互查询操作，在这里，主要涉及了Oracle相关的驱动程序的安装，以及如何引用数据库的操作，接着是连接了Oracle，完成最基本的查询操作。