请教一个问题
以前我们公司用的系统中数据库为ACCESS,没有加密
,以前我是这样写的
dim mydb as database
dim myrs as recordset
set mydb=workspaces(0).opendatabase(sys\&"aaa.mdb")
set myrs=mydb.openrecordset("",)
....
现在数据库加密了,请问还要加什么参数
才能打开它
...全文
528打赏收藏
如何打开加密的数据库ACCESS
请教一个问题 以前我们公司用的系统中数据库为ACCESS,没有加密 ,以前我是这样写的 dim mydb as database dim myrs as recordset set mydb=workspaces(0).opendatabase(sys\&"aaa.mdb") set myrs=mydb.openrecordset("",) .... 现在数据库加密了,请问还要加什么参数 才能打开它
DAO方法:
Dim db1 As Database
Set db1 = mywork.OpenDatabase("库的路径", False,False, ";pwd=123")
ADO方法:
Dim Cn As New Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1234;Data Source="库的路径"
用ADO:
Dim TAdoCn As New Connection
TAdoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=1234;Data Source="c:\a.mdb"