2005 年09 月22 日
VBでDAOを使ってmdbを作る方法
1 プロジェクト作成2 プロジェクト−参照設定で Microsoft DAO3.6 Object Library
3
Private Sub Command1_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
' 既定の Workspace を取得します。
Set ws = DBEngine.Workspaces(0)
' 新しいデータベースと同じ名前のファイルが
' 存在しないことを確認します。
If Dir("NewDBnobu.mdb") <> "" Then Kill "NewDBnobu.mdb"
' 指定した照合順序を持つ
' 新しい暗号化したデータベースを作成します。
Set db = ws.CreateDatabase("NewDBnobu.mdb", dbLangGeneral, dbEncrypt)
db.Close
End Sub
投稿者：ノブat 18 :13| Memo | コメント(0 ) | トラックバック(0 )