Visual Basic 6.0データアクセス新機能（後編）

福岡 寿和 FUKUOKA，Toshikazu
富士通SSL

● Connectionオブジェクト

Set adcnnTest = New ADODB.Connection

adcnnTest.ConnectionString ="Provider=MSDASQL;DSN=VBM"

AdcnnTest.Open

● Errorオブジェクト

    strMsg = ""
    With conADOConn
        For iintLoop = 1 To .Errors.Count
            strMsg = strMsg & .Errors(iintLoop - 1).Description & _
                     "(" & .Errors(iintLoop - 1).NativeError & ")" & vbCrLf & _
                     .Errors(iintLoop - 1).Source & _
                     "(" & .Errors(iintLoop - 1).SQLState & ")" & _
                     vbCrLf & vbCrLf
        Next
    End With
    MsgBox strMsg, vbOKOnly + vbExclamation, App.Title

● Recordsetオブジェクト

Set adrstTest = New ADODB.Recordset

strSQL = "SELECT * FROM Titles"
adrstTest.Open strSQL,adcnnTest

● Fieldオブジェクト

adrstTest.Fields(0).Value
adrstTest.Fields("Year Published").Value

● Commandオブジェクト

Set adcmdTest = New ADODB.Command
Set adcmdTest.ActiveConnection = adcnnTest
adcmdTest.CommandText = strSQL
adcmdTest.Execute
adrstTest.Open adcmdTest

● Parameterオブジェクト

Set adprmTest = New ADODB.Parameter
adprmTest.Type = adInteger
adprmTest.Size = 3
adprmTest.Direction = adParamInput
adprmTest.Value = intRoyalty
adcmdTest.Parameters.Append adprmTest

• adUseClient:ローカルカーソル
• adUseServer:データプロバイダカーソル
• adUseClientBatch:バッチカーソル

Dim adrstTitles As ADODB.Recordset
Dim strCnn      As String

strCnn = "Provider=sqloledb;" & _
         "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
Set adrstTitles = New ADODB.Recordset
adrstTitles.LockType = adUseServer
adrstTitles.CursorType = adOpenKeyset
adrstTitles.LockType = adLockBatchOptimistic
adrstTitles.Open "titles", strCnn, , , adCmdTable
adrstTitles.MoveFirst
Do Until adrstTitles.EOF
    adrstTitles.Fields("Type").Value = "self_help"
    adrstTitles.MoveNext
Loop
adrstTitles.UpdateBatch

● Connectionオブジェクト

adcnnTest.Open , , ,adAsyncExecute
Do While adrstTest.State = adStateConnecting
    DoEvents
Loop

● Recordsetオブジェクト

adrstTest.Open strSQL,adcnnTest, , ,adAsyncExecute
Do While adrstTest.State = adStateFetching
    DoEvents
Loop

● Commandオブジェクト

adcmdTest.Execute, , ,adAsyncExecute
Do While adcmdTest.State = adStateExecuting
    DoEvents
Loop

Private WithEvents adcnnEvt  As ADODB.Connection

従来のDACを使うときは，このアイコンを選択して，該当するテーブルを開きます．DAC（データソース）とTextBoxコントロール（データコンシューマ）の連結も設計時に行なわれているため，とくに目新しい機能は使われていません．

DACもADODCも使わずにDAO/Jetのレコードセットを直接使っています．フォームの中で

Public mrsFormRecordset As Recordset

と宣言したファイルがそのレコードセットになります．実際にレコードの内容をTextBoxコントロールに設定するのは，modVisDataモジュールのDisplayCurrentRecordサブルーチンの中になります．

ADODCを使っています．ただし，ADOでオープンしたレコードセットを代入しています．ModVisDataモジュールのOpenTableプロシージャなどの中身を見るとその代入処理の場所ば見つかるでしょう（実際は，frmDataGridフォームのパブリック変数であるmrsFormRecordset変数を介してADOレコードセットとADODCを関連づけています）．このモードで使われるOLE DBプロバイダは，AccessのときはOLE DB Provider for Microsoft Jet，その他を選択したときはMicrosoft OLE DB Provider for ODBCが選択されます．

● ADOを調査する

Set rsADOTmp = New ADODB.Recordset
With rsADOTmp
    .Open rsTmp.Name, _
          conADOConn, adOpenStatic, _
          adLockOptimistic, adCmdTable
End With
Set frmTmp.mrsFormRecordset = rsADOTmp

Debug.Print rsADOTmp.Fields(0).Value

● ADODCを調査する

Set datDataCtl.Recordset = mrsFormRecordset

Debug.Print  datDataCtl.Recordset.Fields(0).Value

● DataGridコントロールを調査する

Set grdDataGrid.DataSource = datDataCtl

● 完全な表示を求めて

1. コマンドボタンコントロールをDataGridコントロールの後ろに配置します（図11）．このとき，コントロールのロックがかかっていると配置メニューが有効になっていないので，そのようなときはコントロールのロックを外してください．
   
   図11：コマンドボタンコントロールをDataGridコントロールの後ろに配置する
   
   
   
2. タイマーコントロールを貼り付けて，次のようなプロパティ値を設定します．
   （オブジェクト名） tmrLoad Enabled False Interva 1
   
3. Form_Loadプロシージャの最後で
   
   

   tmrLoad_Enabled = True
   

   とします．
   
   
4. tmrLoad_Timerプロシージャの中で
   
   

   tmrLoad.Enabled = False
   grdDataGrid.SetFocus
   

   と記述します．
   

tmrLoad.Enabled = False
cmdDummy.Enabled = False
'  grdDataGrid.SetFocus

● RDS.DataSpace

● RDSServer.DataFactory

● RDS.DataControl

1. クラスモジュールのDataSourceBehavior プロパティにvbDataSourceを設定
2. BindingCollectionオブジェクトのData Sourceプロパティにクラスモジュールを指定
3. BindingCollectionオブジェクトにAddメソッドを使って，クラスモジュールをデータソースとして使いたいデータコンシューマを追加

● OLE DBプロバイダ

● OLE-DB Simple Providerの利用

1. 参照設定で
   Microsoft Data Source Interfaces
   Microsoft OLE DB Simple 1.5 Provider Library
   OLE DB Errors Type Library
   の3つを指定します
   
   
2. クラスモジュールのDeclarationsに
   
   

   Implements OLEDBSimpleProvider
   

   を記述して，OLE DB Simple Providerをインプリメントすることで，クラスモジュール内にOLEDBSimpleProviderオブジェクトが追加され，インプリメントされたイベントがプロシージャとして追加されます（表6）
   
   表6：OLE DB Simple Providerのインターフェイス
   

   インターフェイス	記述する処理
   addOLEDBSimpleProviderListener	［データ変更通知イベント］複数のselect文を一度に処理するなどの複数行セットを扱うときは，その個数分だけリスナーを追加する．通常は，リスナーがないようならば追加するだけ（扱う行セットはひとつ）でよい
   deleteRows	管理しているデータから情報を削除する．また，リスナーのaboutToDeleteRowメソッドdeletedRowメソッドでリスナーにも通知する
   find	検索処理，カレント行の移動，カレント位置を返却する
   getColumnCount	カラム数を返却する
   getEstimatedRows	概算の行数を返却する（非同期実行の途中経過として使われる）
   getLocale	RFC 1766に基づいたLCIDを返却する
   getRowCount	行数を返却する
   getRWStatus	指定行，列の読み書き可能／不可能を返却する
   getVariant	指定行，列の値を返却する
   insertRows	管理しているデータに情報を追加する．また，リスナーのaboutToInsertRowメソッドとinsertedRowメソッドでリスナーにも通知する
   inAsync	非同期実行をサポートするかを返却する
   removeOLEDBSimpleProviderListener	複数行セットを扱っているときの後処理としてリスナーを削除する
   setVariant	指定行，列の値を更新する．また，リスナーのaboutToChangeCellメソッドとcellChagedメソッドでリスナーにも通知する
   stopTransfer	［実行完了イベント］非同期実行モードによる実行が完了したので，通常はとくに処理を記述する必要はない

   
   
3. 追加されたプロシージャに処理を記述します

• 単一レコード
• グリッド（データシート）
• マスター／詳細
• 階層フレキシブルグリッド
• チャート

Copyright (c) 1998 int21 CorporationAll Rights Reserved.
For questions or comments, please send mail to: pcdn@int21.co.jp