office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

vba動態創建Access數據庫文件

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

有網友問到如何在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


創建效果如下圖:



    分享
    北京十一选五基本走势