XMLプログラミング（ADO編）

Size: px

Start display at page:

Download "XMLプログラミング（ADO編）"

まともこうじょう
5 years ago
Views:

1 XML プログラミング ADO 2.5 と XML ADO 2.5 と XML ADO 2.5 を利用すれば粗所有るデータソースからのデータの読み取りや ADO レコードセット ( メモリ上にデータを持つ仮想テーブルの様な物 ) へのデータの配置 XML へのデータ変換が可能に成る XML に変換したデータをデータストリームに配置すればファイルや ADO ASP Response オブジェクト (Web クライアントへの情報の返送に使用する ) XML DOM と謂ったデータソースへの出力と仕て使用出来る様に成るデータを XML と仕て出力するには COM の IStream インターフェイスを使用する IStream インターフェイスは ADO Stream オブジェクトへのデータの読み取りと書き込みをサポートする為に設計された物で有る ADO 2.5 は IStream インターフェイスのサポートを要求する其の一方で XML データは ADO 2.5 の読み取り専用のレコードセットや読み取り書き込みレコードセットのデータソースと仕て使用する事も出来る例えば Web サーバーの ASP ページに ADO 2.5 を使用すればデータを ADO レコードセットに配置すると謂う方法でデータベースからデータを取得出来る様に成る此のデータは ASP Response オブジェクトへの XML 出力と仕て ADO 2.0 を使って転送されるクライアントに到着した XML データは DHTML を使ってクライアントの ADO レコードセットに読み込まれるクライアント側で ADO レコードセットと DHTML を使用すればユーザーに依るデータの読み取りや更新が可能に成る次はデータを XML と仕て入出力する ADO 2.5 のサンプルを使って其の仕組みを探って観る事にする ADO 2.5 を使った XML と仕てのデータ出力此のサンプルでは SQL Server の Northwind データベースからデータを取り出し其れを XML と仕てテキストファイルに保存する此の作業を実行する為 Visual Basic アプリケーションに ADO 2.5 を使用する次の手順に従ってサンプルアプリケーションを作成して観る事にする 1.Visual Basic を開いて標準 EXE アプリケーションを作成しデフォルトフォームの名前を frmadoxml に変更する 2.[ プロジェクト ] メニューから [ 参照設定 ] を選択し [ Microsoft ActiveX Data Objects 2.5 Library ] への参照を追加する 3. フォームに cmdsave と謂うコマンドボタンを追加しキャプションに Save を設定する 4.cmdSave コマンドボタンの Click イベントハンドラに次のコードを追加する Private Sub cmdsave_click() Dim objnwconnection As ADODB.Connection Set objnwconnection = New ADODB.Connection objnwconnection.cursorlocation = aduseclient ' 次のステートメントの IES-FUJI を適切なデータソースに置き換える必要が有る objnwconnection.open "Provider=SQLOLEDB.1;" & _ "Integrated Security=SSPI; Persist Security Info=False;" & _ " User ID=sa; Initial Catalog=Northwind; " Data Source=IES-FUJI" objnwrecordset.cursorlocation = aduseclient 1

2 objnwrecordset.cursortype = adopenstatic Set objnwrecordset.activeconnection = objnwconnection objnwrecordset.open "Products" ' レコードセットを XML と仕てファイルに保存する objnwrecordset.save "C: Products.xml", adpersistxml コードは先ず objnwconnection と謂う ADO Connection オブジェクトと objnw Recordset と謂う Recordset オブジェクトを生成しオブジェクトのプロパティを設定してから其等を開く Connection オブジェクトはデータソースへの接続を提供する Recordset オブジェクトはデータソースから取り出したデータを持つメモリ上の仮想テーブルで有る Recordset オブジェクトの CursorLocation プロパティはデータがクライアントとサーバーの敦れに配置されるのかを決定する亦 CursorLocation プロパティはデータベースとの接続を維持しなければ成らないのか ( サーバーカーソル ) 其れ共切断されたレコードセットを作成して居る間は接続を切断する事が出来るのか ( クライアントカーソル ) を決定する ADO Connection オブジェクトの Open メソッドはパラメータと仕て接続文字列を取る此の接続文字列にはカタログ ( 使用するデータベース ) データソース (SQL Server の名前 ) 及びユーザー ID( 接続の確立時に使用する有効なユーザー名 ) が含まれる此の接続文字列は SQL Server データベースに接続するデータソースの名前は Northwind データベースを含んで居る SQL Server の名前に変更する必要が有る ADO Connection オブジェクトは Northwind データベースに接続し Recordset オブジェクトは Northwind データベースの Products テーブルに接続する此等の接続が確立されたら Recordset オブジェクトの Save メソッドを呼び出しデータを XML と仕て保存するコードが示す様に Save メソッドはデータを XML と仕て保存する為にパラメータ adpersistxml を使用する作成される XML ファイルは主に 2 つのセクションに分かれる最初のセクションにはデータの BizTalk スキーマが 2 番目のセクションには実際のデータが含まれる此のファイルには 4 つの名前空間プレフィックスが使用される最初の名前空間プレフィックスはデータのスキーマ定義のプレフィックスに使用される s で有る 2 番目の名前空間プレフィックスはスキーマのデータ型定義に使用される dt で有る 3 番目の名前空間プレフィックスは ADO レコードセットのプロパティとメソッドを参照する rs で有る然して 4 番目の名前空間プレフィックスは実際のデータを参照する z で有る此のコードは次の Products.xml ファイルを生成する <xml xmlns:s='uuid:bdc6e3f0-6da3-11d1-a2a3-00aa00c14882' xmlns:dt='uuid:c2f b3-11d1-a29f-00aa00c14882' xmlns:rs='urn:schemas-microsoft-com:rowset' xmlns:z='#rowsetschema'> <s:schema id='rowsetschema'> <s:elementtype name='row' content='eltonly'> <s:attributetype name='productid' rs:number='1'> <s:datatype dt:type='int' dt:maxlength='4' rs:precision='10' rs:fixedlength='true' rs:maybenull='false'/> <s:attributetype name='productname' rs:number='2' s:writeunknown='true'> <s:datatype dt:type='string' dt:maxlength='40' rs:maybenull='false'/> 2

3 <s:attributetype name='supplierid' rs:number='3' <s:datatype dt:type='int' dt:maxlength='4' rs:precision='10' <s:attributetype name='categoryid' rs:number='4' <s:datatype dt:type='int' dt:maxlength='4' rs:precision='10' <s:attributetype name='quantityperunit' rs:number='5' <s:datatype dt:type='string' dt:maxlength='20'/> <s:attributetype name='unitprice' rs:number='6' <s:datatype dt:type='i8' rs:dbtype='currency' dt:maxlength='8' rs:precision='19' <s:attributetype name='unitsinstock' rs:number='7' <s:datatype dt:type='i2' dt:maxlength='2' rs:precision='5' <s:attributetype name='unitsonorder' rs:number='8' <s:datatype dt:type='i2' dt:maxlength='2' rs:precision='5' <s:attributetype name='reorderlevel' rs:number='9' <s:datatype dt:type='i2' dt:maxlength='2' rs:precision='5' <s:attributetype name='discontinued' rs:number='10' rs:writeunknown='true'> <s:datatype dt:type='boolean' dt:maxlength='2' rs:fixedlength='true' rs:maybenull='false'/> <s:extends type='rs:rowbase'/> </s:elementtype> </s:schema> <rs:data> <z:row ProductID='1' ProductName='Chai' SupplierID='1' CategoryID='1' QuantityPerUnit='10 boxes x 20 bags' UnitPrice='18' UnitsInStock='39' UnitsOnOrder='0' ReorderLevel='10' Discontinued='False'/> 3

4 <z:row ProductID='2' ProductName='Chang' SupplierID='1' CategoryID='1' QuantityPerUnit='24-12 oz bottles' UnitPrice='19' UnitsInStock='17' UnitsOnOrder='40' ReorderLevel='25' Discontinued='False'/>... </rs:data> </xml> ADO 2.5 を使用する事で Northwind データベースの Products テーブルのスキーマとデータから成る XML ドキュメントが完成した ADO 2.5 の詳細に付いては Microsoft の Web サイトで MDAC (Microsoft Data Access Components )2.5 SDK を参照され度い生成したデータを XML と仕て使用する為にはデータを変更しなければ成らない場合が有る例えば列名にスペースと謂った無効な文字が使用されて居る場合は有効な XML 名に変更しなければ成らない此の場合は name 属性を変更しフィールドの元の名前を持つ rs:name 属性を追加する例えばデータベースに ShipperName と謂う列が存在する場合 AttributeType は次の様に成る <s:attributetype name='shipper Name' rs:number='9' <s:datatype dt:type='i2' dt:maxlength='2' rs:precision='50' 此の AttributeType を次の様に変更しなければ成らない <s:attributetype name='shippername' rs:name='shipper Name' rs:number='9' <s:datatype dt:type='i2' dt:maxlength='2' rs:precision='50' 此のドキュメントは Internet Explorer 5 に XML と仕て表示するか XSL ドキュメントを使って XHTML と謂ったフォーマットに変換する事が出来る生成されるオリジナルファイルは読み取り専用の ADO レコードセットの生成にしか利用出来ないクライアント側に更新可能な切断されたレコードセットを生成し度い場合は ElementType 定義に rs:updatable 属性を追加しなければ成らないクライアント側の切断されたレコードセットは元のデータソースへの接続を持たないユーザーはレコードセットの参照や編集削除更新レコードの追加を行う事が出来るが変更をデータベースに保存するにはデータベースへの接続を再確立しなければ成らない変更を保存するには切断されたレコードセットをデータベースに再接続した後に ADO レコードセットの UpdateBatch メソッドを呼び出す UpdateBatch は 1 つの呼び出しで複数のレコードセット更新をサーバーに送信するメソッドで有るデータを更新可能にするには ElementType の定義を次の様に変更する s:elementtype name='row' content='eltonly' rs:updatable='true'> 4

5 ADO 2.5 を使った XML と仕てのデータ入力 ADO 2.5 が生成する XML データの読み取りはデータの出力と同じ様に簡単だ次は ADO 2.5 を使ってサンプルアプリケーションにデータを入力する方法に付いて観る事にする frmadoxml フォームに新しいコマンドボタンを追加し名前を cmdretrieve に変更しキャプションに Retrive&Add を設定する cmdretrieve コマンドボタンの Click イベントハンドラに次のコードを追加する Private Sub cmdretrieve_click() ' XML ファイルにレコードセットを開く objnwrecordset.open "C: Products.XML", Options:=adCmdFile ' 新しいレコードセットを追加する objnwrecordset.addnew objnwrecordset.fields("productname") = "Test" 此のコードを実行する前に生成された XML ファイルのスキーマセクションに rs:updatable='true' 属性を追加しないとエラーが発生する Options を adcmdfile に設定すると ADO はデータベースの代わりに通常のファイルからデータを取り出す物と認識する新しいレコードの追加やレコードの編集又はレコードの削除を行ったら ADO レコードセットの Update メソッドを呼び出さなければ成らない Update メソッドを呼び出す度にレコードセットの更新されたレコードにマークが付けられる実際の変更を参照するにはレコードセットを変更し変更をファイルに保存するデータベースに接続して居ない為此等の変更はレコードセット丈に適用されデータベースの実際のデータには適用されないデータの変更此れでデータを XML と仕て保存し ADO を使って XML データを開く方法が解った次は XML データを変更する方法に付いて調べて観る事にする先ず作成した Products.xml ファイルを開く為のコードを記述し次にデータを変更するデータを変更したらレコードセットの Update メソッドを呼び出す変更が完了したら ProductsUpdate.xml と謂うファイルに新しいデータを保存する先ずフォームに cmdmakechanges と謂う新しいコマンドボタンを追加しキャプションに Make Changes を設定する cmdmakechanges コマンドボタンの Click イベントハンドラに次のコードを追加する Private Sub cmdmakechanges_click() ' XML ファイルにレコードセットを開く objnwrecordset.open "C: Products.XML", Options:=adCmdFile objnwrecordset.fields("productname") = "Test" objnwrecordset.update objnwrecordset.movelast 5

6 objnwrecordset.delete objnwrecordset.update objnwrecordset.filter = adfilterpendingrecords objnwrecordset.save "c: ProductsUpdate.xml", adpersistxml 先ず最初のレコードの製品名を Test に変更し最後のレコードを削除する次に変更したレコードを ProductUpdate.xml ファイルに保存する [ Make Changes ] コマンドボタンをクリックすると ProductUpdate.xml ファイルが次の様に変更されて居るのがわかる... <rs:update> <rs:original> <z:row ProductID='1' ProductName='Chai' SupplierID='1' CategoryID='1' QuantityPerUnit='10 boxes x 20 bags' UnitPrice='18' UnitsInStock='39' UnitsOnOrder='0' ReorderLevel='10' Discontinued='False'/> </rs:original> <z:row ProductName='Test'/> </rs:update>... <rs:delete> <z:row ProductID='77' ProductName='Original Frankfurter grune Sose' SupplierID='12' CategoryID='2' QuantityPerUnit='12 boxes' UnitPrice='13' UnitsInStock='32' UnitsOnOrder='0' ReorderLevel='15' Discontinued='False'/> </rs:delete> ADO は更新された XML ファイルを使って編集されたフィールドの元の値と新しい値を持つレコードセットを再構築し削除された行を突き止める次はデータソースを更新する方法に付いて調べて観る事にするデータソースの更新データソースの更新此れ迄に操作したデータはローカルファイルにしか保存されて居ない此のデータを元のデータソース ( 此の場合は Northwind データベース ) に保存しなければ成らない更新されたデータを保存する為フォームに cmdsaveupdate と謂う新しいコマンドボタンを追加しキャプションに Save Update を設定する cmdsaveupdate コマンドボタンの Click イベントハンドラに次のコードを追加する Private Sub cmdsaveupdate_click() Dim objnwconnection As ADODB.Connection Dim objxmlrecordset As ADODB.Recordset Dim lngfieldcounter As Long Set objxmlrecordset = New ADODB.Recordset 6

7 Set objnwconnection = New ADODB.Connection objnwconnection.cursorlocation = aduseserver ' 次のステートメントの IES-FUJI を ' 適切なデータソースに置き換える必要がある objnwconnection.open _ "Provider=SQLOLEDB.1; Integrated Security=SSPI;" & _ "Persist Security Info=False;" & _ "User ID=sa; Initial Catalog=Northwind; Data Source=IES-FUJI" objnwrecordset.cursorlocation = aduseserver objnwrecordset.cursortype = adopendynamic objnwrecordset.locktype = adlockpessimistic Set objnwrecordset.activeconnection = objnwconnection objxmlrecordset.open "C: ProductsUpdate.XML", Options:=adCmdFile objxmlrecordset.filter = adfilterpendingrecords Do Until objxmlrecordset.eof If objxmlrecordset.editmode<>adeditadd Then objnwrecordset.open _ "Select * From Products Where ProductID=" _ & objxmlrecordset.fields.item("productid").originalvalue If objxmlrecordset.editmode = adeditdelete Then ' 削除 objnwrecordset.delete Else ' 編集 For lngfieldcounter = 0 To objxmlrecordset.fields.count-1 ' 主キーは変更不可能 If UCase(objXMLRecordset.Fields.Item(lngFieldCounter).Name) _ <>"PRODUCTID " Then objnwrecordset.fields.item(lngfieldcounter).value =_ objxmlrecordset.fields.item(lngfieldcounter).value End If Next End If Else objnwrecordset.open _ "Select * From Products Where ProductID=" & 0 objnwrecordset.addnew ' 新しいレコードの追加 For lngfieldcounter=0 To objxmlrecordset.fields.count -1 ' productid の自動インクリメントフィールド If UCase(objXMLRecordset.Fields.Item(lngFieldCounter).Name) _ <>"PRODUCTID " Then objnwrecordset.fields.item(lngfieldcounter).value = _ objxmlrecordset.fields.item(lngfieldcounter).value End If Next End If 7

8 objnwrecordset.update objnwrecordset.close objxmlrecordset.movenext Loop 此の場合も Northwind データベースに接続する為に objnwconnection と謂う Connection オブジェクトを生成する亦 ProductsUpdate.xml ファイルのデータを保持する為に objnwrecordset と謂う Recordset オブジェクトを生成する先程のサンプルと同様に此の場合もデータソースを構成して接続文字列を変更しなければ成らない objnwrecordset は WHERE 句を持つ SELECT ステートメントを使って更新するレコードへの参照を取得するのに使用する objxmlrecordset と謂うもう 1 つの Recordset オブジェクトは追加編集又は削除されたデータを持つ XML データの取り出しに使用する亦 ADO データストリームから XML データを取り出す事も出来る objxmlrecordset レコードセットに保存されて居た XML データを取得したら変更されたレコードと新しいレコード丈が検出される様にフィルタを適用する次に objxmlrecordset の新しいレコード又は変更されたレコードを 1 件宛取り出し objnwrecordset を使ってデータベースから其のレコードを取り出す変更の対象と成るレコード而巳を集めた後は AddNew Delete 又は Edit の内の正しい操作を実行する事が出来る先ず objxmlrecordset の EditMode プロパティを検査し其のレコードに実行された操作を突き止め正しい操作を実行する切断された ADO レコードセットを使った経験が有れば ADO レコードセットの UpdateBatch メソッドを使用すると思ったかも知れない残念乍ら XML を使って作成される切断された ADO レコードセットはデータを取り出した元のテーブルへの参照を持たない此の為正しいデータベースに ADO 接続を確立しレコードセットの ActiveConnection プロパティに此の接続を設定したと仕てもレコードセットを正しいテーブルに接続する手段が無いレコードセットを正しいテーブルに接続出来ない為 UpdateBatch メソッドは機能しない先程のサンプルからも解る様に此処では objxmlrecordset 及び objnwrecordset と謂う 2 つの Recordset オブジェクトを生成したコードを簡潔に保つ為此の章のサンプルにはエラー処理が含まれて居ない何のプロダクションコードにもエラーハンドラは不可欠で有る此のサンプルでは変更の対象と成るレコードがデータベースに存在する事他のユーザーに依って変更されて居ない事を確認しなければ成らないデータの状態を確認するにはフィールド毎に Recordset オブジェクトの PreviousValue プロパティを使用する PreviousValue プロパティは変更される前のフィールドの値を提供するサンプルのコードにはテーブル名とフィールド名を含んだクエリ文字列が使用されて居る但しプロダクションコードではテーブル名やフィールド名が変更された場合に定数の値を変更する丈で済む様にクエリ文字列には定数を使用するストリームの処理先程のサンプルでは情報をデータファイルに保存した此れは殆どのアプリケーションに取って不適切で有る可能性が高い此れに変わる方法はデータを DOM オブジェクトに渡したりデータを ASP Response オブジェクトでクライアントに返す為のデータストリームを直接操作する事だ次はストリームを使ってデータを直接 DOM オブジェクトに挿入するサンプルを観る事にする此のサンプルはテキストファイルからデータをロードし其れを ADO Stream オブジェクトに配置する次にデータを DOM オブジェクトにロードする DOM オブジェクトにロードしたデータは XSL を使った変換 8

9 を含め粗自由に操作する事が出来るデータを ADO Stream オブジェクトに配置する為フォームに cmdstream と謂う新しいコマンドボタンを追加しキャプションに Stream を設定する cmdstream コマンドボタンの Click イベントハンドラに次のコードを追加する Private Sub cmdstream _Click() Dim objadostream As ADODB.Stream Dim objdom As DOMDocument Dim strxml As String Dim objnwconnection As ADODB.Connection Set objadostream = New ADODB.Stream Set objdom = New DOMDocument Set objnwconnection = New ADODB.Connection objnwconnection.cursorlocation = aduseclient ' 次のステートメントの IES-FUJI を ' 適切なデータソースに置き換える必要が有る objnwconnection.open _ "Provider=SQLOLEDB.1; Integrated Security=SSPI;" & _ "Persist Security Info=False;" & _ "User ID=sa; Initial Catalog=Northwind; Data Source=IES-FUJI" objnwrecordset.cursorlocation = aduseclient objnwrecordset.cursortype = adopenstatic Set objnwrecordset.activeconnection = objnwconnection objnwrecordset.open "Products" objadostream.open objnwrecordset.save objadostream,adpersistxml strxml = objadostream.readtext objdom.loadxml strxml 他のサンプルと同様に此のコードは ADO Connection オブジェクトと Recordset オブジェクトを生成する Northwind Traders データベースへの接続を確立し Products テーブルのデータをレコードセットに配置したら objadostream と謂う ADO Stream オブジェクトに XML データを保存する ADO Stream オブジェクトの情報を strxml と謂う文字列変数に代入しドキュメントオブジェクトの loadxml メソッドを使って objdom と謂う DOM ドキュメントオブジェクトに XML データを配置する要するに通常のデータベースのデータを開いて其れを XML と仕て DOM ドキュメントオブジェクトに渡して居る此の様に ADO レコードセットは揮発性で有りクライアントとサーバーの両方で分散アプリケーションの強力なデータアクセスコンポーネントの構築に利用する事が出来る 9

データアダプタ概要

データアダプタ概要データベース TableAdapter クエリを実行する方法 TableAdapter クエリはアプリケーションがデータベースに対して実行出来る SQL ステートメントやストアドプロシージャで TableAdapter で型指定されたメソッドと仕て公開される TableAdapter クエリは所有るオブジェクトのメソッドと同様に関連付けられたメソッドを呼び出す事に依り実行出来る TableAdapter