动态控制ADO的连接字符串

王朝other·作者佚名  2006-06-02
窄屏简体版  字體: |||超大  

当发布一个使用 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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航