连接access数据库的问题

Question

我现在把access数据库加了一个密码
然后再用ADOConnection这个组件去访问数据库
时我填写了用户名：admin
密码就是我设置的密码
但是怎么也连接不上啊
请教各位大侠了

Answer 1

用ODBC可以连接啊
但是我不想用ODBC因为用ODBC程序没有方便性啊
有没有好的方法啊

Answer 2

try
  TempS := extractfilepath(Application.ExeName)+'DataBase\name.mdb';
  form1.ADOConn .ConnectionString :=
  'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ TempS +
  ';Jet OLEDB:Database Password=1111';
  form1.ADOConn.Connected := false;
  form1.ADOConn.Connected := true;
  except
  Application.MessageBox('系統數據發現錯誤(號碼:RSGZ001),系統將自動關閉!'+#13+'請檢測數據庫連接是否正確!','錯誤:',mb_ok+MB_ICONERROR);
  Application.Terminate;
  end;

Answer 3

function ADOConnectAccess(const Adocon: TADOConnection; const DbName, Password: string): Boolean;
{* 用Ado连接Access数据库函数}
begin
  with Adocon do
  begin
    Close;
    LoginPrompt := False; //若数据库不存在时，进行判断
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
      'Data Source=' + DbName + ';' +
      'Mode=ReadWrite;' +
      'Persist Security Info=False;' +
      'Jet OLEDB:Database Password=' + Password + ';' +
      'Jet OLEDB:Compact Without Replica Repair=True';
    try
      KeepConnection := True;
      Screen.Cursor := crHourGlass;
      Connected := True;
      Open;
      Screen.Cursor := crDefault;
      ADOConnectAccess := True;
    except
      ADOConnectAccess := False;
    end;
  end;
end;

Answer 4

ADO的连接串试试这样写
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\工程\test\DB\emis.mdb;Persist Security Info=False;Jet OLEDB:Database Password=1234
注意把数据库的路径和Password换掉