请教在Delphi中怎样连接设置有密码的Access数据库（给分得）

Question

双击你的Database控件,设置databasename,Driver name选MSACCESS,
按Default按钮,在编辑框中编辑:
USER NAME=
OPEN MODE=READ/WRITE
LANGDRIVER=
SYSTEM DATABASE=
PASSWORD=

Answer 1

我用的是AdoConnection控件，我不知道用户名输入什么，在access中没有设置过
密码是不是就是access的密码？

Answer 2

在AdoConnection控件，然后用connection string 先建一个*.dsn 文件，就是数据源文件。在odbc 中可以建立。AdoConnection控件中也可以建立。然后在password中填入密码，在AdoConnection得password 中也要填入，这样就可以连接access 数据库了。

Answer 3

zzutrain(小雨)的操作也太烦了，其实很简单，
在AdoConnection.ConnectionString 的编辑器就可以设置。
单击最后一页(ALL)，在这里以Access为例，在列表中查找 Jet OLEDB:Database Password
一行，单击 Edit Value 按钮，输入密码即可。

Answer 4

我在之前已经试过了，请看http://www.csdn.net/expert/TopicView.asp?id=86436

Answer 5

请编写一个小程序来连接
Function Tfmcenter.Getaccpass(var path:string):string;
const
    xorString:array[0..12]of byte=
      ( $86, $FB, $EC, $37,
        $5D, $44, $9C, $FA,
        $C6, $5E, $28, $E6,$13 );  //SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
var
    passBuf:array[0..14]of byte;
    pass:array[0..14]of char;
    B:Byte;
    F:TFileStream;
    I:integer;
begin
   F:=TFileStream.Create(path,fmShareDenyNone);
   try
     F.Seek($42,soFromBeginning);
     F.Read(passBuf,14);
     for I:=0 to 13 do
     begin
        B := passBuf[i] xor xorString[i];
        pass[i]:=char(B);
     end;
    pass[sizeof(pass) - 1] := #0;
    result:=StrPas(Pass);
   finally
     F.Free;
   end;                         
  end;

Answer 6

是不是因为AdoConnection1.LoginPropmt:=True的原因。