Access数据库加密问题

[anotherbrick]

给Access数据库加密码后ADOConnection1.ConnectionString应该怎么写？用的是
Microsoft.Jet.OLEDB.4.0

[dreamfan]

不是有个password么

[Snakeguo]

在高级那里:database password

[Snakeguo]

打开ConncetString编辑器,在高级那里:database password

[anotherbrick]

Provider=Microsoft.Jet.OLEDB.4.0;Password=a;Data Source=D:\database\database.mdb;Persist Security Info=True
连不上，报错“The Workgroup information is missing or opened exclusively by another user”

[Snakeguo]

ACntMain.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + ExtractFilePath(Application.ExeName) + 'data\dqx.mdb;' +
'Mode=ReadWrite;Extended Properties="";' +
'Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password=administrator;' + //HERE
'Jet OLEDB:Engine Type=5;' +
'Jet OLEDB:Database Locking Mode=1;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';

[anotherbrick]

Advanced里没有dtatbase password啊？

[Snakeguo]

你的数据库被别的程序独占了

[anotherbrick]

Advanced里没有database password啊?

[Snakeguo]

ACntMain.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + ExtractFilePath(Application.ExeName) + 'data\dqx.mdb;' +
'Mode=ReadWrite;Extended Properties="";' +
'Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password=*****;' + //HERE
'Jet OLEDB:Engine Type=5;' +
'Jet OLEDB:Database Locking Mode=1;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';

[Snakeguo]

你的数据库被别的程序独占了

[anotherbrick]

snakeguo(枫) ，这里面个句都是什么意思？我需要写哪句啊？谢谢~

[Snakeguo]

我记错了,应该是在"所有"那里

[anotherbrick]

snakeguo(枫) ,没有，我确定我关掉Access了，没有任何程序在占用

[Snakeguo]

我记错了,应该在"所有"那里
就是//HERE那句

[菩提小树]

对access文件加密.即程序开始运行时.用TFileStream读取指定长度的字节是否为,提前写入的
数据,如果是则
begin
数据库没有被非法更改.
用TFileStream读取指定长度的字节(即加密点) 通过自己的算法还原.写回数据库(或生成临时数据库).
连接数据库.
end;
退出时:
删除临时库或(加密数据库


或者不用密码,用权限,在登登陆时存On_load加入
Option Compare Database
Sub SetStartupProperties()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ChangeProperty "StartupForm", DB_Text, "Customers"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, False
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, False
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' 找不到属性。
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' 未知的错误'。
ChangeProperty = False
Resume Change_Bye
End If
End Function


Private Sub Command0_Click()
On Error GoTo Err_Command0_Click


DoCmd.Close

Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click

End Sub
Private Sub Command1_Click()


ChangeProperty "AllowBypassKey", DB_Boolean, True


If Me!UesrName = "wyn" And Me!Password = "085477" Then

Else
MsgBox "密码错误"
End If



End Sub
Private Sub Command2_Click()
ChangeProperty "AllowBypassKey", DB_Boolean, Flase
DoCmd.Close
End Sub

Private Sub Form_Load()
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub

[anotherbrick]

snakeguo(枫),OK了，谢谢~马上给分。

[anotherbrick]

xiejiye(雏鹰) ,谢谢你,我好好学习学习~

[Snakeguo]

试连一下别的数据库看可不可以?

[davidTIm]

xiejiye(雏鹰) 你真是我们的好榜样啊