1180
社区成员
- 主页
如何打开加密的数据库ACCESS
请教一个问题
以前我们公司用的系统中数据库为ACCESS,没有加密
,以前我是这样写的
dim mydb as database
dim myrs as recordset
set mydb=workspaces(0).opendatabase(sys\&"aaa.mdb")
set myrs=mydb.openrecordset("",)
....
现在数据库加密了，请问还要加什么参数
才能打开它
以前我们公司用的系统中数据库为ACCESS,没有加密
,以前我是这样写的
dim mydb as database
dim myrs as recordset
set mydb=workspaces(0).opendatabase(sys\&"aaa.mdb")
set myrs=mydb.openrecordset("",)
....
现在数据库加密了，请问还要加什么参数
才能打开它
...全文
请发表友善的回复…
发表回复
chuting1 2002-03-09
谢谢你们了待会儿给分
shawls 2002-03-08
火山说全了
tony_jian 2002-03-08
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="库的路径"
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="库的路径"
ganzhiruogy 2002-03-08
用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"
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"
yefm 2002-03-08
'用Dao
Dim mywork As Workspace
Dim mydb As Database
Set mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("c:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开,密码:abc
Dim mywork As Workspace
Dim mydb As Database
Set mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("c:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开,密码:abc
yefm 2002-03-08
'用Dao
Dim mywork As Workspace
Dim mydb As Database
Set mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("C:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开
Dim mywork As Workspace
Dim mydb As Database
Set mywork = DBEngine.Workspaces(0)
Set mydb = mywork.OpenDatabase("C:\db1.mdb", False, False, ";pwd=abc") '以共享、读写方式打开
chuting1 2002-03-08
谢谢,我先试试再联系
Richard2001 2002-03-08
用ADO吧：
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;PERSIST SECURITY INFO=TRUE;Data Source=" & App.Path & "\db.mdb" , "管理员", "1111"
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;PERSIST SECURITY INFO=TRUE;Data Source=" & App.Path & "\db.mdb" , "管理员", "1111"