delphi中ado如何动态连接数据库
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比较是不准确的,还是应该先断开连接,修改如下:
var
s: String;
begin
ADOConnection1.Connected := False;
s := PromptDataSource(Handle, ADOConnection1.ConnectionString);
if CompareText(s, ADOConnection1.ConnectionString) <> 0 then
ADOConnection1.ConnectionString := s;
ADOConnection1.Connected := True;
end;
直接传个ADOConnection对象不就完了?如果在多个窗口像这样写那要生成多少个连接?