如何动态地将数据库连接信息写入ADOConnection的ConnectionString中；

Question

ADOConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\borland\Delphi6\Projects\dbdemos.mdb;Persist Security Info=False';

Answer 1

我程序里的一段，打开指定的数据库：
      ADOConnection1.Close;
      ADOConnection1.Connected:=false;
      ADOConnection1.ConnectionString:='';
      str:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
      AppPath:=ExtractFileDir(Application.ExeName);
      str:=str+AppPath+'\bsdata\'+Node.Parent.Text;//ttreeview里的一个结点
      ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database Locking Mode=0;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.Connected:=true;
      ADOConnection1.Open;

Answer 2

ACntMain.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=' + ExtractFilePath(Application.ExeName) + 'data\dqx.mdb;' +
    'Mode=ReadWrite;Extended Properties="";' +
    'Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";' +
    'Jet OLEDB:Database Password=administrator;' +
    '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';

Answer 3

可以将connectionstring的内容存入到*.INI文件中，然后读取*.ini来设置connectionstring，下面是我写的一段程序，看看能不能给你点提示：
//读system.ini文件中的连接信息
inifile:=tinifile.Create(exepath+'system.ini');
password:=inifile.ReadString('option','password','2');
username:=inifile.ReadString('option','username','2');
databasename:=inifile.ReadString('option','databasename','2');
inifile.Free;
//用system.ini的的信息连接数据库  datamodule2.lj.Connected:=false;
  datamodule2.lj.ConnectionString:='Provider=SQLOLEDB.1;'+'Password='+                                   password+
                                   ';Persist                                                            security 
                                   Info=True;User ID='+username+
                                   ';Initial Catalog=DrugStore;'+
                                   'Data Source='+databasename;
datamodule2.lj为数据模块上的adoconnection控件

Answer 4

我程序里的一段，打开指定的数据库：
      ADOConnection1.Close;
      ADOConnection1.Connected:=false;
      ADOConnection1.ConnectionString:='';
      str:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=';
      AppPath:=ExtractFileDir(Application.ExeName);
      str:=str+AppPath+'\bsdata\'+Node.Parent.Text;//ttreeview里的一个结点
      ADOConnection1.ConnectionString:=str+'.mdb;Mode=Share Deny None;'+'Extended Properties="";Jet OLEDB:System database="";'+'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;'+'Jet OLEDB:Database Locking Mode=0;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.Connected:=true;
      ADOConnection1.Open;

Answer 5

用连接文件吧！  文件的扩展名用.udl(connection.udl)，放在可执行文件夹里，然后在ConnectionString属性写上：File Name=connection.udl就可以了。

Answer 6

最好的方法还是保存成UDL文件。
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString:='FILE NAME=D:\Chen.udl';
  try
    ADOConnection1.Connected:=true;
  except
    ShowMessage('无法连接指定的数据库！');
    application.Terminate;
  end;
end;

Answer 7

if 你用access then
  ADOConnection1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\demos.mdb;Persist Security Info=False'
else 
  adoconnection1.connectionstring:='你的连接字符串';