阅读 175

QTP如何连接/查询数据库

  1.  

     

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

    工具/原料

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

    Dim Conn

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

     

  • QTP测试软件

  • windows系统配置mysql数据源

     

     

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"

QTP如何连接/查询数据库步骤阅读

QTP如何连接/查询数据库步骤阅读

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

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

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

 

QTP如何连接/查询数据库步骤阅读

QTP如何连接/查询数据库步骤阅读

6

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

str.Close '关闭数据集实例

Set str=Nothing '释放数据集

Conn.Close '关闭数据库实例

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

 

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

 

 

 

  • 分类            QTP

  •  

©著作权归作者所有:来自51CTO博客作者wx5b45f9e8272f1的原创作品,如需转载,请注明出处,否则将追究法律责任


文章分类
后端
文章标签
版权声明:本站是系统测试站点,无实际运营。本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 XXXXXXo@163.com 举报,一经查实,本站将立刻删除。
相关推荐