如何打开带密码的数据库文件?(详见内容)
Private Sub Command1_Click()
Dim mydatabase As Database
'利用DAO创建数据库文件,但不加密
Set mydatabase = Workspaces(0).CreateDatabase("C:\tt.mdb", dbLangGeneral)
End Sub
Private Sub Command2_Click()
'利用ADO连接数据库文件
Dim g_DBCon As New ADODB.Connection
Dim g_TblRct As New ADODB.Recordset
g_DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\tt.mdb"
g_DBCon.CommandTimeout = 30
g_DBCon.Open
g_DBCon.Execute ("create table Contect (name char(16),company char(40))")
g_DBCon.Execute ("create table Diray (zhaiyao char(40))")
End Sub
各位哥们儿,上述语句先运行Command1_Click,后运行Command2_Click,一切正常,可是如果改成:
Private Sub Command1_Click()
Dim mydatabase As Database
'利用DAO创建数据库文件,同时加密
Set mydatabase = Workspaces(0).CreateDatabase("C:\tt.mdb", dbLangGeneral & ";PWD=123)'加了密码"123"
End Sub
Private Sub Command2_Click()
'利用ADO连接数据库文件
Dim g_DBCon As New ADODB.Connection
Dim g_TblRct As New ADODB.Recordset
g_DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\tt.mdb"
g_DBCon.CommandTimeout = 30
g_DBCon.Open
g_DBCon.Execute ("create table Contect (name char(16),company char(40))")
g_DBCon.Execute ("create table Diray (zhaiyao char(40))")
End Sub
在创建数据库文件后,用VB自带的Visual Database Manage 查看,密码"123"正确加密,而在运行Command2_Click时总是提醒"无有效的密码",我用g_DBCon.Open,,"123"试着运行,还是不行.
请问,如何打开这种类型的加密文件?
注:本程序引用了DAO2.5/3.51和ADO2.5两种数据库,主要是利用DAO来创建数据库文件,在利用ADO来查询或修改数据库(这是老师要求的,我也没办法)