非常实用的QTP学习笔记.docVIP

非常实用的QTP学习笔记 转贴一个高人的QTP笔记供大家学习。? ?文章比较长，一共三部分：1、连接数据库查询例子，无参数化//查询收文操作，通过数据库查询记录数是否正确//1、输出记录数值，例如78条 2、获取输出的记录数值3、连接数据库，查询记录数4、输出记录数值和从数据库中查询记录数值，相比较，相等则成功，不等则失败Browser 湛江信息化测试登录 .Page 湛江东兴石油企业有限公司办公自动化系统 .Frame mainFrame .Output CheckPoint 78 Dim mmmm DataTable.GlobalSheet.GetParameter mainFrameOutput_Text_out .Value??//注释，获取datatable值与DataTable mainFrameOutput_Text_out, dtGlobalSheet 一致mm DataTable mainFrameOutput_Text_out, dtGlobalSheet MsgBox mmDim res,cmd,sqlSet res createobject adodb.recordset Set cmd createobject mand Cmd.activecCmd.CommandType 1sql select count * from oa_receivebumf??where BUMFNAME like %收文测试%sql select??count * ??from oa_receivebumf??where BUMFNAME nn //注释，sql语句,等于时sql语句// sql select??count * ??from oa_receivebumf??where BUMFNAME like %nn% //like时sql语句Cmd.CommandText sqlSet res Cmd.Execute //msgbox res name MsgBox res 0 If? ?Cstr res 0 Cstr mm Then Reporter.ReportEvent micPass, test,? ?查询成功 else Reporter.ReportEvent micfail, test,? ?查询失败End IfSet res nothingSet cmd.ActiveConnection nothingSet Cmd nothing2、登记用户，查看是否登记成功? ?//登记用户，查询用户是否存在在数据库中 1、 参数化 2、取参数化值??3、查询语句中，赋值给查询条件 4、从数据库中查询出用户名，与参数化中值做比较? ?脚本如下：Browser 测试登录 .Page 办公自动化系统 .Frame mainFrame_2 .WebEdit addressVO.name .Set DataTable p_Text, dtGlobalSheet Dim xnamexname DataTable p_Text, dtGlobalSheet MsgBox??xnameDim res,cmd,sqlSet res createobject adodb.recordset Set cmd createobject mand Cmd.activecCmd.CommandType 1sql select??name from address_list t where name xnameCmd.CommandText sqlSet res Cmd.Execute msgbox res name MsgBox res 0 Set res nothingSet cmd.ActiveConnection nothingSet Cmd nothing 第二部分 1、Datatable方法GetRowCount? ?DataTable.GetSheet Action1 .GetRowCount? ?//获取总行数??使用如：??CountNum DataTable.GetSheet Action1 .GetRowCount2、Datatable方法SetNextRow? ?DataTable.GetSheet Action1 .SetNextRow //取得下一行? ?datatable.setcurrentrow n ? ?//取得某一行3、Datatable方法getcurrentrow? ? //获得当前行数? ?例如：datatable.getc