动态控制ADO的连接字符串

最新推荐文章于 2023-02-27 09:32:50 发布

wudi_1982

最新推荐文章于 2023-02-27 09:32:50 发布

阅读量1.2k

点赞数

分类专栏： DELPHI 文章标签： delphi dialog string file ini

本文链接：https://blog.csdn.net/wudiit/article/details/764833

版权

DELPHI 专栏收录该内容

30 篇文章 1 订阅

订阅专栏

当发布一个使用 ADO 连接的应用程序时，开发者有时需要在应用程序里设置 ADO 的连接串。ADO 连接串既长又复杂。我常将他们存贮在注册表中。但是，假如我需要生成一个新的串，困难出现了。为解决这个问题，现推荐两种方式：

方法一：将连接字符串信息用UDL文件保存，程序读取UDL文件的信息，这样，你只需要更改UDL文件的内容，就可以完成连接字符串的更改。用记事本打开UDL文件，你会发现，它其实就是一个ini配置文件。使用方法如下：

- 新建一个空白的文本文件
- 将文本文件改名为connect.udl
- 然后打开这个UDL文件，设置连接字符串
- 在程序中将刚才UDL文件信息传递给ADO组件的connectString 属性，DELPHI下的一个例子：

   try
      ADOConnection1.Connected := FALSE;
      ADOConnection1.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'/connect.udl';
      ADOConnection1.Provider := ExtractFilePath(ParamStr(0))+'/connect.udl';
      ADOConnection1.Connected := false;
      ADOConnection1.LoginPrompt := false;
   except
      exit;
   end;

方法二：使用AdoConEd 单元，步骤如下：

- 在 uses 语句中包含进 AdoConEd 单元。然后在应用程序需要触发 ADO 连接串编辑器的地方写入如下简单代码。

ADOConnection1.Close;

// calling EditConnectionString displays the dialog, and

// sets the ConnectString property to the resulting value.

if EditConnectionString(ADOConnection1) then begin

//display the resulting ADO Connect String, just for fun.

label11.caption := ADOConnection1.ConnectionString;

end;