vba動態創建Access數據庫文件

2017-12-18 16:01:00
tmtony8
原創
1818

有網友問到如何在ACCESS窗體上執行命令,在指定文件夾生成一箇ACCESS數據文件。

利用代碼動態創建一箇Access數據庫文件在運用中確實會經常用。因爲有時需要把數據導入到一箇新的Access數據庫中。



示例,在C盤中創建一箇名爲“我的數據庫”的accdb文件。

Public Sub CreateMdbFile()
    Dim myCat As New ADOX.Catalog
    Set myCat = CreateObject("ADOX.Catalog")
    
    myCat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\我的數據庫.accdb'"
    Set myCat = Nothing

End Sub

註意:

需要引用對象:Microsoft ADO Ext. 2.8 for DDL and Security


創建效果如下圖:



    分享