VB実用Ⅲ③　ADOでXML操作

Size: px

Start display at page:

Download "VB実用Ⅲ③　ADOでXML操作"

もりよりくぬぎ
5 years ago
Views:

ADO で XML 操作 VB オートメーション 3 プログラムの概要インターネットの普及企業間の取引 (B to B) の拡大を背景に一対多の電子商取引に加えて多対多のマーケットプレイス等の動きが急進展して居る状況に於いて異なる情報システム間での情報交換が円滑且つ容易に出来る手段が必要とされた其処で其の手段と仕て現在 XML

1 ADO で XML 操作 VB オートメーション 3 プログラムの概要インターネットの普及企業間の取引 (B to B) の拡大を背景に一対多の電子商取引に加えて多対多のマーケットプレイス等の動きが急進展して居る状況に於いて異なる情報システム間での情報交換が円滑且つ容易に出来る手段が必要とされた其処で其の手段と仕て現在 XML がインターネット上でのデータ交換の基盤技術と仕て広く認識されて居る XML 文書はテキスト形式で有る為様々なコンピュータに於いてテキストエディタで容易に読み書き出来る事に加えて各データが何を意味して居るかを理解し易いタグを自由に付ける事が出来る事や仕様が簡潔なので XML 文書を操作するプログラムが容易に作成する事が出来る事等の利点が有る今後益々用途が拡がると予想される XML を操作するプログラミングに馴れて置く事は必要な事で有る XML を操作するには DOM(Document Object Module) を使用する事が多いが此処では XML ファイルのテキストデータを ADO データコントロールのレコードセットに読み取り此の情報をデータグリッドにデータバインディングして表示すると共に XML ファイルのテキストデータに対し追加更新削除を行う今回の課題項目 ActiveX Data Objects(ADODB オブジェクト DAO オブジェクト ) ADODB.Recordset(CursorLocation Cursorype LockType) レコードセットに依る XML 保存 (Save メソッド PersistFormat 引数 adpersistxml 定数 ) レコードセットに依る XML 読込 (Open メソッド Options 引数 adcmdfile 定数 ) レコードセットの操作 (AddNew メソッド Delete メソッド Update メソッド ) データバインディング ( データグリッド DataSource プロパティ ) DAO(Workspace オブジェクト Database オブジェクト TableDefs オブジェクト ) 今回の重点項目レコードセットに依る XML 保存 (Save メソッド PersistFormat 引数 adpersistxml 定数 ) レコードセットに依る XML 読込 (Open メソッド Options 引数 adcmdfile 定数 ) レコードセットの操作 (AddNew メソッド Delete メソッド Update メソッド ) データバインディング ( データグリッド DataSource プロパティ ) データバインディング ( テキストボックス DataSource DataMember プロパティ ) DAO(Workspace オブジェクト Database オブジェクト TableDefs オブジェクト ) -1-

参照設定とコンポーネントの追加参照設定此処では XML ファイルと MDB ファイルを操作する為に ADODB を亦 MDB ファイルよりテーブル情報を取得する為に DAO を使用して居るので事前に下記の参照設定を行う必要が有る参照設定はメニューバーよりプロジェクト参照設定と進み下記のダイアログで指定する Microsoft ActiveX Data Objects x.

2 参照設定とコンポーネントの追加参照設定此処では XML ファイルと MDB ファイルを操作する為に ADODB を亦 MDB ファイルよりテーブル情報を取得する為に DAO を使用して居るので事前に下記の参照設定を行う必要が有る参照設定はメニューバーよりプロジェクト参照設定と進み下記のダイアログで指定する Microsoft ActiveX Data Objects x.x Library Microsoft DAO x.x Objects ibrary 参照設定を行うと事前バインディングが可能と成り下記の様にデータ型の入力時等にインテリセンスが表示される様に成るコンポーネントの追加亦此処ではファイルを指定する為に CommonDialog コントロール亦データをグリッド表示する為に DataGrid コントロールと謂うツールボックスに標準では表示され無いコントロールを使用して居るので事前に下記のコントロールを追加する必要が有るコントロールの追加はメニューバーよりプロジェクトコンポーネントと進みダイアログで指定する Microsoft Common Dialog Control 6.0 (SPx) Microsoft DataGrid Control 6.0 (SPx) (OLEDB) COMDLG32.OCX MSDATGD.OCX 上記の操作で追加したコントロールがツールボックスに表示され標準のコントロールと同じ様に使用する事が出来る様に成る -2-

オブジェクトプロパティ一覧メニューピクチャボックス1 ピクチャボックス2 ラベル 1 ラベル 2 ラベル 3 ラベル 4 テキストボックスコンボボックスデータグリッドコモンダイアログコマンドボタンコントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1 Caption ADO に依る XML の操作 Font MS 明朝標準 9

3 オブジェクトプロパティ一覧メニューピクチャボックス1 ピクチャボックス2 ラベル 1 ラベル 2 ラベル 3 ラベル 4 テキストボックスコンボボックスデータグリッドコモンダイアログコマンドボタンコントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1 Caption ADO に依る XML の操作 Font MS 明朝標準 9 StartUpPosition 2 - 画面の中央ピクチャボックス1 オブジェクト名 picxml Appearance 0 フラット BackColor &H00FFFFFF( 白 ) ピクチャボックス2 オブジェクト名 picmdb Appearance 0 フラット BackColor &H00FFFFFF( 白 ) ラベル1 オブジェクト名 lbldatabasename BackStyle 0 透明 Caption データベース名ラベル2 オブジェクト名 lbltablename BackStyle 0 透明 Caption テーブル名ラベル3 オブジェクト名 lbldatabase BackColor &H00FFFFFF( 白 ) BorderStyle 1 実線ラベル4 オブジェクト名 lblfieldname Appearance 1 右揃え Caption 項目名 Index 0~11( コントロール配列 ) -3-

コントロールの種類プロパティプロパティの設定値コンボボックスオブジェクト名 cbotable データグリッドオブジェクト名 dgddisp コモンダイアログオブジェクト名 cdlfile CancelError True テキストボックスオブジェクト名 txtfieldvalue Index 0~11( コントロール配列 ) Text 空白コマンドボタンオブジェクト名

4 コントロールの種類プロパティプロパティの設定値コンボボックスオブジェクト名 cbotable データグリッドオブジェクト名 dgddisp コモンダイアログオブジェクト名 cdlfile CancelError True テキストボックスオブジェクト名 txtfieldvalue Index 0~11( コントロール配列 ) Text 空白コマンドボタンオブジェクト名 cmdquery Index 0~2( コントロール配列 ) Caption Index 0: 追加 Index 1: 変更 Index 2: 削除メニュー上記のはサブメニューを示すインデントで有りを用いて記述する上記の - は区切線を示しハイフン ( マイナス記号 ) を用いて記述するメニューエディタを表示するにはオブジェクト画面にしてメニューバーのツールよりメニューエディタをクリックして下記のダイアログボックスを表示させるメニューバーはフォームのタイトルバーの直ぐ下に表示されるメニューバーには複数のメニュータイトルを表示出来るメニュータイトルをクリックするとメニューがドロップダウンしてメニュー項目が表示されるメニュー項目にはコマンド区分線サブメニュータイトル等が有り各メニュー項目はメニューエディタで定義されたメニューコントロールに対応して居る猶斯くメニュー項目に対するイベントプロシージャを記述するにはメニュー項目をクリックする -4-

5 Option Explicit プログラムリスト Private FileMDB As String Private FileXML As String Private FldNum As Integer Private RsXML As ADODB.Recordset ' フォームが読み込まれた時の処理 Private Sub Form_Load( ) ' レコードセットの設定 Set RsXML = New ADODB.Recordset RsXML.CursorLocation = aduseclient RsXML.CursorType = adopenkeyset RsXML.LockType = adlockoptimistic 此処で宣言した変数の有効期間は宣言された時点からプログラムの終了迄で有る XML ファイルを読み込む為には ADODB のレコードセットが有れば良くコネクションは必要無い ' フォームが閉じられ様と仕た時の処理 Private Sub Form_QueryUnload( Cancel As Integer, UnloadMode As Integer ) If RsXML.State = adstateopen Then RsXML.Close Set RsXML = Nothing ' メニュー (MDB ファイルの読込 ) がクリックされた時の処理 Private Sub mnufilemdb_click( ) ' テーブル名の取得には DAO を使用 ( 参考 :VB 実用 Ⅰ-1) Dim WS As Workspace Dim DB As Database Dim TD As TableDef ' 読込ファイル名の設定係の無いファイルが表示されるの cdlfile.initdir = App.Path を制限するする cdlfile.dialogtitle = " 読込 MDB ファイルの指定 " cdlfile.filter = "Access ファイル (*.mdb) *.mdb 総てのファイル (*.*) *.*" On Error Resume Next cdlfile.showopen If Not Err.Number = 0 Then Exit Sub FileName プロパティがプルパス FileMDB = cdlfile.filename で有るのに対し FileTitle プロパ ' データベース名の表示 lbldatabase.caption = cdlfile.filetitle 此処で宣言した変数の有効期間は宣言された時点からプロシージャの終了迄で有る Filter プロパティを設定して関ティはファイル名丈を返す ' テーブル名の取得 cbotable.clear Set WS = DBEngine.Workspaces( 0 ) Set DB = WS.OpenDatabase( FileMDB ) For Each TD In DB.TableDefs If Not TD.Name Like "MSys*" Then cbotable.additem TD.Name End If Next If Not cbotable.listcount < 1 Then cbotable.listindex = 0 End If ' 後始末 DB.Close: WS.Close Set TD = Nothing: Set DB = Nothing: Set WS = Nothing TableDefs コレクションにはデータベースに含まれる総てのテーブルの情報が格納されて居る頭に Msys が付くテーブルはシステム (MS Access) が使用して居るテーブルなので除外する使用済のデータベースとワークスペースは必ずクローズしメモリから解放して置く必要が有る -5-

6 ' メニュー (XML ファイルの作成 ) がクリックされた時の処理 Private Sub mnufilemake_click( ) ' MDB からの読込 XML への書込には ADO を使用 Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim T As String 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない ' 対象テーブル名の取得 If cbotable.listindex < 0 Then Exit Sub Else T = cbotable.list( cbotable.listindex ) End If ' 保存ファイル名の設定を制限するする cdlfile.dialogtitle = " 保存 XML ファイルの指定 " cdlfile.filter = "XML ファイル (*.xml) *.xml 総てのファイル (*.*) *.*" cdlfile.filename = "*.xml" cdlfile.defaultext = "xml" DefaultExt プロパティを設定し On Error Resume Next て置くと拡張子を省略した場合 cdlfile.showsave に設定した拡張子が自動的に付 If Not Err.Number = 0 Then Exit Sub 加される FileXML = cdlfile.filename ' コネクションの確立 Set Cn = New ADODB.Connection Cn.CursorLocation = aduseclient Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileMDB & _ ";Persist Security Info=False" On Error Resume Next Cn.Open If Not Err.Number = 0 Then MsgBox Err.Number & vbcrlf & Err.Description, vbcritical, " エラー " Exit Sub End If ' レコードセットの設定 Set Rs = New ADODB.Recordset Rs.CursorLocation = aduseclient Rs.CursorType = adopenstatic Set Rs.ActiveConnection = Cn 此処では選択クエリを用いずに ' レコードセットに本テーブルの内容を読込と保存 On Error Resume Next テーブルを指定して全データを Rs.Open T 取り込んで居る If Not Err.Number = 0 Then MsgBox Err.Number & vbcrlf & Err.Description, vbcritical, " エラー " Exit Sub End If Save メソッドの第 2 引数に ' レコードセットの内容を XML 形式で保存 Rs.Save FileXML, adpersistxml ' メッセージの表示 MsgBox " 保存しました ", vbinformation, " 保存終了 " Filter プロパティを設定して関係の無いファイルが表示されるのレコードセットはオープンする時にコネクションを指定する事も出来るが此の様に予めコネクションと関連付けて置く事も可能 adpersistxml を指定するとレコードセットの内容が XML 形式で保存される ' 後始末 Rs.Close: Cn.Close Set Rs = Nothing: Set Cn = Nothing 使用済のコネクションとレコードセットは必ずクローズしメモリから解放して置く必要が有る -6-

7 ' メニュー (XML ファイルの読込 ) がクリックされた時の処理 Private Sub mnufileopen_click( ) ' XML からの読込には ADO を使用を制限するする ' 読込ファイル名の設定 cdlfile.dialogtitle = " 読込 XML ファイルの指定 " cdlfile.filter = "XML ファイル (*.xml) *.xml 総てのファイル (*.*) *.*" On Error Resume Next cdlfile.showopen If Not Err.Number = 0 Then Exit Sub レコードセットが開いて居る時に FileXML = cdlfile.filename 再度オープンするとエラーが発 ' レコードセットのオープン If RsXML.State = adstateopen Then RsXML.Close RsXML.Open FileXML, Options:=adCmdFile ' データグリッドに表示 Set dgddisp.datasource = RsXML ' フィールド数の取得 FldNum = RsXML.Fields.Count If FldNum > 12 Then FldNum = 12 picxml.enabled = True Filter プロパティを設定して関係の無いファイルが表示されるの生するので一旦閉じる Options を adcmdfile に設定すると ADO はデータベースの代わりに通常のファイルからデータを取り出す物と認識する此処ではフィールド値を表示するテキストボックスが 12 個しか用意して居ない為フィールドの最大個数を 12 に限定して居る ' データグリッド ( 表示 ) がクリックされた時の処理 Private Sub dgddisp_click( ) Dim I As Integer ' レコードデータの表示 For I = 0 To ( FldNum 1 ) lblfieldname( I ).Caption = RsXML.Fields( I ).Name & "" txtfieldvalue( I ).Text = RsXML.Fields( I ).Value & "" Next I For I = FldNum To 11 lblfieldname( I ).Caption = "" txtfieldvalue( I ).Text = "" Next I データグリッドの最左列をクリックするとレコードセット内のカレントレコードが移動するレコードセット内のカレントレコードの値をテキストボックスとラベルに表示して居る ' コマンドボタン ( クエリ ) がクリックされた時の処理 Private Sub cmdquery_click( Index As Integer ) ' XML への操作には ADO を使用 Dim I As Integer Dim S As String Select Case Index ' 追加 Case 0 ' 新しいレコードセットの追加 RsXML.AddNew ' フィールド値の設定 For I = 0 To ( FldNum 1 ) RsXML.Fields( I ).Value = txtfieldvalue( I ).Text Next I S = " 追加 " 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない AddNew メソッドはレコードセットに更新可能な新規レコードを作成するメソッドで有るレコードセット内の総てのフィールド値をテキストボックスの値で書き換えて居る -7-

8 ' 変更 Case 1 ' フィールド値の設定 For I = 0 To ( FldNum 1 ) RsXML.Fields( I ).Value = txtfieldvalue( I ).Text Next I S = " 変更 " ' 削除 Case 2 RsXML.Delete adaffectcurrent S = " 削除 " End Select ' メッセージの表示 MsgBox S & " しました ", vbinformation, S & " 終了 " ' レコードセットの内容を XML 形式で保存 RsXML.Update RsXML.Save FileXML, adpersistxml ' メニュー ( 終了 ) がクリックされた時の処理 Private Sub mnufilefinish_click( ) Unload Me End レコードセット内の総てのフィールド値をテキストボックスの値で書き換えて居る adaffectcurrent は既定の引数なので省略しても良いが明記して置く事が望ましい作業が終了すれば其の旨を通知するメッセージを表示して誤操作を防ぐ様にする事が望ましいレコードの追加変更削除を行えば Update メソッドを呼び出して更新する必要が有る直接 XML ファイルを編集する事は出来ない為レコードセットの内容で上書き保存する名前付き引数の指定 Visual Basic では多くの組み込み関数ステートメント及びメソッドで引数を指定する時に名前付き引数を使用する事が出来る名前付き引数を使うと構文で決められた引数の順序に関係無く任意の順序で必要な引数丈を指定する事が出来る名前付き引数に値を代入するには引数名コロンの後に等号 ( := ) と値を Options := adcmdfile の様に記述する各引数指定の間はカンマで区切り指定する順序は自由で有る例えば ADODB.Recordset オブジェクトの Open メソッドの構文は下記の通りで有る recordset.open Source, ActiveConnection, CursorType, LockType, Options 此れを名前付き引数を使用せずに記述すると下記の様に一部の引数を省略する場合でも引数の順序を変えない為に区切りのカンマを記述する必要が有る RsXML.Open FileXML,,,, adcmdfile 併し名前付き引数を使用して記述すると下記の様に区切りのカンマを含めて不要な引数を省略する事が出来る RsXML.Open FileXML, Options:=adCmdFile 猶名前付き引数がサポートされて居ないメソッドも有るので名前付き引数を使用する場合は事前にマニュアル等で調べて置く必要が有る -8-

9 ADODB.Recordset の Open メソッド機能書式解説カーソルを開くメソッド Object.Open Source, ActiveConnection, CursorType, LockType, Options ベーステーブルからのレコードクエリ結果又は以前に保存された Recordset を表すカーソルを開く Recordset オブジェクトのプロパティに直接対応する引数 (Source CursorType LockType 此等は予め別個に設定して置く事も出来る ) とプロパティの関係は下記の通りで有る Recordset オブジェクトを開く前のプロパティは読み取り / 書き込み可能で有る Open メソッドの実行中に対応する引数が引き渡されない限りプロパティの設定値が使用される引数を引き渡すとプロパティ設定が上書きされて引数の値に更新される Recordset を開いた後はプロパティは読み取り専用に成る Source 引数には Command オブジェクト変数 SQL ステートメントストアドプロシージャテーブル名又はファイルのフルパス名の孰れかをデータソースとして指定する Source がファイルのパス名で有る場合は下記の孰れかで指定する事が出来るフルパス相対パス URL 例 :"c: temp data.mdb" 例 :".. data.mdb" 例 :" ActiveConnection 引数は ActiveConnection プロパティに対応し Recordset オブジェクトを開く接続を指定する ( 省略可能 : データソースが XML ファイルの場合は不要なので省略する ) Source 引数で Command オブジェクトを引き渡し同時に ActiveConnection 引数を引き渡すとエラーが発生する Command オブジェクトの ActiveConnection プロパティは予め有効な Connection オブジェクト又は接続文字列に設定する必要が有る CursorType 引数には Recordset を開く際にプロバイダが使用するカーソルタイプを決める為の定数を CursorTypeEnum 値で指定する ( 省略可能 ) 定数 adopenforwardonly adopenkeyset adopendynamic adopenstatic 説明前方スクロールタイプカーソルレコードを前方向而巳にスクロール出来る事を除き静的カーソルと同じ属性を持つレコードセットを一度丈スクロールする必要が有る場合は此のカーソルに依り性能を向上させる事が出来る ( 既定値 ) キーセットカーソル動的カーソルと同じ様な属性を持つが他のユーザが追加したレコードを表示せず使用中のレコードセットから他のユーザが削除したレコードへのアクセスを許可しない猶他のユーザが変更したデータを表示する事は出来る動的カーソル他のユーザに依る追加変更及び削除を観る事が出来プロバイダがサポートしないブックマークを除いてレコードセットで許容されて居る総ての種類の移動を行う事が出来る静的カーソルデータの検索又はレポートの作成に使用する為のレコードの静的コピーで有る他のユーザに依る追加変更又は削除は表示されない -9-

10 LockType 引数には Recordset を開く際にプロバイダが使うロック ( 同時実行制御 ) の種類を決める為の定数を LockTypeEnum 値で指定する ( 省略可能 ) 定数説明 adlockreadonly 読み取り専用データの変更は出来ない ( 既定値 ) adlockpessimistic レコード毎の排他的ロック通常編集の際にプロバイダがデータソースでレコードをロックする事に依り確実にレコードを編集出来る為に必要な最小限のロックを使用する adlockoptimistic レコード毎の共有的ロック Update メソッドを呼び出した場合而巳プロバイダが共有的ロックを使用してレコードをロックする adlockbatchoptimistic 共有的バッチ更新即時更新モードに対してバッチ更新モードの場合に必要で有る Options 引数には Source 引数が Command オブジェクト以外の設定値を表す場合又は以前に保存して居たファイルから Recordset を復元する場合にプロバイダが引数を評価する方法を示す為の値を下記の定数で指定する ( 省略可能 : データソースが XML ファイルの場合は adcmdfile を指定 ) 定数説明 adcmdtext プロバイダが Source をコマンド文字列に依る定義と仕て評価する事を指定する adcmdtable ADO が Source に名前を付けられたテーブルから総ての行を返す SQL クエリを生成する事を指定する adcmdtabledirect プロバイダが Source に名前を付けられたテーブルから総ての行を返す事を指定する adcmdstoredproc プロバイダが Source をストアドプロシージャと仕て評価する事を指定する adcmdunknown Source 引数に指定されたコマンドタイプが不明で有る事を指定する adcmdfile Source 引数に指名されたファイルから永続化 ( 保存 ) された Recordset を復元する事を指定する adasyncexecute Source 引数を非同期実行する事を指定する adasyncfetch InitialFetchSize プロパティに指定された初期量の残りの行を非同期でフェッチする事を指定するフェッチされた事が無い行が要求された場合は要求された行が利用可能に成る迄はメインスレッドはブロックされる adasyncfetchnonblocking フェッチ中にブロックされた事の無いメインスレッドを指定する要求された行がフェッチされた事の無い場合は現在の行が自動的にファイルの最後に移動する Source 引数で Command オブジェクト以外の値を引き渡す場合は Options 引数を使用して Source 引数の評価を最適化する事が出来る Options 引数が定義されて居ない場合はパフォーマンスが低下する可能性が有る此れは引数が SQL ステートメントストアドプロシージャテーブル名ファイル名の孰れで有るかを判断する為にプロバイダを呼び出す必要が有るからで有る指定する Source の種類が予め判明して居る場合は Options 引数を設定する事に依り該当するコードに直接ジャンプさせる事が出来る猶 Options 引数が Source の種類と一致しない場合はエラーが発生する -10-

11 ADODB.Recordset の Save メソッド機能 Recordset をファイルに永続化 ( 保存 ) するメソッド書式 Object.Save FileName, PersistFormat 解説レコードセットの内容を指定したファイルの保存する FileName には Recordset が保存されるファイルのフルパス名を指定する PersistFormat には Recordset が保存される形式を指定する定数を PersistFormatEnum 値で指定する ( 省略可能 ) 定数説明 adpersistadtg 適切な Advanced Data Tablegram 形式で保存 ( 既定値 ) adpersistxml XML 形式で保存 Save メソッドは開いて居る Recordset で而巳呼び出す事が出来る亦保存後 Open メソッドを使用して FileName から Recordset を復元する事が出来る Filter プロパティが Recordset に対して有効で有る場合フィルタでアクセス出来る行 ( レコード ) 而巳が保存される Recordset が階層型の場合カレントで有る子レコードセットと其の子レコードセットが保存されるが親レコードセットは保存されない Recordset を初めて保存する時には FileName を指定するが続いて Save を呼び出す場合 FileName を省略しなければ実行時エラーが発生する亦続いて新たに FileName を使用して Save を呼び出す場合 Recordset は新規ファイルに保存される併し此の新規ファイルと元のファイルは両方開いて居る Save は Recordset や FileName を閉じない従って Recordset を使用した作業を継続して最新の変更を保存する事が出来る FileName は Recordset が閉じる迄開いた儘で有り此の間他のアプリケーションは FileName に対して読み込みは行えるが書き込みは出来ないセキュリティ上の理由に依り Save メソッドは Microsoft Internet Explorer で実行されるスクリプトからは低レベルとカスタムのセキュリティ設定の使用而巳が許可されるセキュリティの問題の詳細に付いては下記のサイトを参照され度い Security Issues in the Microsoft Internet Explorer: Save メソッドが非同期の Recordset のフェッチ実行又は更新操作の進行中に呼び出された場合 Save は非同期操作が完了する迄待機する Save メソッドが終了すればカレント行の位置は Recordset の最初の行に成る最良の結果を得る為に Save で CursorLocation プロパティを aduseclient に設定する事を推奨するプロバイダが Recordset オブジェクトを保存する為に必要な総ての機能をサポートして居ない場合はクライアントカーソルが此の機能を提供する -11-

12 ADODB.Recordset の Update メソッド機能書式解説カレントレコードへの変更内容を保存するメソッド Object.Update Fields, Values AddNew メソッドの呼び出し以後又は既存のレコードのフィールド値の変更後に行われるカレントレコードへの変更内容を保存する Fields 引数には単一の名前を表す値又は変更するフィールドの名前や位置を表す配列を指定する ( 省略可能 ) Values 引数には単一の値を表す値又は新規レコードのフィールド値を表す配列を指定する ( 省略可能 ) Update メソッドを呼び出した後もカレントレコードはカレントと仕て維持される Update メソッドを呼び出す前に追加や編集中のレコードから移動した場合 ADO は Update を自動的に呼び出して変更を保存するのでカレントレコードへの変更をキャンセルする場合や新たに追加したレコードを破棄する場合は CancelUpdate メソッドを呼び出す必要が有る ADODB.Recordset の AddNew メソッド機能書式解説更新可能な新規レコードを作成するメソッド Object.AddNew FieldList, Values レコードセットに新規レコードを作成し初期化する FieldList 引数には単一の名前又は新規レコードのフィールドの名前か位置を表す配列を指定する ( 省略可能 ) Values 引数には新規レコードのフィールドの単一の値か値の配列を指定する Fields 引数が配列の場合 Values 引数も同じメンバ数の配列にする必要が有る其れ以外の場合はエラーが発生する亦各配列ではフィールド名の順番をフィールド値の順番に一致させる必要が有る現在のレコードセットにレコードを追加出来るか何うかは Supports メソッドの adaddnew を使用して確認する事が出来るブール型変数 = Object.Supports( adaddnew ) ' サポートして居る場合は True を返す亦 addelete でレコードを削除出来るか何うか adupdate で既存のデータを変更出来るか何うか等を確認する事が出来る AddNew メソッドを呼び出した後は新規レコードがカレントレコードに成り Update メソッドを呼び出した後も其の儘カレントレコードに成るカレントレコードの編集中又は新規レコードの追加中に AddNew メソッドを呼び出すと Update メソッドが呼び出されて総ての変更を保存してから新規レコードを作成する -12-

13 ADODB.Recordset の Delete メソッド機能書式解説カレントレコード又はレコードのグループを削除するメソッド Object.Delete AffectRecords レコードセットのカレントレコード又はレコードのグループに削除の為のマークが付けられる実際に削除される時期は更新モードに依り異なる AffectRecords 引数には Delete メソッドに依り影響を受けるレコードの数を決める定数を AffectEnum 値で指定する定数説明 adaffectcurrent カレントレコード而巳を削除 ( 既定値 ) adaffectgroup 現在の Filter プロパティを満たすレコードを削除此のオプションを使用するには Filter プロパティを有効な定義済みの定数の孰れかに設定する必要が有る adaffectallchapters 総てのチャプタレコードを削除即時更新モードでは直ぐにデータベースで削除が行われるが其れ以外のモードではキャッシュから削除するレコードがマークされ UpdateBatch メソッドを呼び出した時に (UpdateBatch メソッドを呼び出すと変更を一括してプロバイダに転送する前に Update メソッドが自動的に呼び出されてカレントレコードに対する未処理の変更が総て保存される ) 実際に削除される削除されたレコードを参照するには Filter プロパティを使用する猶レコードセットでレコードの削除が使用出来ない場合はエラーが発生する削除されたレコードからフィールド値を取得するとエラーが発生する削除したカレントレコードは別のレコードに移動する迄其の儘カレントレコードに成る削除レコードから移動すると其のレコードにアクセス出来なく成る ADODB.Recordset の LockType プロパティ機能書式解説編集中にレコードに適用されたロックの種類を設定取得するプロパティ Object.LockType = 定数レコードセットを開く前にプロバイダがレコードセットを開く時に使用するロックの種類を指定する設定値の取得も可能で有る定数には下記の定数値を LockTypeEnum 値で設定する定数 adlockreadonly 読み取り専用 ( 既定値 ) adlockpessimistic レコード毎の排他的ロック adlockoptimistic レコード毎の共有的ロック adlockbatchoptimistic 共有的バッチ更新説明 adlockreadonly ではデータの更新は出来ない亦 adlockoptimistic では Update メソッドを呼び出した場合而巳プロバイダが共有的ロックを使用してレコードをロックする -13-

14 ADODB.Recordset の State プロパティ機能オブジェクトの状態を取得するプロパティ書式値 = Object.State 解説非同期メソッドを実行して居る Recordset オブジェクトに現在のオブジェクトの状態が接続中実行中又はフェッチ中の孰れで有るかを示す戻り値には下記の孰れかの長整数型の値を返す定数説明 adstateclosed オブジェクトが閉じて居る事を示す ( 既定値 ) adstateopen オブジェクトが開いて居る事を示す adstateconnecting オブジェクトが接続中で有る事を示す adstateexecuting オブジェクトがコマンド実行中で有る事を示す adstatefetching オブジェクトの行がフェッチ中で有る事を示す State プロパティを使用してオブジェクトの現在の状態を何時でも調べる事が出来る猶此のプロパティは読み取り専用で値を設定する事は出来ない Recordset オブジェクトの State プロパティは値を組み合わせて持つ事が出来る例えばステートメントが実行中で有る場合プロパティの値は adstateopen と adstateexecuting の組み合わせに成る ADODB.Recordset の Fields コレクション Recordset オブジェクトは Field オブジェクトで構成される Fields コレクションを持つ各 Field オブジェクトは Recordset 内の列に対応する Fields コレクションには内包する Field オブジェクトの個数を示す Count プロパティが有る Count プロパティが 0 の場合はコレクションにはオブジェクトが含まれて居ない事を意味するコレクションのメンバは 0 から順に番号が割り当てられる為ループを使用する場合は常に 0 から始めて Count プロパティより 1 小さい値で終わらせる必要が有る猶ループ内で Count プロパティをチェックせずにコレクションのメンバを指定するには For Each...Next 構文を使用する亦 Field オブジェクトは共通のデータ型を持つデータの列を表しメソッドやプロパティを使用して下記の操作等を行う事が出来る Name プロパティを使ってフィールド名を取得する Value プロパティを使ってフィールド内のデータ表示や変更を行う Type Precision NumericScale プロパティを使ってフィールドの基本特性を取得する DefinedSize プロパティを使って宣言したフィールドサイズを取得する -14-

データベース1

データベース1 データベース操作プログラム Ⅱ VB9 プログラムの概要オブジェクト型の変数宣言を行いコード上でデータベースに接続し SQL を発行する今回はオブジェクト型の変数宣言に依りデータベースと接続する為のオブジェクト及び検索文を発行した際にデータを格納するオブジェクトをコード上で生成してデータベースに接続し各レコードのフィールド情報を取得して其れをコンボボックスの項目に追加する此れに依り

VB実用Ⅲ③ ADOでXML操作

VB実用Ⅲ③　ADOでXML操作