[原创]QTP自定义数据库检查点SQL s…

    本帖子为本人原创，转载请注明作者：Cheers . Lee以及网络来源

    问题产生原因：因为QTP的数据库检查点不能精确的检查动态的新添加记录，所以，这里要自定义数据库检查点。

    说的再详细一点：比如:我现在通过程序在SQL server数据库xzfw_chibi中,添加一条用户信息，用户名为：Cheers.Lee，年龄：26，籍贯：陕西，学历：本科，所在程序：上海，职位：软件测试工程师；当我们点击用户添加表单中的“添加”按钮后，数据被写入到数据库。

    问题便产生了？那么我们这条数据是否已经添加到数据中了，而且这条信息就是我刚才添加的信息，那怎么办？

    解决方法：这里我只是验证新添加的这条记录的用户名在数据中表中存在就可以，其他的不再验证，希望起到抛砖引玉的作用。如果大家有更好的额方法，欢迎一起交流学习...

    声    明：这里之摘录了我测试脚本部分相关的脚本，其他脚本不再这里列举（请大家注意紫色标记代码，其他代码为我测试业务代码）

 

'产生唯一姓名 username Y=split(date,"-") Y(1)=right("0"&Y(1),2) Y(2)=right("0"&Y(2),2) Y1=Y(1)&Y(2) T=split(time,":") T1=T(1)&T(2) Function rand(k,n)    randomize    n=int((k-1)*rnd+1)   rand=n End Function Dim n n=rand(9,n) username="李"&Y1&T1&n Browser("电子政务").Page("电子政务").WebEdit("user_code").Set "admin" Browser("电子政务").Page("电子政务").WebEdit("user_pass").SetSecure "4927cb503cee9942d160e58f" Browser("电子政务").Page("电子政务").Image("dl-9").Click Browser("电子政务").Page("::::行政审批系统::::").sync wait 5 Browser("电子政务").Page("::::行政审批系统::::").WebElement("业务办理").Click Browser("电子政务").Page("::::行政审批系统::::").WebElement("系统管理").Click Browser("电子政务").Page("::::行政审批系统::::").Link("用户权限管理").Click Browser("电子政务").Page("::::行政审批系统::::").Frame("33").WebElement("用户管理").Click Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebList("orgid").Select "    工商局" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_2").WebButton("搜索").Click '增加用户开始--------------------------------------------------- Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("增加用户").Click Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_name").Set ""&username Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_code").Set ""&username Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_pass").SetSecure "4927d4079175cb072cf32883" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("conpassword").SetSecure "4927d40a5a602d544577ec1d" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select "地、厅、局级" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.dictcode").Select "省级" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebCheckBox("groupId").Set "ON" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select "领导操作工作台" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.returnindexid").Select "普用户工作台" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebList("user.user_organid").Select "    工商局" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select "F" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_gender").Select "M" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_tel").Set "13661703163" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_address").Set "上海市浦东新区" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_email").Set "huichanglee@163.com" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebEdit("user.user_remark").Set "暂无备注" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select "0" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebRadioGroup("user.user_status").Select "1" Browser("电子政务").Page("::::行政审批系统::::").Frame("33_4").WebButton("增加").Click '增加用户-结束----------------------------------------- '下边代码验证：增加后搜索新添加的用户是否存在，并打印出结果--开始-------- Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebEdit("username").Set ""&username Browser("电子政务").Page("::::行政审批系统::::").Frame("33_3").WebButton("搜索").Click set user_table=Browser("电子政务").Page("::::行政审批系统::::").Frame("33_7").WebTable("编号")  user_table_cols=user_table.columncount(1)  user_table_rows=user_table.rowcount username1=user_table.GetCellData(2,2) username2=trim(username)'这里获取添加用户的用户名，并去掉左右空格 If trim(username)=trim(username1) Then  Reporter.ReportEvent micPass,"添加用户测试","用户添加成功！"  else  Reporter.ReportEvent micFail,"添加用户测试","用户添加失败！" End If '验证增加用户后，搜索新添加的用户是否存在并打印出结果----结束---------- '自定义数据库检查点----------开始---------------------- Dim rs,cmd,sql Set rs=createobject("adodb.recordset") Set cmd=createobject("adodb.command") cmd.activeconnection="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=xzfw_chibi;Data source=192.168.8.9" cmd.commandtype=1 'sql="select * from sys_user  where user_code='用户名' "  这是sql格式需要者一样一个格式，一下为转化方法。 sql1="select * from sys_user  where user_code=" sql2="'" sql3=""&username2 sql4="'" sql=sql1& sql2&sql3&sql4 cmd.commandtext=sql Set rs =cmd.execute() If rs.eof=false Then  ’false意为记录到最后，及为符合sql查询结果的记录  reporter.ReportEvent micPass,"用户添加数据库检查点测试","测试通过！"  else   reporter.ReportEvent micFail,"用户添加数据库检查点测试","测试失败！" End If Set rs=nothing Set cmd.activeconnection=nothing Set cmd=nothing '自定义数据库检查点---------结束-----------------------

  其中,蓝色部分脚本可用,如下脚本替换,原理一样.

 

If not rs.eof  Then     reporter.ReportEvent micPass,"用户添加数据库检查点测试","测试通过！"  else   reporter.ReportEvent micFail,"用户添加数据库检查点测试","测试失败！" End If