Access2000に登場したADO(Microsoft ActiveXデータオブジェクト)を使って
他のAccessに接続し、テーブルを参照する方法です。
● 詳細 ●
(1) エラーの処理ルーチンを有効にします。
(2) オブジェクト変数の宣言を行います。
(3) オブジェクトへの参照を代入します。
(4) Accessデータベースに接続するために接続情報を設定します。
C:My documents\access講習会\演習1.mdb に接続します。
(5) Accessデータベースに接続
(6) 商品テーブルを参照して、参照のみ可能なレコードセットを取得します。
(7) 商品番号が25のレコードを検索します。
(8) 商品名と単価をフォームに表示します。
(9) レコードセットを閉じます。
(10)オブジェクト変数を削除します。
(11)エラー処理でメッセージを表示し、処理を継続します。
● サンプル ●
Private Sub 照会_Click()
On Error GoTo Err_cancel
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.jet.oleDB.4.0; " _
& "Data source=C:\My Documents\access講習会\演習1.mdb"
cn.Open
rs.Open "商品テーブル", cn, adOpenKeyset, adLockReadOnly, adCmdTableDirect
Let rs.Index = "商品番号"
rs.Seek 25, adSeekFirstEQ
Let Me![商品名] = rs("商品名")
Let Me![単価] = rs("単価")
rs.Close
cn.Close
Exit_shoukai:
Set cn = Nothing
Exit Sub
Err_cancel:
MsgBox (Err.Number & "," & Err.Description)
Resume Exit_shoukai
End Sub
● 補足説明 ●
Accsessデータベースに接続するには、ConnectionStringプロパティに
"Provider=Microsoft.jet.oleDB.4.0; " _
& "Data source=データベースファイル名"を設定します。
|