Office中国论坛/Access中国论坛

标题: 如何用代码打开另一有已知密码的mde文件？（附打开无密码的代码） [打印本页]

作者: xryacc2 时间: 2009-12-17 13:49
标题: 如何用代码打开另一有已知密码的mde文件？（附打开无密码的代码）
本帖最后由 xryacc2 于 2009-12-17 13:52 编辑

如何用代码打开另一有已知密码的mde文件？，以下是打开另一个无密码的mde文件的代码：
Dim appAccess As Access.Application
Dim patha as string, strDB As String
patha = CurrentProject.path
strDB = "" & patha & "\JFDATA\data.mde"
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
Set appAccess = Nothing
如果data.mde有已知的密码（比如密码为000），如何用代码打开？谢谢！

作者: ynjxw 时间: 2009-12-17 14:13
Dim stAppName As String
Dim strFilename As String
strFilename = ShortName("D:\管理.mde") ‘文件
stAppName = "MSAccess.exe " & strFilename
Call Shell(stAppName, 1)
SendKeys "478", True '密码
SendKeys "{enter}", True

作者: xryacc2 时间: 2009-12-17 14:46
嗯，可以，只是要把shortname去掉。
不过这种打开方式，我还得试试如何控制文件中的对象。

作者: liwen 时间: 2009-12-18 11:21
试试：
appAccess.OpenCurrentDatabase strDB, , "密码"

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