自动升级的问题？

黄亚军　发表于：2010-10-14 21:10:29 　

Public Sub OpenDB()
'运行主程序
    Dim strDB As String
    strDB = CurrentProject.Path & "\我的程序.mdb"
    Set appAccess = CreateObject("Access.Application")
    Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=")

    appAccess.OpenCurrentDatabase strDB
    If Val(SysCmd(acSysCmdAccessVer)) = 9 Then
        appAccess.Visible = True
    End If
    DoCmd.Quit
End Sub

提示说： DBEngine 作用于application失败

请问错在什么地方？

这是竹笛的自动升级程序

Top

羽扇子君发表于：2010-10-15 05:44:09

Set appAccess = New Access.Application

Top

赵文斌发表于：2010-10-15 07:35:03

db没有定义，而且那句代码也可以不要----- Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=")

If Val(SysCmd(acSysCmdAccessVer)) = 9 Then
appAccess.Visible = True
End If
这个是判断版本的。

Top

金宇发表于：2010-12-30 08:53:23

Dim appAccess As Object
试试

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

自动升级的问题？