Chinaunix首页 | 论坛 | 博客
  • 博客访问: 19001506
  • 博文数量: 7460
  • 博客积分: 10434
  • 博客等级: 上将
  • 技术积分: 78178
  • 用 户 组: 普通用户
  • 注册时间: 2008-03-02 22:54
文章分类

全部博文(7460)

文章存档

2011年(1)

2009年(669)

2008年(6790)

分类: 数据库开发技术

2008-05-28 15:35:59

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

阅读(728) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~