为保证数据的安全性,我对Access 进行了加密,请用ADO 的Connection连接时出现错误!!希望高手指点一二,解决立即给分。
解决方案 »
- 如何解决win98下程序关闭出错!!在线等,解决问题立即上水!!!!
- edit控件如何控制小数点的输入
- try...except....结构中,如果发生异常,执行完except中的语句后,还会不会执行下面的语句?
- delphi怎么连sql数据库啊!在线等
- 格式化的问题
- 关于重载的问题
- 用delphi操作excel文件时怎样得到excel文件的工作薄(WorkSheet)名称?
- 如何获得汉字的五笔码(或五笔首码)?高分求解!
- 在线等候,如何实现exe文件关联
- 关于QuickReport,怎样指定显示列宽?
- 请问DBLJ.DB是一个什么类型的表,是缺省表吗
- 急问:如何得到TScrollBox两个滚动条相对于初始位置的滚动值
高红岩(ghyghost)
笔者近日在写ADO连接带密码的ACCESS数据库时,当connected:=true;时,总是出现密码不对的对话框,最终在研究了TADOConnection.ConnectionString的内容创建过程时得到灵感,现与大家分享。
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,设置连接完成。
属性加了密码与没有加密码的STRING的区别,
很容易就能做出登陆程序的功能。。
begin
ConnectionString :=...+
'Jet OLEDB:Database Password=*****;';
Connected := True;
end;
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password=密碼;Data Source=C:\WINNT\system32\ias\ias.mdb;Persist Security Info=True'
end;