Delphi中用adoquery连接Access数据库时,怎样设置连接密码或用什么方法连接???

Question

我在做程序时,用adoquery连接Access数据库,但我的Access数据库必须要验证密码,所以不知道用什么方法才能实现对有密码的Access数据库进行连接!!!(我连接时看到有两个选项一个是空白密码,另一个是密码连接,但设定以后并不能连接到数据库),是不是还有别的设置或是方法.请指教!!!

Answer 1

function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean;
//修改ACCESS数据库密码
var
STempFileName:string;
vJE:OleVariant;
begin
STempFileName:=GetTempPathFileName;
try
vJE:=CreateOleObject('JRO.JetEngine');
vJE.CompactDatabase(format(SConnectionString,[AFileName,AOldPassWord]),
format(SConnectionString,[STempFileName,ANewPassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;

Answer 2

用AdoConnection来连接
在连接窗口中，选择“所有”那一页。
数据库的密码在这个选项里设置
Jet OLEDB:Database Password

Answer 3

在、数据库连接控件的属性栏中把 loginprompt:=false，再编译一下试试

Answer 4

同意smiler007(笑一笑) 的说法
其他网友注意楼主说的是access的安全密码，而不是连接数据库的用户名和密码，前一种密码是不带用户名的，这是office系列软件的安全密码。

Answer 5

同意smiler007(笑一笑) 的说法那个Jet OLEDB:Database Password就是安全密码,并且调试通过