Office中国论坛/Access中国论坛

标题: 如何用CreateObject打开有用户组权限的MDE [打印本页]

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

大家有办法吗？

作者: access2sql 时间: 2002-10-29 00:08
用 CREATEOBJECT 打开数据库？
不会出现启动画面，但是会打开一个新的 ACCESS 窗口，然后在里面启动并显示一个数据库对吗？

作者: tmtony 时间: 2002-10-29 06:13
试试这个
Dim dbeTemp As DAO.DBEngine
Dim wsTemp As DAO.Workspace
Dim dbTemp As DAO.Database
Dim rstTemp As DAO.Recordset
Set dbeTemp = CreateObject("DAO.DBEngine")
dbeTemp.systemdb = "c:\windows\system.mdw"
dbeTemp.DefaultUser = "Admin"
dbeTemp.DefaultPassword = ""
Set wsTemp = dbeTemp.workspaces(0)
Set dbTemp = wsTemp.OpenDatabase("c:\tmtony.mdb")
Set rstTemp = dbTemp.OpenRecordset("tblEpdEmployee")

作者: Eiffel 时间: 2002-10-29 20:24
我实际上是想打开我数据库里的窗体；并把控制权交给我的MDE程序!
可能我没有说清楚。
站长的代码好像只能读取数据；并不能打开一新的Access实例；并运行里面的窗体！

作者: Eiffel 时间: 2002-11-2 09:11
大家对这个不感兴趣吗？
又能解决或不能解决的，交流交流阿！

作者: Eiffel 时间: 2002-11-4 07:33
真的没办法吗？

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