Office中国论坛/Access中国论坛

标题: 关于打开ACCESS? [打印本页]

作者: fxtest 时间: 2007-4-14 21:39
标题: 关于打开ACCESS?
版主:

   我把下面的写在VB上打开会自动又会关闭ACCESS?

Dim oApp ' As Object

On Error Resume Next
Set oApp = CreateObject("Access.Application")
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.CurrentDirectory

If oApp.Version = "11.0" Then
      oApp.AutomationSecurity = 1
End If

  strPath =strPath & "\test.mdb"

oApp.OpenCurrentDatabase strPath
oApp.Visible = True
Set oApp = Nothing

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