【笔记】一位高人的QTP学习笔记.docxVIP

一位高人的 QTP 学习笔记转贴一个高人的 QTP 笔记供大家学习；文章比较长，一共三部分：1、连接数据库查询例子，无参数化// 查询收文操作，通过数据库查询记录数是否正确//1 、输出记录数值，例如 78 条 2、猎取输出的记录数值3、连接数据库，查询记录数 一位高人的 QTP 学习笔记 转贴一个高人的 QTP 笔记供大家学习； 文章比较长，一共三部分： 1、连接数据库查询例子，无参数化 // 查询收文操作，通过数据库查询记录数是否正确 //1 、输出记录数值，例如 78 条 2、猎取输出的记录数值 3、连接数据库，查询记录数 4、输出记录数值和从数据库中查询记录数值，相比较，相等就胜利，不等就失败 Browser( 湛江信息化测试登录 ).Page( 湛江东兴石油企业有限公司办公自动化系统 ).Frame(mainFrame). Dim mm Output CheckPoint(78) mm=DataTable.GlobalSheet.GetParameter(mainFrameOutput_Text_out).Value // 注释，猎取 datatable 值与 DataTable(mainFrameOutput_Text_out, dtGlobalSheet) mm=DataTable(mainFrameOutput_Text_out, dtGlobalSheet) MsgBox mm Dim res,cmd,sql Set res=createobject(adodb.recordset) Set cmd=createobject(mand) Cmd.activec Cmd.CommandType = 1 一样 sql=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 Cmd.CommandText = sql Set res = Cmd.Execute() //msgbox res(name) 时 sql 语句 MsgBox res(0) If Cstr(res(0)) = Cstr(mm)Then Reporter.ReportEvent micPass, test, 查询胜利 else Reporter.ReportEvent micfail, test, End If Set res = nothing Set cmd.ActiveConnection = nothing Set Cmd= nothing 2、登记用户，查看是否登记胜利 查询失败 // 登记用户，查询用户是否存在在数据库中 1 、 参 数化 2、取参数化值 3 、查询语句中，赋值给查询条件 4 、从数据库中查询出用户名，与参数化中值做比较 脚本如下： Browser( 测试登录 ).Page( 办公自动化系统 ).Frame(mainFrame_2).WebEdit(addressVO.name). DataTable(p_Text, dtGlobalSheet) Dim xname Set xname=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 = Cmd.CommandText = sqlSet res = Cmd.Execute() msgbox res(name) MsgBox res(0)Set res = nothingSet cmd.ActiveConnection = nothing Set Cmd= nothingxname其次部分1、Datatable 方法 GetRowCountDataTable.GetSheet(Action1).GetRowCount使用如：// 猎取总行数CountNum=DataTable.GetSheet(Action1).GetRowCount xname=DataTable(p_Text, dtGlobalSheet) Msg