Select the product you need help with

如何在 Access 2000 中打开受密码保护的数据库，通过自动处理

通过 OpenCurrentDatabase 方法可以以编程方式打开 Microsoft Access 数据库中用户可以在 Microsoft Access 用户界面中。但是，OpenCurrentDatabase 方法不提供用于指定受密码保护的数据库的密码参数。因此，如果存在，请输入数据库密码是自动提示用户。

本文介绍了如何以编程方式在 Microsoft Access 中打开受密码保护的数据库没有用户干预的情况下的用户界面。

数据访问对象 (DAO) 允许您在打开受密码保护的数据库时指定了数据库密码。通过 DBEngine 属性的实例的代码创建的 Microsoft Access 就可以使用 DAO 指定数据库的密码。由 Microsoft Jet 数据库引擎验证数据库的密码后，您可以使用 OpenCurrentDatabase 方法无需用户干预的情况下在 Microsoft Access 用户界面中打开数据库。

分步示例

注意：如果您按照这些步骤在此示例中，您修改示例数据库 Northwind.mdb。您可能希望备份 Northwind.mdb 文件并在该数据库的副本，请按照下列步骤。

启动 Microsoft Access 2000。
打开示例数据库 Northwind.mdb 以独占使用。要打开以独占使用数据库单击 Northwind.mdb打开对话框中单击打开按钮旁边的箭头，然后单击 以独占方式打开。
在工具菜单上指向安全，然后单击 设置数据库密码。
在密码和验证框中键入 nwind，然后单击确定。
关闭示例数据库 Northwind.mdb。
打开示例数据库 Northwind.mdb 验证您将收到提示输入数据库提示。
单击 $ 取消以防止打开的数据库。
创建一个新的空白数据库。
在设计视图中打开一个新的模块。
在工具菜单上单击引用。
添加到 Microsoft DAO 3.6 对象库 的引用，然后单击确定以关闭引用对话框。

将下面的代码添加到该模块：

Option Compare Database
Option Explicit

Sub OpenPasswordProtectedDB()

   'Define as Static so the instance of Access
   'doesn't close when the procedure ends.
   Static acc As Access.Application
   Dim db As DAO.Database
   Dim strDbName As String
   strDbName = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
   Set acc = New Access.Application
   acc.Visible = True
   Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=nwind")
   acc.OpenCurrentDatabase strDbName
   db.Close
   Set db = Nothing
End Sub

在立即窗口中运行 OpenPasswordProtectedDB 子例程。

请注意，不显示密码提示的情况下新的 Access 实例中打开罗斯文数据库。

以后，您可能希望从示例数据库 Northwind.mdb 删除数据库密码。这样做，请按照下列步骤操作：

启动 Microsoft Access 2000。
打开示例数据库 Northwind.mdb 以独占使用。要打开以独占使用数据库单击 Northwind.mdb打开对话框中单击打开按钮旁边的箭头，然后单击 以独占方式打开。
当系统提示您输入数据库密码，键入 nwind，然后单击确定。
在工具菜单上指向安全，然后单击 撤消数据库密码。
当系统提示您输入数据库密码，键入 nwind，然后单击确定。
关闭数据库。

删除数据库密码。

回到顶端 | 提供反馈

参考

有关使用 DAO 打开密码保护的数据库的其他信息请单击下面文章编号，以查看 Microsoft 知识库中相应的文章：

209953

(http://support.microsoft.com/kb/209953/EN-US/ )

ACC2000：如何打开受密码保护的数据库使用 OpenDatabase 方法

回到顶端 | 提供反馈

属性

文章编号: 235422 - 最后修改: 2004年7月28日 - 修订: 3.0

这篇文章中的信息适用于:

Microsoft Access 2000 标准版

kbmt kbautomation kbprogramming kbhowtomaster KB235422 KbMtzh

机器翻译

注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版： 235422

(http://support.microsoft.com/kb/235422/en-us/ )

Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

回到顶端 | 提供反馈