空の mdb の作成

  テーブルを作成する前に、まず空の mdb ファイルを作成します。
  
  

Public Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Sub Make_MDB()

    Dim MDB_FolderPath                  As String
    Dim DB_Catalog                      As ADOX.Catalog
    Dim FileSystemOBJ                   As Object
    
    'mdb ファイルを作成するフォルダのパスを設定
    'FolderPath は別のTipsメニュ−で紹介
    MDB_FolderPath = FolderPath

    Const DB_Name = "Personnel.mdb"
    
    Set FileSystemOBJ = CreateObject("Scripting.FileSystemObject")
    
    'Personnel.mdb が、既に存在するか確認
    If FileSystemOBJ.FileExists(MDB_FolderPath & "\" & DB_Name) Then
        '存在する場合は削除する
        FileSystemOBJ.DeleteFile MDB_FolderPath & "\" & DB_Name
    End If
    
    Set FileSystemOBJ = Nothing
    
    Set DB_Catalog = New ADOX.Catalog
    
    'Personnel.mdb を作成
    DB_Catalog.Create ConnectionString & MDB_FolderPath & "\" & DB_Name & ";"
    
    Set DB_Catalog = Nothing
    
End Sub

  サンプル をダウンロードして、ご使用ください。