Access 加密与VB 连接的问题！

[shaoqiwo]

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

[julysixth]

连接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表格中.你可以用这句.

[smx717616]

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

[julysixth]

对 ACCESS加密 你可以用这样简单的方法:
先打开ACCESS数据库对你要的加密的数据库加密码.然后在你的系统连接数据库.
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim strsql as string

private 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

[yoki]

DAO:

Dim db As Database
Set db = OpenDatabase(App.Path & "\test.mdb", True, False, ";pwd=oldpwd")
db.NewPassword "oldpwd", "newpwd"
'取消密码 db.NewPassword "oldpwd", ""
db.Close

ADO:

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;