Access 加密与VB 连接的问题！

Question

请问，要怎么样就可以给Access加密，我指的加密实际上只是通过用户名和口令就可以访问， 如果我用DAO或者用ADO Data 控件的方法，要怎样做才能与Access 数据库正常连接，并对数据库进行管理。

Answer 1

连接ACCESS:
Dim Conn As Connection
   Dim RS As ADODB.Recordset
   Dim sqlstr As String
      
   Set Conn = New ADODB.Connection
   db.CursorLocation = adUseClient       
   Set RS = New ADODB.Recordset
   
   sqlstr = "Select * from table"
   Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=info.mdb;Persist Security Info=False"
   RS.Open sqlstr, Conn,3,1
   set datagrid1.datasource=rs   '如果你想把结果集显示在datagrid表格中.你可以用这句.

Answer 2

dbpath = App.Path & "\datebase\mainbase.mdb"
    Set conn_1 = New ADODB.Connection
    strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    strSQL = strSQL & dbpath
    strSQL = strSQL & ";Persist Security Info=False;Jet OLEDB:database password=1223"
    conn_1.Open strSQL

Answer 3

对 ACCESS加密 你可以用这样简单的方法:
先打开ACCESS数据库对你要的加密的数据库加密码.然后在你的系统连接数据库.
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim strsql as stringprivate sub form_load()
  set cn= new adodb.connection
  cn.CursorLocation = adUseClient 
  cn.open "uid=admin;pwd=111;driver={microsoft access drive(*.mdb)};dbq=info.mdb"
  strsql="select * from table"
  rs.open strsql,cn,3,1
  
end sub

Answer 4

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;