delphi中ado如何动态连接数据库-优快云博客

本文详细介绍了在 Delphi 中使用 ADO 进行动态数据库连接的方法，包括如何安全地更改连接字符串，确保数据库连接的稳定性和正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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比较是不准确的，还是应该先断开连接，修改如下：

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对象不就完了?如果在多个窗口像这样写那要生成多少个连接?

转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/19/1394134.html