VB実用④　アクセス操作Ⅱ

Size: px

Start display at page:

Download "VB実用④　アクセス操作Ⅱ"

しのぶやぶき
5 years ago
Views:

VB でアクセス操作 Ⅱ VB 2005 4 プログラムの概要前回に引き続き此処ではコードに依るデータベースの操作方法を学ぶコネクションオブジェクトを用いてデータベースと接続し表形式でデータを表示するデータグリッドビューコントロールにレコードデータを自動的に表示する手法を学ぶ既に学んだ様にコントロールを連結する事に依りコードレスでデータベース操作が可能で有るが此処では

1 VB でアクセス操作 Ⅱ VB プログラムの概要前回に引き続き此処ではコードに依るデータベースの操作方法を学ぶコネクションオブジェクトを用いてデータベースと接続し表形式でデータを表示するデータグリッドビューコントロールにレコードデータを自動的に表示する手法を学ぶ既に学んだ様にコントロールを連結する事に依りコードレスでデータベース操作が可能で有るが此処では着目して居る行 ( カレントレコード ) の指定と個々の列データ ( フィールドデータ ) の取得に付いて学ぶ亦高度なデータベース操作の下準備と仕て ADO.NET オブジェクトをコードで操作する事とデータベース操作の基礎と成る SQL に慣れ親しむ事を目的とする今回の課題項目 ADO.NET に依るデータベース接続 ( コネクションオブジェクト ) ADO.NET に依るデータベース接続 (ConnectionString プロパティ Open メソッド ) ADO.NET に依るデータベース操作 ( データアダプタオブジェクト ) ADO.NET に依るデータベース操作 (SelectCommand Command プロパティ ) ADO.NET に依るデータベース操作 (Fill メソッド ) ADO.NET に依るデータセット操作 ( データセットオブジェクト ) ADO.NET に依るテーブルデータ操作 (Tables コレクション Clear メソッド ) ADO.NET に依るレコードデータ操作 (Rows コレクション Count プロパティ ) ADO.NET に依るフィールドデータ操作 (Item コレクション ToString メソッド ) 連結コントロールの利用 ( データグリッドビュー DataSource Datamember プロパティ ) コネクションの切断 ( コネクションオブジェクト Close メソッド ) オブジェクト変数の開放 ( オブジェクト.Dispose) 今回の重点項目 ADO.NET に依るデータベース接続 ( コネクションオブジェクト ) ADO.NET に依るデータベース操作 ( データアダプタオブジェクト ) ADO.NET に依るデータセット操作 ( データセットオブジェクト ) SQL 文 (SELECT 文 : レコードを検索する文 ) -1-

オブジェクトプロパティ一覧テキストボックス 1 ラベル1 ラベル2 ラベル3 ラベル4 ラベル5 ラベル6 テキストボックス2 テキストボックス3 デートダイムピッカーコンボボックス1 テキストボックス4 コンボボックス2 テキストボックス5 データグリッドビューコマンドボタン 1 コマンドボタン 2 コマンドボタン 3 コントロールの種類プロパティプロパティの設定値フォーム

2 オブジェクトプロパティ一覧テキストボックス 1 ラベル1 ラベル2 ラベル3 ラベル4 ラベル5 ラベル6 テキストボックス2 テキストボックス3 デートダイムピッカーコンボボックス1 テキストボックス4 コンボボックス2 テキストボックス5 データグリッドビューコマンドボタン 1 コマンドボタン 2 コマンドボタン 3 コントロールの種類プロパティプロパティの設定値フォーム Name access Caption 本棚データベースラベル1 Name lblid ID ラベル2 Name lbltitle タイトルラベル3 Name lblprice 価格ラベル4 Name lbldate 購入日ラベル5 Name lblcate カテゴリラベル6 Name lblwriter 著者テキストボックス1 Name txtid テキストボックス2 Name txttitle テキストボックス3 Name txtprice テキストボックス4 Name txtcate テキストボックス5 Name txtwriter デートタイムピッカー Name dtpdate コンボボックス1 Name cbocate コンボボックス2 Name cbowriter データグリッドビュー Name dgvbook コマンドボタン1 Name btninsert 追加コマンドボタン2 Name btnupdate コマンドボタン1~3は変更今回は使用しないコマンドボタン3 Name btndelete 削除 -2-

3 プログラムリスト ' 名前空間のインポート Imports System.Data Imports System.Data.OleDb Public Class access ' 同一クラス内でグローバルな変数の宣言 Private Cn As OleDbConnection Private Ds As DataSet 記述を簡略化する為に名前空間をインポートして居る此れに依り名前空間以下のクラスは名前空間を省略して記述出来る Private DaB Private DaC Private DaW Private DaT Private Tn As OleDbDataAdapter As OleDbDataAdapter As OleDbDataAdapter As OleDbDataAdapter As String = "BOOK" 此処で宣言した変数は同じクラス内の総てのプロシージャ ( メソッド ) で値の参照と設定を行う事が出来る ' フォームが読み込まれた時の処理 Private Sub access_load( ByVal sender As System.Object, ByVal e As System.EventArgs ) _ Handles MyBase.Load ' データベースへの接続情報の設定 Cn = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb" ) ' データアダプタの生成 DaB = New OleDbDataAdapter( "SELECT * FROM 本 ", Cn ) DaC = New OleDbDataAdapter( "SELECT * FROM カテゴリ ORDER BY ID", Cn ) DaW = New OleDbDataAdapter( "SELECT * FROM 著者 ORDER BY ID", Cn ) DaT = New OleDbDataAdapter( "SELECT * FROM カテゴリ WHERE ID=0", Cn ) ' データセットの生成 Ds = New DataSet ' SQL の発行と取得したデータのデータセットへの格納 DaB.Fill( Ds, "BOOK" ) DaC.Fill( Ds, "CATEGORY" ) DaW.Fill( Ds, "WRITER" ) DaT.Fill( Ds, "TEMP" ) 各テーブルから総てのフィールドのデータを抽出する SQL 文を作成する ORDER BY 節は抽出データの並び順を WHERE 節は抽出条件を設定する ' データセット内のデータソースをデータグリッドビューに連結 dgvbook.datasource = Ds dgvbook.datamember = "BOOK" ' コンボボックス ( カテゴリ著者 ) の設定 Call CboAddItem( ) End Sub ' フォームが閉じられ様と仕た時の処理 Private Sub access_formclosing( ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs ) Handles MyBase.FormClosing ' 各インスタンスの破棄 Ds.Dispose( ): DaB.Dispose( ): DaC.Dispose( ): DaW.Dispose( ): DaT.Dispose( ) ' コネクションのクローズと破棄 Cn.Close( ): Cn.Dispose( ) End End Sub -3- イベントプロシージャに其処で処理される総てのコードを記述するのでは無く処理ブロック毎にサブルーチン化する事は開発効率や保守性を高める効果が有る Close メソッドは関連するシステムリソースを開放する丈でメモリから削除するには Dispose する必要が有る

4 ' データグリッドビューの行ヘッダがクリックされた時の処理 Private Sub dgvbook_rowheadermouseclick( ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs ) _ Handles dgvbook.rowheadermouseclick 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照 Dim S As String = "" と設定を行う事が出来ない ' 着目行の各フィールド値をテキストボックスに表示フィールドデータがヌルやオブ Dim N As Integer = dgvbook.currentrow.index ジェクトの場合が有る為 VB で If N < Ds.Tables( "BOOK" ).Rows.Count Then 取り扱う事の出来る文字列に変更する為に ToString を使用する ' データセットから取得 txtid. = Ds.Tables( "BOOK" ).Rows( N ).Item( "ID" ).ToString txttitle. = Ds.Tables( "BOOK" ).Rows( N ).Item( " タイトル " ).ToString txtprice. = Ds.Tables( "BOOK" ).Rows( N ).Item( " 価格 " ).ToString dtpdate.value = Ds.Tables( "BOOK" ).Rows( N ).Item( " 購入日 " ).ToString txtcate. = Ds.Tables( "BOOK" ).Rows( N ).Item( " カテゴリ ID" ).ToString txtwriter. = Ds.Tables( "BOOK" ).Rows( N ).Item( " 著者 ID" ).ToString ' データグリッドビューから取得 ( 参考 ) ' txtid. = dgvbook.currentrow.cells( "ID" ).Value ' txttitle. = dgvbook.currentrow.cells( " タイトル " ).Value ' txtprice. = dgvbook.currentrow.cells( " 価格 " ).Value ' txtdate. = dgvbook.currentrow.cells( " 購入日 " ).Value ' txtcate. = dgvbook.currentrow.cells( " カテゴリ ID" ).Value ' txtwriter. = dgvbook.currentrow.cells( " 著者 ID" ).Value 左記の様にデータグリッドビューから指定行の列データを取得する事も出来る此の様にコードの記述方法は必ずしも一通りでは無い ' コンボボックス ( カテゴリ ) の設定 Ds.Tables( "TEMP" ).Clear( ) S = Ds.Tables( "BOOK" ).Rows( N ).Item( " カテゴリ ID" ).ToString DaT.SelectCommand.Command = _ "SELECT カテゴリ名 FROM カテゴリ WHERE ID=" & S DaT.Fill( Ds, "TEMP" ) S = Ds.Tables( "TEMP" ).Rows( 0 ).Item( " カテゴリ名 " ).ToString For I As Integer = 0 To ( cbocate.items.count - 1 ) If cbocate.items.item( I ) = S Then cbocate.selectedindex = I Exit For End If Next ' コンボボックス ( 著者 ) の設定 Ds.Tables( "TEMP" ).Clear( ) S = Ds.Tables( "BOOK" ).Rows( N ).Item( " 著者 ID" ).ToString DaT.SelectCommand.Command = _ "SELECT 著者名 FROM 著者 WHERE ID=" & S DaT.Fill( Ds, "TEMP" ) S = Ds.Tables( "TEMP" ).Rows( 0 ).Item( " 著者名 " ).ToString For I As Integer = 0 To ( cbowriter.items.count - 1 ) If cbowriter.items.item( I ) = S Then cbowriter.selectedindex = I Exit For End If Next Else txtid. = "": txttitle. = "": txtprice. = "": dtpdate. = "": txtcate. = "" txtwriter. = "": cbocate.selectedindex = -1: cbocate.selectedindex = -1 End If End Sub -4- For 文等のブロック内で宣言した変数は宣言したブロック内でしか値の参照と設定を行う事が出来ない ( 変数 I が相当 ) 記号アンパサント (&) は文字列を結合する演算子で有るコンボボックスの項目をコードで選択するには SelectedIndex に選択する項目のインデックスを設定する

5 ' コンボボックスにアイテムを追加するジェネラルプロシージャ Count は個数を表すプロパティ Private Sub CboAddItem( ) で有り 1 スタートで有る ' カテゴリの設定 cbocate.items.clear( ) For I As Integer = 0 To ( Ds.Tables("CATEGORY").Rows.Count - 1 ) cbocate.items.add( Ds.Tables( "CATEGORY" ).Rows( I ).Item( " カテゴリ名 " ).ToString ) Next ' 著者の設定 cbowriter.items.clear( ) For I As Integer = 0 To ( Ds.Tables("WRITER").Rows.Count - 1 ) Rows の引数はインデックスを表すプロパティで有り 0 スタートで有る cbowriter.items.add( Ds.Tables( "WRITER" ).Rows( I ).Item( " 著者名 " ).ToString ) Next End Sub End Class コンボボックス (ComboBox) コンボボックスコントロールはテキストボックス (Box) コントロールとリストボックス (ListBox) コントロールのを組み合わせた物でユーザーはテキストボックス部分にテキストを直接入力する方法とリスト部分から項目を選択する方法の孰れでも入力する事が出来るが一般的に折り畳む事の出来るリストボックスと仕て利用する事が多いリスト部分の主要なコレクションメソッドプロパティには下記の物が有る SelectedIndex: 現在選択されて居る項目のインデックスを設定取得するプロパティ Items: 項目のオブジェクトを取得するコレクション Items.Count: 現在の項目数を返すプロパティ Items.Clear: 項目をクリアするメソッド Items.Add: 新しい項目を追加するメソッド Items.Remove: 項目を削除するメソッド Items.Item: 指定したインデックスに有る項目を取得するプロパティデートタイムピッカー (DateTimePicker) デートタイムピッカーコントロールは日付や時間のリストから 1 つの項目を選択する為のコントロールで有る此のコントロールで日付を表す場合テキスト表示された日付のドロップダウンリストと其の隣の下向きの矢印をクリックした時に表示されるグリッドの 2 箇所の部分で構成される主要なプロパティには下記の物が有る Value: 代入された日付や時刻値を設定取得するプロパティ : の設定された Value プロパティの値を示すプロパティ Format: 表示される日時のを設定取得するプロパティ CustomFormat: 日付や時刻のカスタム指定文字列を取得設定するプロパティ MaxDate: 選択出来る日時の最大値を取得設定するプロパティ MinDate: 選択出来る日時の最小値を取得設定するプロパティ -5-

6 OleDbConnection クラスデータソースへの開いた接続を表すクラス OleDbConnection オブジェクトはデータソースへの一意な接続を表すサーバーとクライアントで構成されるデータベースシステムではサーバーへのネットワーク接続に相当する OleDbConnection オブジェクトは適用範囲外に抜けても自動的に閉じられる事は無い即ち例えばプロシージャレベルで宣言した変数に割り当てられた OleDbConnection オブジェクトを開いた場合其のプロシージャを抜けても自動的に閉じられる事もオブジェクト自体がメモリから開放される事は無い其の為 Close メソッドや Dispose メソッドを呼び出すか OleDbConnection オブジェクトを Using ステートメント内に記述する事に依り明示的に接続を閉じる必要が有る OleDbConnection クラスのコンストラクタ OleDbConnection オブジェクトを生成するメソッド Dim 変数 As New OleDbConnection( 接続文字列 ) 接続文字列を指定して OleDbConnection クラスの新しいインスタンスを初期化する引数の接続文字列にはデータベースを開く為に使用する接続を表す文字列を指定する ACCESS データベースを接続する為の接続文字列は下記の様に成る例 1:"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb" 例 2:"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c: access_db data.mdb" 上記の例 1 ではプロバイダに Microsoft.Jet.OLEDB.4.0(Access 2000 以降用 ) をデータソース ( 接続対象と成るデータベース ) に EXE ファイルと同じフォルダに格納された data.mdb を指定して居る猶接続対象と成るデータベースが EXE ファイルと同じフォルダに格納されて居ない場合は例 2 の様にフルパスで指定する必要が有る猶セキュリティ情報に関して Persist Security Info や Integrated Security も指定する事も出来る OleDbConnection クラスの新しいインスタンスを作成すると読み書き可能プロパティは引数の接続文字列のキーワードを関連付けて設定した場合を除いて下記の初期値に設定されるプロパティ初期値 ConnectionString 引数で指定した接続文字列 ConnectionTimeout 15 Database 空の文字列 ( "" ) DataSource 空の文字列 ( "" ) 猶此等のプロパティの値を変更するには ConnectionString プロパティを使用する必要が有る OleDbConnection クラスのコンストラクタには引数を指定しない形のオーバーロードも有る此のコンストラクタを使用した場合はインスタンスを生成した後 ConnectionString プロパティでプロバイダやデータソースを指定する必要が有る -6-

7 OleDbConnection クラスの Open メソッド ( 参考 ) ConnectionString で指定したプロパティ設定を使用してデータベース接続を開くメソッド Object.Open( ) 接続プール内で開いて居る接続が利用出来る場合は其の接続を使用し利用出来ない場合はデータソースへの新しい接続を確立する OleDbConnection は適用範囲外でも自動的に閉じられる事はない其の為 Close や Dispose を呼び出すか接続を Using ステートメント内に記述して使用後は明示的に接続を閉じる必要が有る OleDbConnection クラスの Close メソッドデータソースへの接続を閉じるメソッド Object.Close( ) 保留中のトランザクションをロールバックし其の後接続を接続プールに解放する接続プールが無効の場合は接続を閉じる StateChange イベントの処理中に Close メソッドを呼び出しても更に StateChange イベントが発生する事は無い ( イベントの連鎖は無い ) 亦プログラム中で複数回 Close メソッドを呼び出しても例外 ( エラー ) は発生しない Close メソッドは関連するシステムリソースを開放する丈でオブジェクトをメモリから削除する訳では無いメモリから削除するには Dispose メソッドを実行する必要が有る DataAdapter に依る Connection の Open と Close DataAdapter クラスの Fill メソッドを使用してデータベースより DataSet オブジェクトに行を取得する場合及び Update メソッドを使用して DataSet オブジェクトに加えられた変更をデータベースに書き戻す場合には Connection の開始と終了を明示的に行う必要は無い Fill メソッドは接続が未だ開いて居ない事を認識すると DataAdapter が使用して居る Connection を暗黙的に開く Fill が接続を開いた場合は Fill の終了時に Fill が接続を終了する此れはマニュアルには記載されて居ないが Update メソッドの場合も同様で有る猶 Fill を呼び出す前に接続が開いて居た場合は接続は開いた儘に成る此れに依り Fill や Update 等の単一の操作を扱う場合にコードを簡略化出来る此れに対し開いて居る接続を必要とする複数の操作を実行する場合は Connection の Open メソッドを明示的に呼び出しデータソースに対する操作の実行後に Connection の Close メソッドを呼び出す事でアプリケーションのパフォーマンスを改善出来るリソースを解放して他のクライアントアプリケーションが使用出来る様にする為にデータソースへの接続を開いた儘にする時間は最小限にする事を推奨する -7-

8 OleDbConnection クラスの ConnectionString プロパティ ( 参考 ) データベースを開く為に使用する文字列を取得設定するプロパティ Object.ConnectionString = 接続文字列データソース名を含む OLE DB プロバイダ接続文字列及び初期接続を確立する為に必要な其の他のパラメータを指定する接続文字列のは OLE DB 接続文字列のと粗一致して居るが下記の相違点が有る Provider 句は必須で有る指定出来るプロバイダには Microsoft.Jet.OLEDB.4.0(Access 2000 以降 ) SQLOLEDB(SQL Server 6.0 以前 ) MSDAORA(Oracle 未満 ) 等が有る ODBC や ADO とは異なり Persist Security Info を false( 既定値 ) に設定するとユーザーが設定した接続文字列からセキュリティ情報を除いた接続文字列が返される Persist Security Info キーワードを true に設定した場合 ( 非推奨 ) を除き OleDbConnection では接続文字列のパスワードは永続化されず返されない高度なセキュリティレベルを維持する為には Persist Security Info を false に設定して Integrated Security キーワードを使用する事が推奨されて居る接続文字列の例を下記に示す "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c: bin LocalAccess40.mdb" "Provider=SQLOLEDB;Data Source=(local);Integrated Security=SSPI" "Provider=MSDAORA; Data Source=ORACLE8i7;Persist Security Info=False;Integrated Security=Yes" 接続文字列中に Data Source キーワードを指定しない場合プロバイダは利用可能なローカルサーバへの接続を試みる ConnectionString プロパティを設定出来るのは接続が閉じて居る時丈で有る接続文字列値の多くには対応する読み取り専用プロパティが有る接続文字列を設定するとエラーが検出された場合を除いて此等のプロパティが更新されるエラーが発生した場合は孰れのプロパティも更新されない OleDbConnection プロパティは ConnectionString に含まれて居る設定丈を返す閉じた接続に対して ConnectionString をリセットすると総ての接続文字列値と関連プロパティがリセットされる ( パスワードも対象と成る ) 例えば Initial Catalog= AdventureWorks を指定した接続文字列を設定した後で此の接続文字列を下記の様ににリセットすると Database プロパティは AdventureWorks に設定されない ( 接続文字列の Initial Catalog 値は Database プロパティに対応する ) Provider= SQLOLEDB;Data Source= MySQLServer;IntegratedSecurity=SSPI プロパティの設定時には接続文字列に対して予備的な検証が実行される Provider Connect Timeout Persist Security Info OLE DB Services の値が文字列に含まれて居る場合は此等の値がチェックされるアプリケーションが Open メソッドを呼び出した時は接続文字列が完全に検証される接続文字列に無効なプロパティやサポートされないプロパティが含まれて居る場合は ArgumentException 等の実行時例外が発生する -8-

9 OleDbDataAdapter クラスデータソースとデータセットの間を仲介するクラスデータセットへのデータの格納とデータソースの更新に使用される一連のデータコマンドとデータベース接続を表す DataAdapter は DataSet とデータソースとの間でデータの取得と保存を行う為の仲介の役割を果たす DataAdapter は其の為に DataSet 内のデータをデータソース内のデータと一致する様に変更する Fill メソッドとデータソース内のデータを DataSet 内のデータと一致する様に変更する Update メソッドが用意されて居る OLE DB をサポートするデータソース (Access 等 ) に接続する場合は関連付けられた OleDbCommand オブジェクトや OleDbConnection オブジェクトと共に OleDbDataAdapter を使用する事に依り全体的なパフォーマンスを向上させる事が出来るデータベースの種類 OLE DB データソース SQL Server データベース ODBC データソース Oracle データベース最適化されたクラス OleDbCommand OleDbConnection OleDbDataAdapter SqlCommand SqlConnection SqlDataAdapter OdbcCommand OdbcConnection OdbcDataAdapter OracleCommand OracleConnection OracleDataAdapter DataAdapter のインスタンスを作成すると読み書き可能プロパティが初期値に設定される此等の初期値の一覧に付いては DataAdapter コンストラクタの記述を参照され度い OleDbDataAdapter クラスのコンストラクタ OleDbDataAdapter オブジェクトを生成するメソッド Dim 変数 As New OleDbDataAdapter( 選択クエリ, 接続 ) SelectCommand クラスの Command プロパティを使用して OleDbDataAdapter クラスの新しいインスタンスを初期化する (4 種のオーバーロードが有る ) 引数の選択クエリには SQL SELECT ステートメント又はストアドプロシージャで有る文字列を指定する此の文字列は OleDbDataAdapter の SelectCommand プロパティに使用される亦引数の接続には接続を表す OleDbConnection を指定する OleDbDataAdapter の実装では OleDbConnection が開いて居ない場合は此の接続が開かれ再び閉じられる此れはアプリケーションで複数の OleDbDataAdapter オブジェクトの Fill メソッドを呼び出す必要が有る場合に効果的で有る OleDbConnection が既に開いて居る場合其の接続を閉じるには明示的に Close メソッドや Dispose メソッドを呼び出す必要が有る OleDbDataAdapter のインスタンスを作成すると下記の様に読み取り / 書き込みプロパティが初期値に設定されるプロパティ MissingMappingAction MissingSchemaAction 初期値 MissingMappingAction.Passthrough MissingSchemaAction.Add -9-

10 OleDbDataAdapter クラスの Fill メソッドデータを DataSet に取り込むメソッド Object.Fill( データセット名, テーブル名 ) DataSet 名と DataTable 名を使用してデータソース内の列と一致する様に DataSet 内の行を追加更新する (7 種のオーバーロードが有る ) 引数のデータセット名にはレコード及び必要に応じてスキーマを格納する為の DataSet を指定する亦引数のテーブル名にはテーブルマップに使用するソーステーブルの名前を指定する亦戻り値には DataSet で正常に追加や更新された行数が返される此れには行を返さないステートメントの影響を受ける行は含まれないコマンドが行を返さない場合は DataSet にテーブルは追加されない ( 此の場合例外は発生しない ) Fill メソッドは SELECT ステートメントを使用してデータソースからデータを取得する SELECT コマンドに関連付けられた IDbConnection オブジェクトは有効な物で有る必要が有るが開いて居る必要は無い Fill メソッドを呼び出す前に IDbConnection が閉じて居る場合は接続が開かれデータを取得した後で再び閉じられる Fill メソッドを呼び出す前に接続が開いて居た場合は接続は開いた儘に成る DataTable へのデータの格納中に重複する列が存在する場合 2 番目以降の列には DbDataAdapter オブジェクトに依り自動的に columnname1 columnname2 columnname3 の様な形式で名前が付けられ亦受信したデータに無名の列が含まれて居た場合は Column1 Column2 の様な形式の名前で DataSet に列が格納される指定したクエリが複数の結果を返す場合は各結果セットが個別のテーブルに格納される 2 番目以降の結果セットには指定されたテーブル名に整数値を追加した名前が付けられる例えば Table Table1 Table2 の様に成る行を返さないクエリではテーブルは作成されない従って挿入クエリの後で選択クエリを処理した場合選択クエリで作成されるテーブルが最初に作成されるテーブルに成る為此のテーブルが Table と謂う名前に成るアプリケーションで列名やテーブル名を使用する時は此等の名前付けパターンとの衝突が発生しない様に注意する必要が有る Fill メソッドは大文字と小文字の違いを除いて名前が一致する DataTable オブジェクトが DataSet 内に複数含まれる場合に其等を区別する此の場合 Fill メソッドは大文字と小文字を区別して比較を実行し対応するテーブルを見付ける正確に一致するテーブルが存在しない場合は新しく作成する此の動作を表すコード例を下記に示す Dim Ds As DataSet = new DataSet( ) Ds.Tables.Add("aaa") Ds.Tables.Add("AAA") Adapter.Fill( Ds, "aaa" ) ' 既に DataSet 内に存在する "aaa" に充填する Adapter.Fill( Ds, "Aaa" ) ' 新しい "Aaa" と謂う名前のテーブルを追加する猶 ActiveX データオブジェクト (ADO) と ADO.NET 間のリンクを行う為に下記のオーバーロードも用意されて居る OleDbDataAdapter.Fill (DataTable, Object) OleDbDataAdapter.Fill (DataSet, Object, String) -10-

11 OleDbDataAdapter クラスの SelectCommand プロパティ選択クエリの取得と設定を行うプロパティ Object.SelectCommand = OleDbCommand データソース内のレコードを選択する為の SQL ステートメント又はストアドプロシージャの取得と設定を行う引数の OleDbCommand には Fill 処理中に DataSet に格納するレコードをデータソースから選択する為の OleDbCommand オブジェクトを指定する作成済みの OleDbCommand に SelectCommand が割り当てられた場合 OleDbCommand のクローンは作成されない SelectCommand に依り作成済みの OleDbCommand オブジェクトへの参照が維持される OleDbCommand クラスの Command プロパティクエリの取得と設定を行うプロパティ Object.Command = クエリデータソースで実行する SQL ステートメントやストアドプロシージャの取得と設定を行う引数のクエリには実行する SQL ステートメント又はストアドプロシージャを指定する ( 既定値は空の文字列 ) CommandType プロパティの値に依り CommandType プロパティに設定する文字列の種類を下記に示す CommandType プロパティ CommandType プロパティ StoredProcedure ストアドプロシージャ名 1 TableDirect テーブル名 2 SQL ステートメント 3 1 ストアドプロシージャ名に特殊文字が含まれる場合エスケープ文字の構文を使用する必要が有る孰れかの Execute メソッドを呼び出すとコマンドが此のストアドプロシージャを実行する 2 テーブル名に特殊文字が含まれる場合はエスケープ文字の構文を使用する必要が有る孰れかの Execute メソッドを呼び出すと指定したテーブルの総ての行と列が返される 3 OLE DB.NET プロバイダでは OleDbCommand が呼び出す SQL ステートメントやストアドプロシージャにパラメータを渡す為の名前付きパラメータは利用出来ない此の場合は疑問符プレースホルダを使用する次に例を示す SELECT * FROM 本 WHERE ID =? 従ってパラメータの疑問符プレースホルダの位置と OleDbParameter オブジェクトを OleDbParameterCollection に追加する順序とを正しく対応させる必要が有る現在の接続で実行又はフェッチ操作が実行中の場合は Command プロパティは設定出来ない -11-

12 DataSet オブジェクト 1 データのメモリ内キャッシュを表すクラスデータソースから取得されたデータをメモリ内にキャッシュする DataSet オブジェクトは ADO.NET で非接続型分散データシナリオをサポートする上で中心的な役割を果たすクラスで有る DataSet はメモリ内に常駐するデータ表現で有りデータソースの違いに拘らず一貫性の有るリレーショナルプログラミングモデルを提供する複数の異なるデータソースや XML データと組み合わせて使用する事が出来亦アプリケーションに取ってローカルなデータの管理にも使用する事が出来る DataSet は関連テーブル制約及びテーブル間のリレーションシップを含む完全なデータセットを表現する DataSet オブジェクトモデルを下図に示す DataSet は DataRelation オブジェクトと相互に関連付ける事が出来る DataTable オブジェクトのコレクションで構成される UniqueConstraint オブジェクトと ForeignKeyConstraint オブジェクトを使用して DataSet 内でデータの整合性を適用する事も出来る DataTable オブジェクトにはデータを格納出来るのに対して DataRelationCollection を使用するとテーブルの階層構造内を移動出来るテーブルは Tables プロパティを使用してアクセス出来る DataTableCollection に格納される DataTable オブジェクトにアクセスする時は条件付きで大文字と小文字が区別される事に注意され度い例えば mydatatable と謂う名前の DataTable と Mydatatable と謂う名前のテーブルが有る場合は此の 2 つのーブルの孰れかを検索する文字列は大文字と小文字を区別すると看做される但し mydatatable と謂う名前は存在するが Mydatatable と謂う名前が存在しない場合は検索文字列は大文字と小文字を区別しないと看做される DataSet ではデータとスキーマを XML ドキュメントとして読み取ったり書き込んだり出来る読み込んだデータとスキーマは HTTP で転送出来 XML 対応の総てのプラットフォーム及びアプリケーションで使用出来るスキーマを XML スキーマと仕て保存するには WriteXmlSchema メソッドを使用するスキーマとデータの両方を保存するには WriteXml メソッドを使用するスキーマとデータの両方を含む XML ドキュメントを読み取るには ReadXml メソッドを使用する -12-

データソースからデータを取得して DataSet オブジェクトに充填するには通常 DataAdapter クラスの Fill メソッドを使用する Fill メソッドを呼び出して DataSet オブジェクトに充填した時下図の様に DataSet オブジェクト DataTable オブジェクト DataRow オブジェクトが階層化されるテーブルの指定 DataTable オブジェクトは

13 データソースからデータを取得して DataSet オブジェクトに充填するには通常 DataAdapter クラスの Fill メソッドを使用する Fill メソッドを呼び出して DataSet オブジェクトに充填した時下図の様に DataSet オブジェクト DataTable オブジェクト DataRow オブジェクトが階層化されるテーブルの指定 DataTable オブジェクトは DataSet 内に充填されたテーブルを表し DataSet オブジェクトの Tables コレクションから取得する事が出来る例 : テーブル名が BOOK のテーブルを指定する Ds.Tables("BOOK") レコード ( 行 ) の指定 DataRow オブジェクトは DataSet 内に充填されたテーブルに含まれるレコードを表し DataSet オブジェクト内の DataTable オブジェクトの Rows コレクションから取得する事が出来る例 : テーブル名が BOOK のテーブルの最初のレコードを指定する Ds.Tables("BOOK").Rows(0) フィールド ( 列 ) の指定指定レコード内のフィールドは Item プロパティから取得する事が出来る Item プロパティはフィールドの値を Object 型で返すプロパティで有る例 : テーブル名が BOOK のテーブルの最初のレコードの ID フィールドを指定する Ds.Tables("BOOK").Rows(0).Item("ID") 猶フィールド値が Null 値か何うかを調べる場合は下記の様に IsNull プロパティを使用する If Ds.Tables("BOOK").Rows(0).IsNull("ID") Then ' 値が Null 値の場合の処理 End If -13-

14 DataSet 内のテーブル名とフィールド名 Rows コレクション内の特定の DataRow オブジェクトを指定するには 0 から始まる序数を使用するが Tables コレクション内の特定の DataTable オブジェクトを指定する場合や DataRow オブジェクト内の特定の Item プロパティを指定する場合には 0 から始まる序数以外にテーブル名やフィールド名で指定する事が出来るテーブル名とフィールド名は DataAdapter オブジェクトの TableMappings プロパティで決まる明示的に TblaMappings プロパティを設定しなかった場合はフィールド名はクエリに含まれるフィールド名に合致する様に自動的に設定されるがテーブル名は既定値で TableN(N は連番 ) と成る其の為任意のテーブル名を指定し度い時は Fill メソッドを呼び出す時に DataSet オブジェクトの Tables コレクションと仕て格納し度いテーブル名を第 2 引数に指定する例 :DataSet オブジェクト内のテーブル名を BOOK に指定して読み込む Dim DaB As OleDbDataAdapter DaB = New OleDbDataAdapter("SELECT * FROM 本 ", Cn) DaB.Fill(Ds, "BOOK") DataTable クラスの Clear メソッド DataTable から総てのデータを消去するメソッド Object.Clear( ) テーブルから総てのレコード ( 行 ) が削除される子レコードを孤立させる様な子リレーションシップが適用されて居る場合は例外が発生するデータセット内の特定のテーブルをクリアするには下記の様に記述するデータセット名.Tables(" テーブル名 ").Clear DataRowCollection クラスの Count プロパティレコード数を表す値を取得するプロパティ Object.Count DataRowCollection コレクション内の DataRow オブジェクトの合計数を取得するデータセット内の特定のテーブルのレコード数を取得するには下記の様に記述するデータセット名.Tables(" テーブル名 ").Rows.Count データベース操作に於いて通常 1 件分のデータをレコード 1 レコードに含まれる個々のデータをフィールドと呼ぶがレコードを行 (Row) フィールドを列 (Column) と謂う事も多い書籍等では孰れの呼称も使用されて居るので不要な誤解を招かない為にも両者が同じ物を表して居る事を認識して置いた方が良い -14-

VB実用③　アクセス操作Ⅰ

VB実用③　アクセス操作Ⅰ VB でアクセス操作 Ⅰ VB 2005 3 プログラムの概要此処ではコントロールを使用しないでコードに依るデータベースへの接続とデータの取得の方法を学ぶコントロールに依るデータベース接続は簡単にデータベースを操作する事が出来ると謂う利点が有り小規模な運用で有れば充分な能力を発揮する併し中規模大規模に成り複雑な操作を必要とする様に成れば力不足に成る可能性が高く成る然う成れば

VB実用④ アクセス操作Ⅱ

VB実用④　アクセス操作Ⅱ