vb与access数据库密码问题

我如何在VB中实现对ACCESS数据库加密更改密码，不是对操作员，而是对整个数据库，同时在加密之后，操作员登录时不需要输入此数据库密码，只需要输入操作员的密码即可。更改数据库密码只由系统管理员有此功能。我在程序中是用ODBC进行的数据连接。因为我原来的程序是无此功能，现在发现经常有操作员直接打开数据库盗用别人的密码进行操作，并且此系统是安装在一台机器上的。

解决方案 »

  1.   

    加上密码后的连接：
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yhstore.mdb;Jet OLEDB:Database Password=****;"
      

  2.   

    DAO:Dim db As Database
    Set db = OpenDatabase(App.Path & "\test.mdb", True, False, ";pwd=oldpwd")
    db.NewPassword "oldpwd", "newpwd"  
    '取消密码  db.NewPassword "oldpwd", ""  
    db.CloseADO:db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=Share Deny Read|Share Deny Write;Jet OLEDB:Database Password=1234;"db.Execute "Alter Database password  aa 1234"
    －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    因为只能以独占方式打开access,才能修改密码
    加一句：
    Mode=Share Deny Read|Share Deny Write;
      

  3.   

    用 ODBC做连接，或到微软网站下ADO连接文件，就是那个后缀为udl的文件，它可以把连接设置封装在里面，你只要在Connectstring="file name DBlink.udl"就可以了.
    'DBlink.udl就是这个文件，没有路径的话默认当前目录
      

  4.   

    Connectstring="file name=DBlink.udl"          '纠错