Office中国论坛/Access中国论坛

标题: 请问哪位大哥，用ado代码怎么创建mdb数据库? [打印本页]

作者: kqh0319 时间: 2004-2-6 06:40
标题: 请问哪位大哥，用ado代码怎么创建mdb数据库?
请问哪位大哥，用ado代码怎么创建mdb数据库?

作者: 21ng 时间: 2005-3-3 19:32
我也想知道

作者: 徐阿鹏 时间: 2005-3-3 22:35
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
需要引用ms dao3.6

作者: djt 时间: 2005-3-4 04:35
Dim cat As New ADOX.Catalog

cat.Create "

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)