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

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

Oracle 11g Oracle Data Access Components (ODAC) with Oracle Developer Tools for Visual Studioバージョン 11.1.0.6.20以上を 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...」を選択します。

Add Referenceダイアログ・ボックスが表示されます。

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

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

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

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

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

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

以下の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.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 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を閉じます。