请问哪位大哥，用ado代码怎么创建mdb数据库?

kqh0319 · 发表于 2004-2-6 06:40:00

21ng · 发表于 2005-3-3 19:32:00

我也想知道

徐阿鹏 · 发表于 2005-3-3 22:35:00

Dim wrkDefault As Workspace

Dim dbsNew As Database

Set wrkDefault = DBEngine.Workspaces(0)

If Dir("c:\a.mdb") <> "" Then Kill "c:\a.mdb" '先判断该文件是否存在，存在则先删除

Set dbsNew = wrkDefault.CreateDatabase("c:\a.mdb", _

dbLangGeneral, dbEncrypt)

dbsNew.Close

徐阿鹏 · 发表于 2005-3-3 22:35:00

需要引用ms dao3.6

djt · 发表于 2005-3-4 04:35:00

Dim cat As New ADOX.Catalog

cat.Create "

rovider=microsoft.jet.oledb.4.0;data source=g:\123.mdb"

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] 请问哪位大哥，用ado代码怎么创建mdb数据库?

群介绍
主题无相 (随机显示版	同地区群块其他地区)