Office中国论坛/Access中国论坛

标题: 如何用CreateObject打开有用户组权限的MDE并运行其中的窗体 [打印本页]

作者: Eiffel 时间: 2002-11-27 07:12
标题: 如何用CreateObject打开有用户组权限的MDE并运行其中的窗体
如何用CreateObject打开有用户组权限的MDE
大家知道用CreateObject可以在VB或VBA中运行一个Access实例；并打开和运行你的数据库！
但是如果本身的数据库程序DEMO.mde需要用户组文件DEMO.Mdw才能打开。举例，用户名为DEMO;密码为TEST。
我没办法在VBA中用CreateObject方法打开这个数据库并运行其中的某一个窗体；大家试试！
本来可以用shell函数直接运行；但我发现如果这样做，用文本编辑器打开你的程序；可以发现你打开数据库时的参数、用户名和密码；而且我发现用CreateObject不会出现Access的启动画面。

大家有办法吗？

作者: tmtony 时间: 2002-11-27 07:34
Dim dbe As PrivDBEngine
Dim wrk As Workspace
Dim dbs As Database
Set dbe = New PrivDBEngine
dbe.systemdb = "c:\tmp.mdw"
dbe.defaultuser = "tmtony"
dbe.defaultpassword = "password"
Set wrk = dbe.workspaces(0)
Set dbs = wrk.opendatabase("c:\tmp.mdb")

作者: Eiffel 时间: 2002-11-27 18:49
坛主！为何还是这个答案啊！

这不是用DAO访问数据库的代码吗？
我要的是用VB或者其他语言用CreateObject打开有用户组权限的MDE；并运行其中的窗体！

记住是运行其中的窗体！！！！！！

不是读取数据！

作者: Eiffel 时间: 2002-11-27 19:49
注意请勿将 OpenCurrentDatabase 方法与“ActiveX 数据对象”(ADO) 的 Open 方法或“数据访问对象”(DAO) 的 OpenDatabase 方法混淆。OpenCurrentDatabase 方法在 Microsoft Access 窗口中打开数据库。ADO Open 方法返回 Connection 对象变量；DAO OpenDatabase 方法返回 Database 对象变量；两者均代表一种特别的数据库，但均没有在 Microsoft Access 窗口中实际打开数据库。

Access XP 帮助

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