51Testing软件测试论坛

标题: QTP脚本扩展之QTP连接MS sql server数据库 [打印本页]

作者: man16181 时间: 2008-8-27 09:38
标题: QTP脚本扩展之QTP连接MS sql server数据库

在QTP中,我们可以通过复制数据库数据到databable中,实现数据的参数化.但这样的做法往往比较烦琐.换一种思路,在Expert View中直接添加连接数据库代码如何?接下来,我们就来完成这个工作.
对于MS sql server数据库的连接,我们首先要知道所用的MS sql server数据库的连接字符串.这里告诉大家一个轻松获取连接字符串的方法: 新建.txt文件,修改文件名(包括后缀)为XX.udl,双击打开XX.udl文件,在"

rovider"选项中选择"Microsoft OLE DB Provider for SQL Server",在"Connection"中,选择相应的server name和database,有用户名和密码的输入用户名和密码,点击右下方的"Test Connection"验证数据库是否连通.点击"OK".把XX.udl文件用记事本方式打开,以"

rovider"开始的部分就是你的数据库连接字符串.
      知道了连接字符串,接下来我们来完善代码部分.
      Dim Cnn //定义变量
      Dim Rst //定义变量
      Dim strCnn //定义变量
      strCnn="

rovider=SQLOLEDB.1;Integrated Security=SSPI

ersist 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数据库的连接和执行命令部分.后续对表格的应用还未涉及.希望大家指点和补充.

作者: sunqiang1024 时间: 2008-8-27 10:52
谢谢楼主的共享精神啊，o(∩_∩)o...

作者: ylm77ojn 时间: 2008-8-28 23:31
tks

作者: skynothing 时间: 2011-3-16 13:35
灰常感谢

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)