DAOの接続
  (C) 2001 A c t o r .N e t Soft Ware



 以下に公開するソースなどの著作は 篠田直樹 に復帰します。
原則として無許可で使用する事が出来ますが、ここに書かれている内容を
直リンクや引用などであたかも第三者が作成した様に見せたり如何なる事情でも金銭が発生する行為を禁止します。



' A c t o r . N e t
' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
'□□ http://actornet.hp.infoseek.co.jp/
'
'Copylight(C)2004 Naoki Shinoda



' DAOのオブジェクト変数を宣言する
Dim ws As DAO.Workspace, db As DAO.Database
Dim rs As DAO.Recordset

' デフォルトのワークスペースを定義する
Set ws = DBEngine.Workspaces(0)
' データベースを開く
Set db = ws.OpenDatabase(App.Path & "\db1.mdb")
' テーブル名を指定してレコードセットを作成する
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)




Copyright (C) 2001 A c t o r .N e t Soft Ware All Right Reserved