delphi中adoconnection怎样连接加密的access数据库??????急等!
解决方案 »
- 关于treeview放复选框
- 关于TUXEDO的问题!高分相送(救命了)
- GDI+编程,怎么画一个红色的矩形框?
- stringgrid 字的颜色设置的问题
- Tsearchrec类是干什么的?
- 关于使用'AVICAP32.DLL'作视频采集保存图像的问题:如何保存为.jpg格式的?
- 如何保存多個熱鍵,並且在Form建立的時候注冊多個熱鍵?(可能有些難。。。)
- intraweb中怎样响应http请求使客户端切换到其他的form 急!!!
- QReport中分组序号的问题?
- 用Delphi做一个可执行文件外壳加密工具,怎么在可执行程序里写入信息?
- 明天就要答辩了,急问两个小问题,再线等
- 至今没弄清楚,基本的MDI问题
就是那个地方usrid=... password=....
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;http://expert.csdn.net/Expert/topic/1904/1904890.xml?temp=.9677088[收藏]
(转载)