安装并创建 Oracle 数据库 11g 或 Oracle 数据库 10g 数据库服务器

安装 Visual Studio .NET 2003 或更高版本

从 Oracle 数据库客户端或 OTN 安装 ODP.NET 11g

从 Windows“程序”菜单启动 Visual Studio。Microsoft Visual Studio GUI 环境出现。在 Recent Projects 面板中的 Create 旁边：单击 Project。

从 Project 类型列表中选择 Visual Basic:Windows。选择 Windows Application 模板。在 Name 域中输入 OraWinApp。在 Location 域中输入要在其中保存文件的目录。（注：如果该目录不存在，将创建该目录）。单击 OK。

项目创建成功。从 View 菜单中，选择 Solution Explorer 打开 Solution Explorer（如果尚未打开）。

从 Project 菜单中，选择 Add Reference...

Add Reference 对话框出现。

向下滚动 Component Names 的列表并选择 Oracle.DataAccess。单击 OK。

从 View 菜单，选择 Toolbox。工具箱出现。展开 Common Controls。

将 Button 控件拖到 Form1 画布上。

该控件在画布上显示。您还需要创建一个标签。

从 Toolbox 中，将 Label 控件拖到 Form1 画布上。

双击 Button1 打开代码窗口。注意，Form1.cs 代码窗口打开。

在 Public Class 声明之前添加以下 VB.NET Imports 语句。

Imports System.Data
Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider
Imports Oracle.DataAccess.Types

在 Private Sub 和 End Sub 语句之间添加以下 VB.NET 代码。

Dim oradb As String = "Data Source=orcl;User Id=hr;Password=hr;"
Dim conn As New OracleConnection(oradb) conn.Open()
Dim cmd As New OracleCommand
cmd.Connection = conn
cmd.CommandText = "select department_name from departments where department_id = 10"
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
Label1.Text = dr.Item("department_name")
conn.Dispose()

选择 Build > Build Solution。

在输出窗口中，确保未收到任何错误。现在可以运行表单了。

选择 Debug > Start Without Debugging。

显示表单。单击 Button1。

标签中显示结果。由于代码中的查询要显示部门 ID 为 10 的部门名称，因此结果是管理部门。关闭 Form1。

选择 Form1.vb [Design] 选项卡。从 Toolbox 中，将 TextBox 控件拖到 Form1 画布上。

文本框随即显示。您可以将其拖到所需的位置。

将 Label 控件拖到 Form1 画布上。

随即显示标签。右键单击 Label2，然后选择 Properties。

在 Properties 表中，将 Text 属性更改为 Enter Department ID:

选择 Form1.vb 选项卡。

使用绑定变量在 SELECT 语句中包括文本框的值。利用绑定变量，数据库不必在每次文本框值更改时都重新分析 SQL 语句，从而可以提高性能。

紧跟 conn.Open() 语句 后添加以下代码：

Dim parm As New OracleParameter
parm.OracleDbType = OracleDbType.Decimal
parm.Value = TextBox1.Text        

紧跟 cmd.Connection 语句后添加 cmd.Parameters 语句：

cmd.Parameters.Add(parm)        

将 cmd.CommandText 语句的代码更改为：

cmd.CommandText = "select department_name from departments where department_id =:1"

选择 Build > Rebuild Solution。

查看输出窗口中是否报告了任何错误。如果没有错误或警告，继续进行下一步。

选择 Debug > Start Without Debugging。

在 Department ID 中输入 20，然后单击 Button1。

注意，Label1 更改为部门的名称。该值取决于在 Department ID 域中输入的内容。

在 Department ID 中输入 300，然后单击 Button1。

这一次您将收到一条错误，因为没有 ID 为 300 的部门。单击 Quit。在下一个主题中添加一些错误处理以便了解收到错误的确切原因。

在 Form1.vb 代码中，将以下代码由

dr.Read()
label1.Text = dr.Item("department_name");

更改为

If dr.Read() Then
    Label1.Text = dr.Item("department_name")
Else
    Label1.Text = "Department ID not found"
End If

选择 Build > Rebuild Solution。

选择 Debug > Start Without Debugging。

再次在 Department ID 中输入 300，然后单击 Button1。

这一次，将显示 Department ID is not found 消息。关闭 Form1。

单击 Form1.vb [Design] 选项卡。从 Toolbox 中，将 Listbox 控件拖到 Form 1 画布上。

表单上显示新的列表框。您可以相应地调整列表框的位置和大小。单击 Form1.vb 选项卡。

删除 cmd.Parameters.Add (parm) 语句。

将 cmd.CommandText 代码由

cmd.CommandText = "select department_name from departments where department_id = :1"

更改为

cmd.CommandText = "select department_id, department_name, city" _ 
                  + " from  departments d, locations l" _
                    + " where d.location_id = l.location_id"

此外，将以下代码行由

If dr.Read() Then
     Label1.Text = dr.Item("department_name") 
Else 
     Label1.Text = "Department ID not found" 
End If 

更改为

While dr.Read()
  ListBox1.Items.Add("The " + dr.Item(1) _
         + " department is in " + dr.Item("city"))
End While

选择 Build > Rebuild Solution。

选择 Debug > Start Without Debugging。

单击 Button1。

将显示所有部门及其位置的列表。关闭 Form1。