ADO的ConnectString怎么样动态设置

Question

ADO的ConnectString怎么样动态设置

Answer 1

先把Connected := False;然后对ConnectionString 赋值就可以了

Answer 2

adoquery1.connectstring:='connectstring';

Answer 3

写成*.ini文件，然后用程序读取字符串function GetConnectionString : String;
var
  StrList : TStringList;
begin
  if FileExists(ExtractFilePath(Application.ExeName)+'ConnString.ini') then begin
    StrList := TStringList.Create;
    try
      StrList.LoadFromFile(ExtractFilePath(Application.ExeName)+'ConnString.ini');
      Result := StrList.Text;
    finally
      StrList.Free;
      StrList := nil;
    end;
  end
  else begin
    MessageDLG('缺少文件ConnString.ini',mtError,[mbok],0);
    exit;
  end;
end;

Answer 4

如果你是动态的设置可以这样(sql server):
adoquery1.connectstring;='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dataname;Data Source=server'
建议在动态的设置过程中,先用静态的设置,看一看需要哪些必要设置,如上面的驱动路径如果你自己写的话很容易出错.静态设置完成后,再复制到文本中,然后再删除,这样不易出错,还比较快.

Answer 5

to yoic(我是一棵菠菜，菜，菜，菜，菜，菜，菜，) 
为什么不用Tinifile,读写很方便的。