• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

在软件测试中QTP常用程序和函数

发布: 2009-6-30 15:00 | 作者: 不详 | 来源: 测试时代采编 | 查看: 251次 | 进入软件测试论坛讨论

领测软件测试网





’#################################################################
’#################################################################
’ 连接数据库子程序
’ 第一个参数:根据数据库的类型,设计连接字符串(参见udl文件)
’ 第二个参数:连接数据库之后,进行查询的相应语句
’ 第三个参数:查询记录返回到res
Sub OpenDB(conn,sql,res)
   Set cnn=CreateObject(\"adodb.connection\")
   cnn.open conn
   Set res=CreateObject(\"adodb.recordset\")
   res.open sql,cnn,1,1
    
End Sub
’#################################################################




’#################################################################
’#################################################################
’ 关闭数据库的连接
sub CloseDB
   Set res=nothing
        Set cnn=nothing
end sub
’#################################################################

2. QTP导入这个TestVbs.vbs 文件:
菜单:Test-->Setting-->Resource
在“Associated Library Files” 添加入该文件
这里建议可以使用 相对路径,如..\\TestVbs.vbs

3. 测试封装的子程序:
用“Run from steps”运行模式(专家视图 右键,第四个菜单项,脚本从光标处运行)

在QTP 中添加测试代码:

CloseWeb()    ’实现关闭当前所有的IE窗口
stop


’ 调用外部函数 Write2File 
Write2File \"c:\\File.txt\",\"Writhing a Line\",\"Writing\"
Write2File \"c:\\File.txt\",\"Appending a Line\",\"Appending\"
Write2File \"c:\\File.txt\",\"Appending a Line\",\"Appending!\"   ’ 参数不正确
Write2File \".\\vbs\\File.txt\",\"Appending a Line\",\"Appending\"
stop


’~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
’ 设置连接数据库所需要的初始值,包括:
’ conn :数据库连接字符串
’ sql:查询的SQL语句
’ res:查询的返回记录

Dim conn,sql,res
conn=\"Provider=MSDASQL.1;Persist Security Info=False;Data Source=QT_Flight32\"
sql=\"select * from Orders\"
Set res=nothing

’ 调用外部子程序 OpenDB 进行连接数据库
        OpenDB conn,sql,res
                ’msgbox res.RecordCount&\"行,\" & res.fields.count & \"列\"
                res.MoveFirst
           ’ res.MoveNext    没有它的话,记录就成了死循环
           
                ’reporter.ReportEvent 2,\"测试连接数据库\",\"数据库获取数据:\" & res.fields(0)

        RowCount=res.RecordCount
        ColumnCount=res.fields.count
        While not res.eof
                Record=\"\"
                For i=0 to ColumnCount-1
                        Record=Record & \":\" &res.fields(i)
                Next
                        Record=mid(Record,2)
                        reporter.ReportEvent 2,\"数据库记录:\",Record
                res.MoveNext [Page]
        Wend
  
’ 调用外部子程序 CloseDB关闭数据库
        CloseDB

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

22/2<12

关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网