Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:数据库    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  连接带密码的Access数据库  
 
连接带密码的Access数据库

1,新建Project。
  2,在FORM中放入ADOConnection,ADOQuery,DataSource,Datagrid控件。
  3,双击ADOConnection控件,然后点击Build...按钮,在“提供者”页中选择“Microsoft Jet 4.0 OLE DB   Provider”,然后点击“下一步”按钮,在“连接”页中选择要连接的Access数据库的路径和数据库的文件名,这时如果点“测试连接”按钮时,出现“初始化提供者时发生错误,测试连接失败,密码无效”的错误提示。
  4,这时点“所有”页,然后双击“Jet OLEDB:Database Password”,出现对话框,添入密码后,选择“连接”页中的“测试连接”按钮,出现“测试连接成功”的对话框。把ADOConnection控件的LoginPromtp设为false.
  5,设置连接完成。

with ADOConnection1 do
begin
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False'+
'Data Source=D:\*.mdb;'+//数据库本地目录
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password=*****;'// 加入密码
Connected := True;//Open DataBase
end;

用:ADOConnection1链接数据库 ,d在窗体的show事件中:(注:ADOConnection1的ConnectionString属性要清空,否则会出错!),试试吧!

j:='provider=Microsoft.Jet.OLEDB.4.0;user ID=Admin;Data Source='
+ExtractFilePath(Application.ExeName)+'Database.mdb;'
+'Mode=Share Deny None;Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="123";' //设定密码为123
+'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';

ADOConnection1.LoginPrompt:=false;
ADOConnection1.ConnectionString:=j;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站