作成された新規フォームに、ツールボックスから[DataGridView]と[Button]をドラッグ&ドロップします。それぞれのNameプロパティを「gvEmp」「btnCommit」とし、「btnCommit」のTextプロパティを「Commit」とします(図3)。
OracleエクスプローラよりEMP表を「gvEmp」にドラッグ&ドロップします。パスワード保存に関するダイアログが表示された場合は[はい]をクリックします(図4)。
作成されたOracleDataAdapterの右上の▲マークをクリックし[OracleDataAdapterタスク]より[DataAdapterを構成]を選択します(図5)。
ウィザードが起動するのでEMP表にアクセスする接続を選択します(図6)。
次にSELECTするSQL文を記述しますが、ここでは行レベルの変更通知機能を有効にするため疑似列ROWIDも同時に取得します(図7)。設定するSQL文は以下のとおりです。
SELECT *, ROWID FROM EMP
「INSERT、UPDATEおよびDELETE文を構成」では[自動]を選択します(図8)。
サマリーが表示されるので、[終了]をクリックします(図9)。
OracleDataAdapterタスクより[DataSetの生成]を選択します(図10)。
「GvEmp」の[GridViewタスク]より[データソースの選択]を起動し、作成したEmp1データセットのEMP表を選択します(図11)。
ソリューションエクスプローラ上でForm1を右クリックし[コードの表示]を選択します。表示されたForm1.vbに画面表示時のFillメソッドとCommitボタン押下時のUpdateメソッドを記述します(リスト1)。
Imports Oracle.DataAccess.Client Imports Oracle.DataAccess.Types Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Me.Load empOracleDataAdapter1.Fill(Emp1.Emp) End Sub Private Sub btnCommit_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles btnCommit.Click empOracleDataAdapter1.Update(Emp1.Emp) End Sub End Class
デバッグ実行をすれば、EMP表を表示、更新できます。
Copyright © ITmedia, Inc. All Rights Reserved.