用记事本方法实现SQL连接池字符串

在QTP的ADO应用中，经常需要用到“连接到数据源，并查询数据”，这就需要提供连接字符串

例如：

Dim cnn,rst,strCnn51Testing软件测试网;G_ D:e L`
'连接到数据源
!y$[g2U-C ]0strCnn ="Provider=SQLNCLI.1;Password=sasasa;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=192.168.20.10"  '这段字符串我们可以通过记事本方法很容易得到51Testing软件测试网[7q/vdR$o`S,~
Set cnn = CreateObject("ADODB.Connection")51Testing软件测试网~C3vYPm#t4VF
cnn.Open strCnn51Testing软件测试网}#V3\+H*?wt!c
Set rst = CreateObject("ADODB.recordset")

 

用记事本方法（这里以做SQL连接字符串为例）：

1 新建个记事本

2 修改记事本名称和后缀名：test.udl     '这很关键

3 双击test.udl

4 在“提供程序”tab里--选中"SQL Native Client"

5 在“连接”tab 填写 :

   I）数据库服务器的IP

   II)访问账号及密码（密码勾选“允许密码保存”）

   III)具体的访问数据库名称

6  点击“测试连接”看看是否成功

7 点击确定

8 再用记事本打开test.udl，复制字符串Provider=SQLNCLI.1;Password=sasasa;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=192.168.20.10