ADO如何连上有密码的ACCESS数据库

[ken_henderson]

我用ADO的Table 和Query 测试连接的时候显示“工作组信息文件丢失，或是已被其他用户以独占方式打开”。WHY ？

[Sephil]

你在设计时是否已经激活了？

如果是，就不要在程序里再激活了

[copy_paste]

那个ADO弹出的Data Link最后一页中，有Database Password,一时记不住了，反正不"test connect"那上面的Password edit

[ken_henderson]

不行啊

[Sammo]

在设计期间不用打开，在运行期间在OnFormCreate()里加入以下代码即可。密码在Password='123456'里。
行了给分哦！！~0~
AnsiString strConnstr;
ADOConnection1->Connected=false;

strConnstr="Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source="+ExtractFilePath(Application->ExeName)+"user.mdb;Mode=Share Deny None;Extended Properties='';Locale Identifier=2052;Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='123456';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->ConnectionString=strConnstr;
ADOConnection1->Connected=true;

[copy_paste]

Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=c:\test.mdb;Persist Security Info=True;Jet OLEDB:Database Password=dbpassword
………………这个Datbase Pasword


把上面copy过去ADOConnection1->ADOConnectionString，对应的c:\test.mdb, password= ''改一下。
我这是delphi的，应该是一样的。