access 带有密码，和权限

Question

ado 用这个连接不行！
ADOConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=Server.MapPath("***.mdb");Persist   Security   Info=False;Jet   OLEDB:Database   Password=12345';   
碰到一个数据库要作打印的二次开发，现在没有办法连接数据库！

Answer 1

'Provider=MSDASQL.1;Extended Properties="DBQ=' + ExtractFilePath(Application.ExeName) + 'yourdbname.mdb;Driver={Microsoft Access Driver (*.mdb)};PWD=12345;UID=admin;"';

Answer 2

yourdbname.mdb 前少了个\,要加上'\yourdbname.mdb .........试试行不行

Answer 3

这个挺容易的，你试一下：
procedure TForm1.Button1Click(Sender: TObject);
var
  connstr: string;
begin
  try
    ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;Data Source=C:\Documents and Settings\zxf\桌面\新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=True;Jet OLEDB:Database Password=123123';
    ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString := Connstr;
    ADOConnection1.LoginPrompt :=false;
    ADOConnection1.connected:=True;
    showmessage('ok');
  except
    showmessage('error');
  end;
end;

Answer 4

哦~~ 你用的是CONNECTION组件啊,但应该也相同啊我是直接用在ADOQUERY的CONNECTIONSTRING的'Provider=MSDASQL.1;Extended Properties="DBQ=D:\yourdbname.mdb;Driver={Microsoft Access Driver (*.mdb)};PWD=12345;UID=admin;"';

Answer 5

为什么不用udl
直接ADOCONNECTION.CONNECTIONSTRING='FILENAME=./conn.udl';
方便修改与配置，数据库文件想放哪放哪，想用啥数据库就用啥数据库

Answer 6

ADOConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=' + ExtractFilePath(Application.ExeName) + '***.mdb;Persist  Security  Info=False;Jet  OLEDB:Database  Password=12345'; 

Answer 7

你把数据链接写在注册表中，然后在代码中写个读取注册表信息的方法，然后每次ado连接的时候都先去读下数据库链接信息，然后再open，应该是没什么问题的

Answer 8

//------------------------------------------------------------------------------
//函数名称: GetConnectionString
//函数功能: 获得连接数据库字符串
//------------------------------------------------------------------------------function TDataModule1.GetConnectionString: string;
var iniSysconfig:TIniFile;
begin
  try
    iniSysconfig:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'sysconfig.ini');
    result:='Provider=SQLOLEDB;'+
            'Data Source='+Trim(iniSysconfig.ReadString('DBConfig','Data Source',''))+';'+
            'Initial Catalog=Community;'+
            'User ID='+Trim(iniSysconfig.ReadString('DBConfig','User ID',''))+';'+
            'Password='+Trim(iniSysconfig.ReadString('DBConfig','Password',''))+';'+
            'Persist Security Info=True';
  finally
    iniSysconfig.Free;
  end;
end;

Answer 9

补充：adoconnection控件的 connectionstring属性是在窗体创建时写入的，所以不会出错

Answer 10

  if ADOConn.Connected then ADOConn.Close;  ADOConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\permis.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456';
  ADOConn.Open();