数据库动态连接问题

Question

这是一个INI文件的内容，请问有什么问题啊？？
;database link information file
[dblinkstr]
dbstring=Provider=MSDASQL.1;Password=123456;Persist Security Info=true;User ID=coldba;Date Source=colds

Answer 1

在delphi里的相应代码 adoconnection1.ConnectionString := myinifile.readstring('dblinkstr','dbstring','');
在线等，急啊！

Answer 2

那我现在用INI文件要怎么处理呢？
我觉得应该没问题的啊，不知道哪里出了问题，郁闷啊

Answer 3

加上双引号
;database link information file
[dblinkstr]
dbstring="Provider=MSDASQL.1;Password=123456;Persist Security Info=true;User ID=coldba;Date Source=colds"

Answer 4

var
  MyINIFile:TINIFile;
  ConStr:String;// 动态配置数据库
procedure TForm3.Button2Click(Sender: TObject);
begin
  frmDM.adoCon.Connected:=false;
  frmDM.adoCon.ConnectionString:=PromptDataSource(handle,frmDM.adoCon.ConnectionString);
  if frmDM.adoCon.ConnectionString<>'' then
  begin
    MyINIFile:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'Files\ConNection.ini');
    MyINIFile.WriteString('db','ConStr',frmDM.adoCon.ConnectionString);
    MyINIFile.Free;
  end;
end;// 窗体创建时加载
procedure TForm3.FormCreate(Sender: TObject);
begin
  MyINIFile:=TINIFile.Create(ExtractFilePath(Application.ExeName)+'Files\ConNection.ini');
  ConStr:=MyINIFile.ReadString('db','ConStr','');
  MyINIFile.Free;
  frmDM.adoCon.ConnectionString:=Constr;
end;ini文件里面这样写
[db]
Constr=

Answer 5

要么单步运行，要么将adoconnection1.ConnectionString显示出来看看

Answer 6

想问下，list index out of bounds(0)是什么错误啊？

Answer 7

还是说动态连接的问题吧
我的那个INI文件是自己新建的，为了移植性好点，因为这样就只需要改文件的参数就可以了
但是我在读取的时候似乎出了问题，请大虾门指教！！！
急！！！！！！！！！！！！！！！

Answer 8

你用ShowMessage将读到的adoconnection1.ConnectionString显示出来看看嘛

Answer 9

我之前说的不需要设置参数，它把ODBC里面配置的连接全部保存了，你就直接读出来赋值给adoconnection1.ConnectionString