QTP如何连接/查询数据库-阿里云开发者社区

开发者社区> 狂师> 正文

QTP如何连接/查询数据库

简介:       在日常测试工作中经常会遇到有关于数据的测试,比如数据的正确性,完整性,测试人员造的测试数据预期与实际程序运行结果是否一致,如果这个时候数据量比较多的情况下,通过人工比对无疑是一项非常耗时,而且安全系数不高的工作,今天分享一篇通过自动化测试工具QTP怎么连接和查询数据库,解决数据库无法连接等问题,轻松完成所需要的工作,工作效率和正确性将得到保证。
+关注继续查看
  1.  

     

      在日常测试工作中经常会遇到有关于数据的测试,比如数据的正确性,完整性,测试人员造的测试数据预期与实际程序运行结果是否一致,如果这个时候数据量比较多的情况下,通过人工比对无疑是一项非常耗时,而且安全系数不高的工作,今天分享一篇通过自动化测试工具QTP怎么连接和查询数据库,解决数据库无法连接等问题,轻松完成所需要的工作,工作效率和正确性将得到保证。

    工具/原料

    • QTP测试软件

    • windows系统配置mysql数据源

       

       

    1、定义一个变量名为Conn的变量,通过set方法创建一个数据库实例

    Dim Conn

    Set Conn=CreateObject("ADODB.Connection")        '创建数据库实例

     

  2. 2

    通过mysql ODBC5.1 Driver数据源连接Mysql数据库,并配置mysql数据库的通行证

    Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=datebase_name;PWD=password;PORT=3306;SERVER=192.178.***。** ;UID=user_name"

  3. 3

    校验数据库是否已经成功连接,Reporter.ReportEvent micPass,"testing",这条语句的结果是最后显示在运行后结果的,平时在调试的时候可以使用 msgbox "连接数据库成功",就是弹出一个框,打印引号中的字。

    Conn.Open ConnectionString    '打开数据库

    If Conn.State<>0Then

    Reporter.ReportEvent micPass,"testing","连接数据库成功"         '校验数据库是否成功连接

    msgbox "连接数据库成功"

    else

    Reporter.ReportEvent micFail,"testing","连接数据库失败"

    End If

     

  4. 4

    Set str=CreateObject("ADODB.Recordset")'使用set方法创建数据集实例

  5. 5

    通过sql语句查出需要的数据,然后通过for循环,循环读取数据库中的内容,并将所需要的数据打印出来。

    '查询数据库

    sql="SELECT shop_id FROM taobao_shop" '这条语句是对数据库的查询命令,这条语句是查询一个表名为taobao_shop的数据,但是只显示shop_id字段

    str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据

    str.MoveFirst'使游标指向第一个记录

    sum=""

     While Not str.EOF

     

      msgbox str.Fields("shop_id")  '测试数据库中某一个字段的数据获取是否正确

      For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数

         sum=sum & str(i) &""'把整个记录显示出来

      Next

         Print sum & vbCRLF'打印所有查询的记录

         sum=""  '清零

         str.MoveNext'使游标进入下一个,这里其实就是一个循环,循环去读取SQL语句查询到的数据,然后打印出来。

    Wend

     

  6. 6

    在完成脚本查询以后不要忘记关闭和释放数据库和实例集。

    str.Close '关闭数据集实例

    Set str=Nothing '释放数据集

    Conn.Close '关闭数据库实例

    Set Conn=Nothing '释放数据库连接

     

  7. 7

    完整的连接脚本代码:

    Dim Conn

    Set Conn=CreateObject("ADODB.Connection")                             '创建数据库实例

    'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"              '配置数据库通行证

    Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=datebase_name;PWD=password;PORT=3306;SERVER=192.178.***。** ;UID=user_name"

    Conn.Open ConnectionString

    If Conn.State<>0Then

    Reporter.ReportEvent micPass,"testing","连接数据库成功"         '校验数据库是否成功连接

    msgbox "连接数据库成功"

    else

    Reporter.ReportEvent micFail,"testing","连接数据库失败"

    End If

    Set str=CreateObject("ADODB.Recordset")'创建数据集实例

    '查询数据库

    sql="SELECT shop_id FROM taobao_shop"

    str.Open sql,conn,1,1'1,1表示只读;1,3表示插入数据;2,3表示修改数据

    str.MoveFirst'使游标指向第一个记录

    sum=""

     While Not str.EOF

     

      msgbox str.Fields("shop_id")  '测试查询得到的数据

      For i=0to str.Fields.Count-1'str.Fields.Count表示字段个数

         sum=sum & str(i) &""'把整个记录显示出来

      Next

         Print sum & vbCRLF'打印所有查询的记录

         sum=""  '清零

         str.MoveNext'使游标进入下一个

    Wend

     

    str.Close '关闭数据集实例

    Set str=Nothing

    Conn.Close '关闭数据库实例

    Set Conn=Nothing

     

     

     

技术改变世界! --狂诗绝剑

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
4.mysql数据库创建,表创建模等模板脚本,mysql_SQL99标准的连接查询(内连接,外连接,满外连接,交叉连接)
 mysql数据库创建,表创建模等模板脚本 -- 用root用户登录系统,执行脚本   -- 创建数据库 create database mydb61 character set utf8 ;   -- 选择数据库 use mydb61;   -- 增加 dbuser1 用户
1363 0
使用OpenApi弹性释放和设置云服务器ECS释放
云服务器ECS的一个重要特性就是按需创建资源。您可以在业务高峰期按需弹性的自定义规则进行资源创建,在完成业务计算的时候释放资源。本篇将提供几个Tips帮助您更加容易和自动化的完成云服务器的释放和弹性设置。
7745 0
如何连接别人电脑上的ORACLE数据库
如何连接别人电脑上的ORACLE数据库 (以oracle9i版本为例,本机必须安装oralce9i的客户端) 第一步:orahome92-configuration and migration tools- net managers 第二步:在“服...
698 0
如何使用Xshell连接阿里云服务器
许多新手第一次买了Linux云服务器都不知道该怎样使用,尤其是没有接触过linux的朋友对命令行界面几乎不了解,今天就记录下使用xshell连接linux服务器的过程。
10633 0
uniDBGrid导入数据库(转红鱼儿)
有朋友问如何将excel导入数据库,这是我做的uniGUI项目中代码,实现uniDBGrid导入数据库的函数,因为用了kbmMW,所以你看到是将uniDBGrid导入kbmMWClientQuery,然后提交的ClientQuery到数据库。
1158 0
+关注
狂师
专注测试开发技术研究、实践、分享、交流
261
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
文娱运维技术
立即下载
《SaaS模式云原生数据仓库应用场景实践》
立即下载
《看见新力量:二》电子书
立即下载