office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

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

vba动态创建Access数据库文件

2017-12-18 16:01:00
tmtony8
原创
2703

有网友问到如何在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


创建效果如下图:



    分享