Oracle Data Provider for .NET（VB.NET Version）について

Microsoft Visual Studio 2010をインストールしていること

Oracle Database 9.2以上またはOracle Database XEをインストールしていること

Oracle 11g Oracle Data Access Components (ODAC) with Oracle Developer Tools for Visual Studioバージョン11.2.0.1.2以降を、OTNから入手し、インストールしていること

Windowsのプログラム・メニューから、Visual Studioを起動します。Fileメニューから、「New Project」を選択します。

Project typesリストから、「Visual Basic:「Windows」を選択します。テンプレート「Windows Form Application」を選択します。Nameフィールドに、OraWinAppと入力します。Locationフィールドで、ファイルを保存するディレクトリを指定します。（注：ディレクトリが存在しない場合は、作成されます）。「OK」をクリックします。

プロジェクトが作成されました。Viewメニューから、「Solution Explorer」を選択してSolution Explorerを開きます（まだ開いていない場合）。

Projectメニューから、「Add Reference...」を選択します。

コンポーネント名のリストを下方向にスクロールして、「Oracle.DataAccess」を選択します。「OK」をクリックします。

Viewメニューから「Toolbox」を選択します。ツールボックスが表示されます。「Common Controls」を開きます。

「Button」コントロールをForm1キャンバスにドラッグします。

キャンバスにコントロールが表示されます。ラベルも作成する必要があります。

ツールボックスから、「Label」コントロールをForm1キャンバスにドラッグします。

「Button1」をダブルクリックして、コード・ウィンドウを開きます。Form1.vbコード・ウィンドウが開きます。

以下のVB.NET Imports文を、Public Class宣言の前に追加します。

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

以下のVB.NETコードを、Private Sub文とEnd Sub文の間に追加します。

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 OraWinApp」を選択します。

Outputウィンドウで、エラーがないことを確認します。これで、フォームを実行できます。

「Debug」→「Start Without Debugging」の順に選択します。

フォームが表示されます。「button1」をクリックします。

結果がラベルに表示されます。コード内の問合せは、部門IDが10の部門名を表示するためのものだったので、結果はAdministration部門になります。Form1を閉じます。

「Form1.vb [Design]」タブを選択します。ツールボックスから、「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.Parameters文をcmd.Connection文のすぐ後に追加します。

cmd.Parameters.Add(parm)

cmd.CommandText文のコードを次のように変更します。

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

「Build」→「Rebuild OraWinApp」を選択します。

Outputウィンドウでエラーがないことを確認します。エラーも警告もない場合は、次の手順に進みます。

「Debug」→「Start Without Debugging」の順に選択します。

Department IDに20と入力して、「button1」をクリックします。

Label1が部門名に変わることを確認します。部門名は、Department IDフィールドに入力した値によって異なります。

Department IDに300と入力して、「button1」をクリックします。

IDが300の部門はないため、今回はエラーが表示されます。「Quit」をクリックします。次のトピックでは、エラー処理を追加して、エラーが発生した理由を正確に把握できるようにします。

Form1.csウィンドウで、次のコードを変更します。

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 OraWinApp」を選択します。出力ウィンドウでエラーがないことを確認します。

「Debug」→「Start Without Debugging」の順に選択します。

Department IDにもう一度300と入力して、「button1」をクリックします。

今回は、Department ID not foundというメッセージが表示されます。Form1を閉じます。

「Form1.vb [Design]」タブをクリックします。ツールボックスから、「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 OraWinApp」を選択します。

「Debug」→「Start Without Debugging」の順に選択します。

「button1」をクリックします。

リストにすべての部門とそれぞれの場所が表示されます。Form1を閉じます。