安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

vba动态创建Access数据库文件

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

有网友?#23454;?#22914;何在ACCESS窗体上执行命令,在指定文件夹生成一个ACCESS数据文件。

利用代码动态创建一个Access数据库文件在运用中确实会经常用。因为有时需要把数据导入到一个新的Access数据库中。



示例,在C盘中创建一个名为“?#19994;?#25968;据库”的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:\?#19994;?#25968;据库.accdb'"
    Set myCat = Nothing

End Sub

注意:

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


创建效果如下图:



    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
    内存占用:8.00MB
    PHP 执行时间:0.21
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    一起来捉妖怎么抓高品质 76人猛龙 国王杯皇马10西班牙人 海底总动员观后感 莱斯特城vs纽卡斯尔 和平精英怎么联系客服,在哪里联系游戏客服 鹈鹕vs灰熊录像 白狮王走势图 国际米兰队歌原版mp3 qq飞车手游时装