用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

sxgaobo

徐阿鹏 发表于 2004-2-10 22:58
嘿嘿，搞定了，不用了谢谢！
用代码创建个新的数据库：
Dim wrkDefault As Workspace

请教！如何创建带密码的数据库？

不是高手

Dim appAccess As New Access.Application
appAccess.NewCurrentDatabase "C:\test"
appAccess.Quit
set appAccess=Nothing

[此贴子已经被作者于2004-2-11 10:25:02编辑过]

徐阿鹏

嘿嘿，搞定了，不用了谢谢！
用代码创建个新的数据库：
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