标题: 用vba代码创建数据库，发生错误，请高手来改！谢谢！ [打印本页] 作者: 徐阿鹏 时间: 2004-2-10 22:28 标题: 用vba代码创建数据库，发生错误，请高手来改！谢谢！ Dim appAccess As Object
Set appAccess = CreateObject("Access.Application")
appAccess.Application.Visible = True
appAccess.SaveAs "C:\TEST.mdb" ‘系统提示对象错误！请改！
appAccess.Application.Quit
Set appAccess = Nothing作者: 徐阿鹏 时间: 2004-2-10 22:58
嘿嘿，搞定了，不用了谢谢！
用代码创建个新的数据库：
Dim wrkDefault As Workspace
Dim dbsNew As Database
' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)
' Make sure there isn't already a file with the name of
' the new database.
If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"
' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.Close作者: 不是高手 时间: 2004-2-11 17:53
Dim appAccess As New Access.Application
appAccess.NewCurrentDatabase "C:\test"
appAccess.Quit
set appAccess=Nothing