如何用ADO连接有密码的ACCESS数据库？

1楼: DELPHI中用ADOQUERY控件连接有密码的ACCESS数据库时，连接字符串Connectionstring应该怎么写阿？

字串6

2楼: 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;

3楼: 没什么特别的 生成串中加入一个Password=你的密码; 估计你设计时生成串时没选“允许保存密码” 字串8

4楼: Provider=Microsoft.Jet.OLEDB.4.0;Password=““;Data Source=Text.mdb;Persist Security Info=True 字串4

5楼: 如果我在access的工具-安全-用户与组的账号中设置了管理员的密码后，再打开access就要先输入管理员的密码，这时候应该怎么写连接字符串呢？

字串9

6楼: twos兄弟的解释不是很清楚了，你有必要再搞的这么复杂吗？

7楼: 只要这样就可以了： AdoTable1.Active ：= False; AdoTable1.ConnectionString ：= ‘Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d：＼test.mdb‘; AdoTable1.ConnectionString ：= AdoTable1.ConnectionString + ‘; Persist Security Info=False; Jet OLEDB：Database Password=你的密码‘; AdoTable1.Active ：= True; 字串5

8楼: 路过

字串8

9楼: 多人接受答案了。 字串2

10楼: 呵呵 我试过了，有时候行，有时候不行 搞不懂为什么了 字串6