高手QTP使用经验.docVIP

转帖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.getcurrentr