access数据库打开的问题

石雷　发表于：2013-10-22 21:26:10 　

哪位专家能为我解答这个问题：如何在access数据库设置一个按钮去打开另一个已知密码的数据库，我现在用的代码是借用竹笛老师的的一段代码来操作的：

Dim xtpf, cxph, fs, d, v As String
Dim str4 As String
xtpf = CurrentProject.Path '当前路径
cxph = Left(xtpf, 3)
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(cxph)))
v = Hex(d.SerialNumber)
Dim RetVal
str4 = """"
Dim strMDB As String
Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\db1.mdb & str4 & " /wrkgrp " & str4 & xtpf & "\system.mdw" & str4 & " " & "/User admin" & " " & "/pwd" & " " & "", 2

但是这个代码打开已知密码的数据库的时候总是提示输入密码，我现在需要的结果向不需要输入密码直接打开。

Top

cspa 发表于：2013-10-22 22:13:38

在/pwd" 后加上你的密码，改为这样试试：

Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\db1.mdb & str4 & " /wrkgrp " & str4 & xtpf & "\system.mdw" & str4 & " " & "/User admin" & " " & "/pwd" & " " & "在此填写你的密码", 2

或：

也可能是直接把pwd改为你的密码：

Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\db1.mdb & str4 & " /wrkgrp " & str4 & xtpf & "\system.mdw" & str4 & " " & "/User admin" & " " & "/填写你的密码" & " " & "", 2

Top

石雷发表于：2013-10-23 09:22:51

谢谢cspa的回答，您的做法是给工作组文件输入密码，我现在是想给数据库输入密码

Top

cspa 发表于：2013-10-26 14:47:57

给你一个更简单的只用3句代码，直接打开带密码数据库的例子。其中db2是带密码的数据库（密码为1234），单独打开时需输入密码。先打开db1，再用db1中的按钮打开时，可直接打开db2，不需输入密码。见附件：

直接打开带密码的数据库

Top

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

Access交流中心

[5分]access数据库打开的问题