Question

vb连接access加密数据库 要怎么设置

用ADOBO控件来连接 access加密数据库

Answer 1

第一种：Mdbpath = App.Path & "\qhdedu.mdb" '改成你的数据库名称
Mdpass = "123456" '改成你的数据库密码Connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mdbpath & ";Persist Security Info=False;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:database password='" & Mdpass & "'" '设置连接字符串
Adodc1.ConnectionString = Connstring
'设置数据记录源
Adodc1.RecordSource = "select * from 你的表名"Adodc1.Refresh 第二种：Mdbpath = App.Path & "\qhdedu.mdb" '改成你的数据库名称
Mdpass = "123456" '改成你的数据库密码'连接数据库 并初始化CONN,将用于ADODB连接方式
Connstr = "DBQ=" + Mdbpath + ";DRIVER={Microsoft Access Driver (*.mdb)};password='" & Mdpass & "'"
Set Conn = CreateObject("ADODB.CONNECTION")
Conn.Open Connstr

'创建一个记录集对象
Set Rs = CreateObject("adodb.recordset")
SQL = "select * from 你的表名 "
Rs.Open SQL, Conn, 1, 1text1=rs("字段名")

Answer 2

在连接字符串后增加上{; Jet OLEDB: DataBase password=你的密码}就可以了（无{}号）