データベースⅢ

Transcription

1 データベース操作プログラム Ⅲ VB プログラムの概要 ACCESS 等のデータベースの操作に不慣れな者でも 簡単に使用する事が出来るようなデータベースアプリケーションを目指します 今回は データグリッドをクリックする事に依り 其のレコードのフィールドデータを個別にテキストボックスやコンボボックスに表示するを付加する 此の際 カテゴリ ID や著者 ID の様に人間に解り難いデータ形式では無く 名称で表示する事に依り 操作性を高めて居る 亦 テキストボックスやコンボボックスで入力したデータを追加したり 表示された内容に変更を加えて更新したり表示されたレコードを削除したりするを付加する VB でデータベースを操作する為の基本と成るを盛り込んで有るので 色々と工夫し 発展させて 操作性の良いアプリケーションに仕上げて下さい 今回の課題項目 コレクションの利用 (ComboBox.Items ADODB.Recordset.Fields) プロパティの利用 (Checked Items.Count SelectedIndex Text Value) メソッドの利用 (Execute Requery WriteLine SubString) ステートメントの利用 (AddHandler Call Exit Sub Exit For) 演算子の利用 (AddressOf Or) 制御構造構文 ( ループ For ~ Next 条件分岐 Select Case If ~ Then End If) デバッグ (Debug.WriteLine) 今回の重点項目 イベントハンドラの追加 (AddHandler) ADODB.Recordset(Fields( ).Value Refresh) ADODB.Connection(Open Execute Close) SQL 文 (INSERT 文 : レコードを追加する文 DELETE 文 : レコードを削除する文 ) 今回の応用項目 タイトルの項目を書き換えた時に削除出来ない不具合を修正する 本テーブル以外 ( カテゴリ 著者 ) のデータも操作 ( 追加 変更 削除 ) 出来る様に変更する -1-

2 プログラムリスト ( 追加分 ) ' フォームが読み込まれた時の処理 Private Sub bookshelf_load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load ' コネクションとレコードセットのインスタンス生成 Cn = New ADODB.Connection Rs = New ADODB.Recordset 前回作成したプログラムを基に追加する ' コネクションの確立 ( データベースへの接続 ) Cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;" Cn.Open( ) ' 選択クエリに依るレコードセットの取得 Rs.Open( "SELECT 本.*, 著者. 著者名 FROM 本, 著者 WHERE 本. 著者 ID= 著者.ID;", Cn ) ' データグリッドへの連結 dgdbookshelf.datasource = Rs ' サブルーチンコール Call CboAddItem( ) Call CateUpdate( ) ' イベントハンドラの追加 追加 AddHandler btninsert.click, AddressOf OperationSQL AddHandler btnupdate.click, AddressOf OperationSQL AddHandler btndelete.click, AddressOf OperationSQL 複数のコントロールを同一のイベントプロシージャに関連付けるには AddHandler ステートメントを使用する 但し イベントプロシージャに関連付けられるプロシージャは 前以て記述して置く ' データグリッドがクリックされた時の処理 追加 Private Sub dgdbookshelf_clickevent( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles dgdbookshelf.clickevent Dim I Dim S As Integer As String ' ラジオボタンで 本 が選択されて居る時だけフィールドデータを表示 If radbook.checked Then txtid.text = Rs.Fields( "ID" ).Value & "" カレントレコードの各フィールド txttitle.text = Rs.Fields( " タイトル " ).Value & "" より其の値を取得して コントロ txtprice.text = Rs.Fields( " 価格 " ).Value & "" ールに表示して居る For I = 0 To ( cbocategory.items.count 1 ) S = cbocategory.items( I ) If Val( Rs.Fields( " カテゴリ ID" ).Value & "" ) = Val( S.Substring( 0, 3 ) ) Then cbocategory.selectedindex = I Exit For End If Next For I = 0 To ( cbowriter.items.count 1 ) S = cbowriter.items( I ) If Val( Rs.Fields( " 著者 ID" ).Value & "" ) = Val( S.Substring( 0, 3 ) ) Then cbowriter.selectedindex = I Exit For End If Next End If -2- コンボボックスのリストに対応する数値を格納する ItemData プロパティが廃止された為 リストに ID の値を 3 桁で含めて居る データグリッドに表示されて居る左端の 部分をクリックすると Recordset 内で 其のレコードが カレントレコードと成る

3 ' コマンドボタンがクリックされた時の処理 追加 Private Sub OperationSQL( ByVal sender As Object, ByVal e As System.EventArgs ) Dim IDX As Integer = sender.tag Dim SQL, SC, SW As String ' ラジオボタンで 本 が選択されて居なければプロシージャを脱出 If Not radbook.checked Then Exit Sub Select Case IDX Case 0 ' ボタン ( 追加 ) がクリックされた場合 If txttitle.text = "" Then Exit Sub If cbocategory.selectedindex < 0 Then Exit Sub If cbowriter.selectedindex < 0 Then Exit Sub SC = cbocategory.items( cbocategory.selectedindex ) : SC = Trim( SC.Substring( 0, 3 ) ) SW = cbowriter.items( cbowriter.selectedindex ) : SW = Trim( SW.Substring( 0, 3 ) ) SQL = "INSERT INTO 本 ( タイトル, 価格, 購入日, カテゴリ ID, 著者 ID) VALUES(" SQL &= "'" & txttitle.text & "'," SQL &= txtprice.text & "," SQL &= "'" & Now & "'," SQL &= SC & "," & SW & ");" Case 1 ' ボタン ( 変更 ) がクリックされた場合 If cbocategory.selectedindex < 0 Then Exit Sub If cbowriter.selectedindex < 0 Then Exit Sub SC = cbocategory.items( cbocategory.selectedindex ) : SC = Trim( SC.Substring( 0, 3 ) ) SW = cbowriter.items( cbowriter.selectedindex ) : SW = Trim( SW.Substring( 0, 3 ) ) SQL = "UPDATE 本 SET " SQL &= " タイトル ='" & txttitle.text & "'," SQL &= " 価格 =" & txtprice.text & "," SQL &= " カテゴリ ID=" & SC & "," SQL &= " 著者 ID=" & SW & " " SQL &= "WHERE ID=" & txtid.text & ";" Case 2 ' ボタン ( 削除 ) がクリックされた場合 フィールドに設定する値は 文字列型の場合は シングルコーテーションでクォートし 数値型の場合は 其の侭記述する 長い文は 適当な処で区切り 複数行で結合して行くと コードが見易く成る SQL = "DELETE FROM 本 WHERE タイトル ='" & txttitle.text & "';" End Select ' デバッグの為にイミディエイトウィンドウに SQL 文を表示 Debug.WriteLine( SQL ) ' クエリを実行 Cn.Execute( SQL ) Call CateUpdate( ) 頻繁に行う処理は 名前を付け 一纏めに仕て置き 其の処理を必要とする箇所よりコール ( 呼出 ) する事で 対象のコードを実行する事が出来る ' 表示データを更新する為にクエリの再実行 Rs.Requery( ) 基本的に VB のコードは 1 行毎でしか記述する事が出来ないが 1 行のコードが長い場合は 行継続文字 ( スペースとアンダースコアの組合せ ) を使用する事で 複数行に分割して入力する事も出来る 但し 行継続文字に続けて 同一行にコメントを入力する事は出来ない 行継続文字を使用すると 画面に表示する時や印刷した時に 読み易いコードを記述する事が出来る -3-

4 ADODB.Recordset の Open メソッド ( 再掲 ) カーソルを開くメソッド Recordset.Open( 引数 1, 引数 2, 引数 3, 引数 4, 引数 5 ) ベーステーブルからのレコード クエリ結果 又は 以前に保存された Recordset を表すカーソルを開く事が出来る 引数 1 には 実行する SQL ステートメント テーブル名等を指定し 省略する事が出来る 引数 2 には 有効な Connection オブジェクト変数名を指定し 省略する事が出来る 引数 3 には Recordset を開く際にプロバイダが使うカーソルタイプを指定し 省略する事が出来る 引数 4 には Recordset を開く際にプロバイダが使うロックの種類を指定し 省略する事が出来る 引数 5 には プロバイダが引数 1 を評価する方法を示す定数を指定し 省略する事が出来る ADODB.Recordset の Requery メソッド クエリを再実行して Recordset オブジェクトのデータを更新するメソッド Recordset.Requery( 引数 ) オブジェクトの基に成るクエリ (CommandText プロパティに設定されて居るクエリ ) を再実行して Recordset オブジェクトのデータを更新する 引数には 此の操作が作用するオプションを示すビットマスクを指定し 省略可能で有る 此のパラメータが adasyncexecute に設定されて居る場合 此の操作は非同期で実行され 完了すると RecordsetChangeComplete イベントが発生する Requery メソッドを使用して 元のコマンドを再実行してデータをもう一度格納する事に依り データソースから Recordset オブジェクトの内容全体を更新する 此のメソッドの呼出は Close 及び Open メソッドを連続して呼び出すのと同じ有る カレントレコードの編集中 又は 新規レコードを追加して居る時に此のメソッドを呼び出すと エラーが発生する Recordset オブジェクトが開いて居る間 カーソルの属性を定義するプロパティ (CursorType LockType MaxRecords 等 ) は読み取り専用に成って居る 此の為 Requery メソッドでは 現在のカーソルしか更新する事は出来ない カーソルのプロパティを変更して結果を参照するには Close メソッドを使用してプロパティをもう一度読み取り / 書き込み専用にする必要が有る 此の操作の後 プロパティ設定を変更して Open メソッドを呼び出し カーソルを再度開く ADODB.Recordset の Close メソッド ( 再掲 ) 開いて居るオブジェクト 及び 依存する総てのオブジェクトを閉じるメソッド Recordset.Close( ) Connection オブジェクト 又は Recordset オブジェクトを閉じて 関連するシステムリソースを解放する オブジェクトを閉じてもメモリからは削除されず プロパティ設定を変更してもう一度開く事が出来る メモリからオブジェクトを完全に削除するには オブジェクト変数を Nothing に設定する -4-

5 ADODB.Recordset の Fields コレクション Recordset オブジェクトの総ての Field オブジェクトが含まれるコレクション Recordset オブジェクトは Recordset 内の列に対応する Field オブジェクトで構成される Fields コレクションを持つ Fields コレクションは コレクション内のオブジェクト数 ( 即ち フィールドの数 ) を示す Count プロパティが有る コレクションのメンバ ( 要素 ) は 常に 0 から順に番号が割り当てられる為 0 から Count プロパティより 1 小さい値迄のループを使用すると 総てのメンバにアクセスする事が出来る 猶 Count プロパティが 0 の場合 コレクションにはオブジェクトが含まれて居ない事を意味する 各々のメンバ (Field オブジェクト ) は 下記の様に フィールド名 又は 序数を用いて表わす事が出来る フィールド名使用 :Recordset.Fields( " タイトル " ) 序数使用 :Recordset.Fields( 1 ) 序数は SELECT 文で指定したフィールドの順番 ( アスタリスク * で総てのフィールドを指定した場合は テーブルに定義されて居る順番 ) に割り当てられ 最初の要素は 0 で有る ADODB.Recordset の Field オブジェクト 共通のデータ型を持つデータの列を表すオブジェクト Recordset オブジェクトは Recordset 内の列に対応する Field オブジェクトで構成される Fields コレクションを持つ Field オブジェクトの Value プロパティを使用して カレントレコードのデータを設定 又は 参照する事が出来る 但し Field オブジェクトのコレクション メソッド プロパティの中には プロバイダが公開するに依っては使用できない物も有る 一般に Field オブジェクトのコレクション メソッド プロパティを使用して 次の操作が可能で有る Name プロパティを使用して フィールド名を参照する Value プロパティを使用して フィールド内のデータ表示や変更を行う Type Precision NumericScale プロパティを使用して フィールドの基本特性を参照する DefinedSize プロパティを使用して 宣言したフィールドサイズを参照する ActualSize プロパティを使用して 与えられたフィールド内の実際のデータサイズを参照する Attributes プロパティ Properties コレクションを使用して 与えられたフィールドでサポートされて居るの種類を識別する AppendChunk GetChunk メソッドを使用して 長バイナリ型や文字型データを含むフィールドの値を操作する プロバイダがバッチ更新をサポートして居る場合 OriginalValue UnderlyingValue プロパティを使用して フィールド値の矛盾を解決する 猶 総てのメタデータプロパティ (Name Type DefinedSize Precision NumericScale) は Field オブジェクトの Recordset を開く前に利用出来る 動的にフォームを作成する場合に便利で有る -5-

6 Debug オブジェクトに依るデバッグ コードのデバッグに使用するメソッドとプロパティのセットを提供するオブジェクト Debug クラスのメソッドを使用し デバッグ情報を出力し アサーションと照らし合わせて論理チェックを行う事で パフォーマンスや出荷製品のサイズに影響を与える事無くコードの信頼性を高める事が出来る 此のオブジェクトには Write WriteLine WriteIf WriteLineIf の各メソッドが用意されて居り 出力ウィンドウに 変数等に格納されて居る値を出力する事に依り 其の値を確認する事が出来る 猶 Visual Basic.NET 以降のエディタでは 実行時に既定で画面の下部に表示される 自動変数 のタブに 其の時の変数の値が表示され 亦 デバッグ メニューの クイックウォッチ で 任意の変数や配列の値を確認する事も出来る Debug オブジェクトの WriteLine メソッドに依るデバッグ情報の出力 デバッグに付いての情報を Listeners コレクションのトレースリスナに書き込メソッド Debug.WriteLine( 引数 ) Listeners コレクションのトレースリスナにメッセージを出力し 行終端記号 ( 改行 ) を出力する 引数には 変数名 オブジェクト名 文字列を指定し 省略可能で有る 一般的には 変数名を指定して 其の時点で 当該変数に格納されて居る値を確認する事に使用する 猶 引数を省略した場合は 行終端記号 ( 改行 ) 而巳が出力される 行終端記号を出力しない場合は Write メソッドを使用する Write メソッドでは 行終端記号は出力されず 次の出力は 同一行に続けて出力される 亦 条件に応じて 出力するか出力しないかを制御するには WriteIf メソッドや WriteLineIf メソッドを使用する事も出来る 但し WriteIf メソッドや WriteLineIf メソッドの代わりに If...Then ステートメントを使用する事に依り アプリケーション導入に依るパフォーマンスの低下を最小限に留める事が出来る為 余り使用する事は無い 猶 Debug オブジェクトには 条件をチェックし 其の条件が false の場合に メッセージを表示する Assert メソッドも用意されて居る Type パラメータが有効か何うかをチェックし Type と仕て nul 参照 (Visual Basic では Nothing) が渡された場合は Assert がメッセージを出力する例を次に示す Public Shared Sub MyMethod(T As Type) Debug.Assert( Not (T Is Nothing), " オブジェクトを取得出来ません!") 'MyMethod 亦 Debug オブジェクトには デバッグ時 ( エディタで実行した時 ) に而巳 任意のエラーメッセージを出力する Fail メソッドも用意されて居る 此等のデバッグを旨く利用して プログラム中の間違い ( バグ ) を素早く発見し 開発効率を向上させる様に努める事が望ましい -6-

7 VB VB 2005 基礎 Ⅱ noa AddHandler ステートメントに依るイベントハンドラの追加 ( 再掲 ) イベントをイベントハンドラに関連付けるステートメント AddHandler 引数 1 AddressOf 引数 2 コントロールのイベントと其れを処理するイベントプロシージャを関連付ける 引数 1 には 処理するイベントの名前を指定し 省略する事は出来ない 引数 2 には イベントを処理するプロシージャの名前を指定し 省略する事は出来ない New キーワードに依りコードで生成したコントロールは 何のイベントプロシージャにも関連付けられて居ない為 イベント処理が行われない 其の為 AddHandler ステートメントを使用して 既存のイベントプロシージャと関連付ける必要が有る イベントハンドラとは 対応するイベントが発生した時に呼び出されるプロシージャで有る 任意の有効なサブルーチンをイベントハンドラと仕て使用する事が出来る 但し イベントハンドラはイベントソース ( イベントの発生元 ) に値を返す事が出来ない為 関数 (Function プロシージャ ) をイベントハンドラと仕て使用する事は出来ない Visual Basic では イベントハンドラに対して イベント発生元コントロール名 _ イベント名と謂う形式でイベントハンドラ名を付けて居る 例えば button1 と謂う名前のボタンの Click イベントは Sub button1_click と謂う名前に成る 従って 独自のイベントのイベントハンドラを定義する場合は 此の標準名前付け規則を使用する事が推奨されるが 名前付け規則の使用は必須ではなく 任意の有効なサブルーチン名を使用する事も出来る AddHandler ステートメントと RemoveHandler ステートメントを使用すると プログラムの実行中に任意の時点でイベント処理の開始や停止を行う事が出来る AddressOf 演算子に依るプロシージャのアドレスの取得 特定のプロシージャを参照するプロシージャデリゲートインスタンスを作成する演算子 AddressOf 引数 引数で指定されたプロシージャ ( 関数 サブルーチン ) を参照するデリゲートが作成される 引数には 新規作成されたプロシージャデリゲートに依って参照されるプロシージャを指定し 必ず指定する AddressOf 演算子を使用して ボタンの Click イベントを処理するデリゲートを指定する例を次に示す Public Sub ButtonClickHandler( ByVal sender As Object, e As System.EventArgs ) ' Public Sub New( ) AddHandler Button1.Click, AddressOf ButtonClickHandler ' -7-

8 ADO と ADO.NET Visual Basic.NET では 従来の ADO を従来の方法で使用する事も出来るが 通常 データベースにアクセスする為に ADO.NET を使用する 此処では Windows 上で動作するアプリケーションの開発に必要な知識を中心に ADO と ADO.NET の差異を説明する Visual Basic 6.0 では データベースにアクセスする為に ADO(ActiveX Data Object) を使用するが ADO.NET は 此れを.NET Framework 用に進化させた物で有り 両者は データアクセスの概念に大きな差異が有る データアクセス用のコンポーネント ADO Visual Basic 6.0 では データアクセス用のコンポーネントに ADO データコントロール (ADODC) が有り 下記のを提供して居る データベースに接続する データベースから必要なデータを取得する フォーム上のコントロールとデータベースを連結する ADO.NET ADO.NET には ADO の様な便利なコンポーネントは無い コネクションを使用してデータベースに接続し データアダプタを使用して必要なデータを取得する データの保持方法 ADO ADO では 取得したデータをレコードセットで管理する レコードセットは メモリ上に保持した仮想テーブルの様な物で有る ADO.NET ADO.NET では データセットに依り データベースと同じ物をメモリ上に保持する事が出来る データセットには 複数のテーブルの構造や 主キーやリレーションシップ等の属性を定義する事が出来る 亦 実行時には 取得したデータを管理する事も出来る レコードの扱い方 ADO ADO のレコードセットに含まれるレコードは Bookmark プロパティに依り管理されて居り 孰れかのレコードが必ず選択された状態に成って居る 因みに レコードセットを取得した初期状態では 先頭のレコードが選択された状態に成って居る 此のレコードをカレントレコードと呼び 亦 MoveNext メソッドや MovePrevious メソッド等に依り カレントレコードを移動する事が出来る ADO.NET ADO.NET には カレントレコードと謂う概念は無い 其の為 レコードを移動する為のメソッドも無い データセットに保持されたデータは 行のコレクションと仕て扱われ 各レコードは 配列の要素番号を使用して識別する -8-

9 接続方法 ADO ADO では データベースに常時接続した状態で使用するのが基本で有る 其の為 常に最新のデータを取得し 更新する事も可能で有るが 実際には データの転送時以外は データベースに接続して居る必要が無い場合が多い 亦 データベースへの接続を維持する事で システムリソースを消費し パフォーマンスが低下すると謂う負の側面も有る データベース フォーム ADO.NET ADO.NET では データセットに依り データベースと粗同じ物をメモリ上に保持する事が出来るのでデータベースに接続する必要が有るのは データセットにデータを取得する時と データセットで変更した内容をデータベースに転送する時丈で有る 其れ以外の時はデータベースの接続を解除し データセットを利用してデータベース操作を行う フォーム データアダプタ コネクション データベース データセット ADO と ADO.NET の使い分け 新規にアプリケーションを開発する時は ADO.NET を利用すると 豊富なツールを利用して 効率良くアプリケーションを開発する事が出来る ADO.NET では データベースと常時接続する必要が無い為 システムの負荷を軽減する事が出来る 併し 非接続型故に 大量のレコードの即時更新や 常に最新の情報が必要な場合には 不適格で有り 此の様な場合は 常時接続型の ADO を利用すると良い.NET Framework でも ADO は サポートされて居る -9-

10 オブジェクト指向 概念 嘗てのプログラムはシンプルなシステムの上に成り立って居た 併し 近日では GUI( グラフィカルユーザインターフェイス : マウスで視覚的に操作出来る仕組み ) の OS( オペレーションシステム :Windows XP MacOS 等 ) が発達し より簡単に より複雑な処理を行える様に成った 其れに伴い プログラミングの手法も其れに沿う必要が有った 開発スピードの向上 様々なを有するソフト開発が出来る事 過去作業の再利用 上記の条件を満たすプログラミングの手法として オブジェクト指向 と謂う概念が編み出された 簡単に謂うと 部品と部品を組み合わせてひとつの物を作る と謂う物で有る VisualBasic に限らず Java C++ Delphi でも取り入れられて居る概念で有り 大方 考え方に違いは無い 図解 プロパティ (Property) 私には特徴が有ります 例えば 名前 : りんごちゃん高さ :5cm 幅 :5cm 色 : 赤色等々必要に応じて変更して下さい メソッド (Method) 命令して頂ければ 行動します 例えば 動きなさい と言って下さい りんごちゃん.Move いずこへ オブジェクト (Object) 若しくはコントロール (Control) フォームやラベルやテキストボックス等を指します 物体と謂う意味です イベント (Event) 皆さんがマウスで私をクリックしたりすると 出来事が起こります 例えば Private Sub りんごちゃん _Click() プログラム 必要に応じて何をするか言って ( プログラムして ) 下さい オブジェクト 1 から作成する事も出来るが 既存の物に関しては使用する VB では様々なコントロールが用意されて居る プロパティコントロールには属性が有り デザイン上 コード上で変更 参照する事が出来る 其の数 種類はコントロールに依り異なる イベント GUI では様々な操作が有る 例えば クリック ダブルクリック ドラッグドロップ等 必要に応じてイベント内にプログラムする イベントドリブン ( 分割 ) 方式と言う メソッドプロパティと区別が付き難いが = で結ばれて居ないのが特徴 オブジェクトに対して 命令 すると覚えると良い -10-