QTP中MS SQL SERVER数据库连接的方法

在QTP中，我们可以通过复制数据库数据到databable中，实现数据的参数化。但这样的做法往往比较烦琐。换一种思路，在Expert View中直接添加连接数据库代码如何？接下来，我们就来完成这个工作。

    对于MS sql server数据库的连接，我们首先要知道所用的MS sql server数据库的连接字符串。这里告诉大家一个轻松获取连接字符串的方法： 新建。txt文件，修改文件名（包括后缀）为XX.udl,双击打开XX.udl文件，在"Provider"选项中选择"Microsoft OLE DB Provider for SQL Server",在"Connection"中，选择相应的server name和database,有用户名和密码的输入用户名和密码，点击右下方的"Test Connection"验证数据库是否连通。点击"OK".把XX.udl文件用记事本方式打开，以"Provider"开始的部分就是你的数据库连接字符串。

    知道了连接字符串，接下来我们来完善代码部分。

    Dim Cnn //定义变量

    Dim Rst //定义变量

    Dim strCnn //定义变量

    strCnn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SIMONVM" //将获得的连接字符串赋值到

    strCnn Set Cnn=CreateObject（"ADODB.Connection"） //生成数据库连接对象

    Cnn.Open strCnn //打开数据库 Set Rst=CreateObject（"ADODB.Recordset"） //生成记录集对象

    Rst.Open "select OrgName from Organization",Cnn //书写SQL语句

    Rst.MoveFirst //将焦点定在第一行

    还可以通过Rst.Field（ ）函数取出对应行的值（参看QTP Tutorial Help）。

    对于以上代码，我只是完成了MS sql server数据库的连接和执行命令部分。后续对表格的应用还未涉及。希望大家指点和补充。