求助：关于DAO的问题

davy

请问高手们，哪位能赐教：如何用DAO 的OpenDatabase方法打开一个被设置密码的ACCESS数据库（MDB）？

不设密码的MDB数据库可以这样打开：

Dim dbsNorthwind As DAO.Database

Set dbsNorthwind = OpenDatabase("D:\CGL2002\data\JCdatak.mdb)

但数据库设置密码后，上面的语句中，密码参数应如何提供和书写？？急死了！

QINGSOLI

Set dbsNorthwind = OpenDatabase("D:\CGL2002\DATA\Jcdatak.mdb",,,"WD=xxx")

davy

谢谢QINGSOLI！我试试

davy

QINGSOLI 兄，
您提供的表达式 ：
  Set dbsNorthwind = OpenDatabase("D:\CGL2002\DATA\Jcdatak.mdb",,,"WD=xxx")

我试过了，还是不行，不知道您试过没有。麻烦您最好给个例子看看！

davy

各位斑竹,为什么不帮忙啊!是因为这个问题很简单吗?

AlexLiu

从我自己的程序中截取的部分代码：

    Dim wspDefault As Workspace, dbsDR As DAO.Database

    Set wspDefault = DBEngine.Workspaces(0)
    Set dbsDR = wspDefault.OpenDatabase(Filepath, True, False, ";pwd=QSedfdf4587")

davy

谢谢AlexLiu版主，我也刚刚搞定！本想上来发个帖说明一下，以备后来需者悉之，还是版主身手好，再次表示感谢！！！
      我想可能还有同仁想了解用DAO代码打开数据库的资料，所以我将一些资料摘录如下（不是ACCESS帮助中的），以回报本论坛对我的帮助。
      
      1、在DAO中，用代码操作打开当前的数据库有两种方法：
      dim dbMyDB AS DAO.Database

       方法一：      Set dbMyDB=DBEngine.Workspace(0).Databases(0)
       方法二：      Set dbMyDB=DBEngine(0)(0)
        注：DBEngine是DAO对象模型中的最高层对象。
      
       2、在DAO中，用代码操作打开另一个数据库的语法：

       Dim wspDefault As Workspace     ’定义工作区对象
       dim dbMyDB AS DAO.Database    ’定义数据库对象

Set dbMyDB = wspDefault .OpenDatabase (dbname, options, read-only, connect)

参数说明：
      dbname   该参数是必选参数，指的是要打开的数据库（ODBC数据源的DSN）的名称，
                    字符串型，其中包括所在（网络）盘符、路径及文件全名。
      options    选项参数，可选。主要是设置ACCESS数据库的exclusive(独占方式)。默认地，
                   ACCESS数据库是以共享方式打开的，然而，你可以用这个参数以exclusive
                   (独占方式)打开数据库。这个参数可以设置为TRUE/FALSE（BOOLEAN）值。
      read-only（只读方式），默认地，ACCESS数据库是以可读写的方式打开的，然而，
                   你可以用这个参数以read-only(只读方式)打开数据库。这个参数可以设置
                   为TRUE/FALSE（BOOLEAN）值。
      connect  这是用于打开数据源的一个字符串值，在ACCESS中，可以用该参数传送共享
                  级密码。在ISAM和ODBC数据源中，该参数与connect（连接）属性保存的
                  信息相同。
      
        注：在打开一个具有共享级密码的ACCESS数据库时，必须将SOURCE参数指定为"WD="，并在其后加上密码，还必须提供 options [exclusive（独占方式）]和 read-only（只读方式）参数。这就是我用QINGSOLI 兄提供的表达式 行不通的原因。

       再次向QINGSOLI 兄及AlexLiu版主表示感谢！！

       心得：有时候，用DAO操作数据库比ADO方便！