Delphi中用ADO连接加密Access数据库

本文整理自网络，侵删。

 procedure TForm1.FormCreate(Sender: TObject);
var
MDBFile :String;
begin
MDBFile :=ExtractFilePath(Application.ExeName) + 'DataConversion.mdb';
ADOUserCon.Connected :=False;
ADOUserCon.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + MDBFile + ';' +
'Mode=Share Deny None;' +
'Extended Properties="";' +
'Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password="TEST";' +
'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';
ADOUserCon.LoginPrompt :=False;
ADOUserCon.Connected :=True;
end 

相关阅读 >>

iniocp（小旋风服务套件）

system单元一些有用的变量或者常数

Delphi 获取webbrowser中的图片

pascal 语言中的关键字及保留字

使用indy解决base64回车换行问题

Delphi 取得 ios 辅助使用里的字型大小

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi jpg文件合并器代码

Delphi fmx播放m4a声音文件

Delphi 新版内存表 fdmemtable

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中用ADO连接加密Access数据库