Visual Basic Tips

Ｊｅｔデータベース（ＤＡＯ）データベースの作成と削除

Ｊｅｔデータベースを作成します。

※このサンプルを動かすには
　「プロジェクト」−「参照設定」で「Microsoft DAO Object Libraly」
　をチェックしてください。

Private Sub Form_Load()
　　Call CreateDataBase(App.Path & "\work.mdb")
End Sub

Sub CreateDataBase(strDbPath As String)
　　Dim intRet As Integer
　　Dim intDbVer As Integer
　　Dim ws As Workspace
　　Dim db As Database

　　On Error GoTo ErrHandler

　　Set ws = DBEngine.Workspaces(0)

　　'データベースのバージョン指定
　　intDbVer = dbVersion30

　　Set db = ws.CreateDataBase(strDbPath, dbLangGeneral, intDbVer)

　　db.Close
　　ws.Close
　　Exit Sub
ErrHandler:
　　If Err = 3204 Then 'データベースが既に存在
　　　　Kill strDbPath
　　　　Resume
　　End If
　　intRet = MsgBox("<" & Err & ">" & Error(Err), vbOKOnly, "CreateDataBase")
End Sub

DownLoad vbtips012.lzh 4KB (VB6.0)