delphi ado 连接mysql_delphi中ado如何动态连接数据库

delphi中ado如何动态连接数据库 Delphi / Windows SDK/API

http://www.delphi2007.net/DelphiDB/html/delphi_20061218205039233.html

delphi中ado如何动态连接数据库？

var

s:   String;

begin

s   :=   PromptDataSource(Handle,   ADOConnection1.ConnectionString);

if   CompareText(s,   ADOConnection1.ConnectionString)   <>   0   then

ADOConnection1.ConnectionString   :=   s;

end;

var

s:   String;

begin

s   :=   PromptDataSource(Handle,   ADOConnection1.ConnectionString);

if   CompareText(s,   ADOConnection1.ConnectionString)   <>   0   then

begin

ADOConnection1.Connected   :=   False;

ADOConnection1.ConnectionString   :=   s;

ADOConnection1.Connected   :=   True;

end;

end;

如果处于连接状态，ConnectionString比较是不准确的，还是应该先断开连接，修改如下：

v