QTP之datatable用法笔记

深碍√TFBOYSˉ_ 2021-09-26 01:14 579阅读 0赞

1 、连接数据库查询例子，无参数化   
// 查询收文操作，通过数据库查询记录数是否正确   
//1 、输出记录数值，例如 78 条   2 、获取输出的记录数值  3 、连接数据库，查询记录数   
4 、输出记录数值和从数据库中查询记录数值，相比较，相等则成功，不等则失败   
Browser(" 湛江信息化测试登录 ").Page(" 湛江东兴石油企业有限公司办公自动化系统 ").Frame("mainFrame"). Output CheckPoint("78")   
 Dim mm  
 '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("adodb.command")  
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 时 sql 语句   
Cmd.CommandText = sql  
Set 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 If  
Set res = nothing  
Set cmd.ActiveConnection = nothing  
Set Cmd= nothing  
2 、登记用户，查看是否登记成功   
   // 登记用户，查询用户是否存在在数据库中   
     1 、   参数化  2 、取参数化值   3 、查询语句中，赋值给查询条件   
     4 、从数据库中查询出用户名，与参数化中值做比较   
    脚本如下：   
Browser(" 测试登录 ").Page(" 办公自动化系统 ").Frame("mainFrame\_2").WebEdit("addressVO.name"). Set DataTable("p\_Text", dtGlobalSheet)   
 Dim xname  
xname=DataTable("p\_Text", dtGlobalSheet)  
MsgBox  xname   
  
Dim res,cmd,sql  
Set res=createobject("adodb.recordset")  
Set cmd=createobject("adodb.command")  
Cmd.activec  
Cmd.CommandType = 1  
sql="select  name from address\_list t where name =' "&xname&"'"  
 Cmd.CommandText = sql  
Set res = Cmd.Execute()  
'msgbox res("name")  
MsgBox res(0)  
Set res = nothing  
Set cmd.ActiveConnection = nothing  
Set Cmd= nothing

第二部分

1、Datatable方法GetRowCount  
   DataTable.GetSheet("Action1").GetRowCount   //获取总行数  
  使用如：  
  CountNum=DataTable.GetSheet("Action1").GetRowCount  
  
2、Datatable方法SetNextRow  
   DataTable.GetSheet("Action1").SetNextRow     //取得下一行  
   datatable.setcurrentrow(n)   //取得某一行  
  
3、Datatable方法getcurrentrow    //获得当前行数  
   例如：datatable.getcurrentrow  
  
4、获取datatable值  
   4.1  DataTable("p\_Text", dtLocalSheet)  //取得datatable中参数名称为：p\_Text的值  
   4.2  DataTable.GlobalSheet.GetParameter("p\_Text").Value   //获取参数值方法和DataTable("p\_Text", dtLocalSheet)一样  
   例如：xname为变量，dim xname  
   xname=DataTable("p\_Text", dtLocalSheet)  
   xname=DataTable.GlobalSheet.GetParameter("p\_Text").Value  
  
5、datatable.value("num")只在global形式下的一种省略形式；完整形式是:  
datatable.value("num",dtlocalsheet)  
  
\-----向某一列的单元格赋值:  
datatable.value("column\_name",dtlocalsheet)="nanjing"  
  
6、字符转换Cstr  
   dim mm  
   Cstr(mm)  
  
7、获取对象属性名称用法:  
GetRoProperty----从应用程序界面上获取对象属性（即，是脚本运行时，获取的对象动态属性值）  
           例如：获取对象库中index属性值，似乎只能用GetToProperty,因为应用程序界面上对象没有该属性，只是  
　　　　　　QTP为识别该对象创立的描述属性；  
GetToproperty----从对象库中描述对象的属性，静态值  
GetToProperties----获取用于标识对象的属性集；对于这个集合，有count等属性方法  
  
8、如果弹出对话框就获取上面提示信息并与表中的信息对比，不统一证明弹出的提示出错,主要用来验证  
if browser("web\_name").dialog("dialog\_name").exist(1) then'如果不出现=false  
     error\_message=browser("web\_name").dialog("diaglog\_name").static("用户密码错误!".getRoproperty("text")  
　　　if error\_message<>(datatable.value("error\_info"))then  
         msgbox(error\_message)  
      end if  
     browser("web\_name").dialog("diaglog\_name").close  
  end if  
这里总结了两点技巧：  
　　一是：对于dialog中，虽然提示信息对象名称是"用户密码错误"，但如果信息对象名称是“该用户不存在”，不用更改会自动识别，我想主要是录制第一遍时，“用户密码错误”只是让运行时能找到这个控制，而不管它是什么内容，因为在对象仓库中，text不是决定该对象的属性  
    二是：如果对于提示信息比较长的，可以用mid(error\_message,n,m)取一部份特征提示信息进行验证，这样我想可以节省处理时间，又可以避免长度以及空格等字符的处理  
  
9、[数据库][Link 1]检查点模块:  
sub database\_check  
set con=createobject("adodb.connection")  
con.open "Description=IBM\_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&\_  
                 "PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM\_table"  
'access方式:con.open "DRIVER=\{Microsoft Access Driver (\*.mdb)\};DBQ=d:\\test.mdb"  
'Orocle方式:con.open "DRIVER=\{Oracle in OraHome92\};SERVER=CESHI;UID=CND\_TEST;PWD=CND;DBQ=CESHI;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"  
set record=createobject("adodb.recordset")  
sql="select\*from ibm\_one\_table"  
record.open sql,con  
DO  
if(record("ibm\_table\_column")="kai")then'//查找表格中有多少kai  
num=num+1;  
end if  
record.movenext  
loop until record.eof=true  
record.close  
set record=nothing  
con.close  
set con=nothing  
end sub  
  
10、"is+\*"类型function  
isarray'是否是数组  
isconnected'判断QTP是否连接到TD  
isdate'是否是合法的日期类型  
isempty'判断是否初始化  
isNull'判断是否为空值  
isNumeric'判断是否是数字型  
isobject'判断是否一个功能对象  
isready'判断设备是否准备就绪  
isRootFolder'是否是根目录  
  
11、for方法1,参数化时选择：dtLocalSheet  
Dim CountNum  
CountNum=DataTable.GetSheet("Action1").GetRowCount  
For i=0 to CountNum-1  
－－－－xunhuanti------  
DataTable.GetSheet("Action1").SetNextRow    //使用SetNextRow方法  
Next  
  
12、for方法2，参数化时选择：dtLocalSheet  
dim countNum   
countNum = DataTable.GetSheet("Action1").GetRowCount  
For i=1 to countNum  
DataTable.GetSheet("Action1").SetCurrentRow(i)  //使用SetCurrentRow(i)方法  
―――ddd―――  
next  
13、while方法1，参数化时选择：dtLocalSheet  
Dim CountNum,i  
i=1  
CountNum=DataTable.GetSheet("Action1").GetRowCount  
While i<=CountNum  
－－－－－－xuhuanti---  
DataTable.GetSheet("Action1").SetNextRow  
i = i+1  
Wend  
  
14、while方法2，参数化时选择：dtLocalSheet  
Dim CountNum,i  
i=1  
CountNum=DataTable.GetSheet("Action1").GetRowCount  
While i<=CountNum  
  
DataTable.GetSheet("Action1").SetCurrentRow(i)  
－－－－xuhuanti－－－  
i = i+1  
Wend

第三部分

15、Do while方法  
Dim i,RowCount '定义两个变量  
i=0  
RowCount=DataTable.GetSheet("Action1").GetRowCount '设置RowCount等于Action1中的行数。  
msgbox RowCount  
Do while i<rowcount  
i=i+1 '第一次进入循环，执行这句后，i=1  
'DataTable.GetSheet("Action1").SetCurrentRow(i)  这句话被我注释掉了，正确的写法应该是下面这样，分开写。  
  
datatable.getsheet("Action1")   
datatable.setcurrentrow(i)  
  
－－－－xunhuanti－－－－  
loop  
  
16、取对象属性（Property）值  
  
Dim usname  
usname =Browser("测试登录").Page("办公自动化系统").Frame("mainFrame\_2").WebEdit("addressVO.name").GetRoProperty("Value")   '获取对象属性（Property）值，如Property为Value  
MsgBox usname  
  
17、取得要删除的id，并删除  
'url在查看该新增记录的信息页面对象中取得，所以录制的时候，登记，查看（修改），删除  
  
Dim strUserid,id,strId  
  
     id=Browser("测试登录").Page("办公自动化系统").Frame("mainFrame\_4").GetROProperty("url") '在url这个属性值中存在我需要删除记录的ID信息  
  strId=Mid (id,instr(60,id,"=")+1)  '这一步是把需要的id值取了出来，例如：strId=Mid (id,instr(1,id,"=")+1)  
     strUserid =strId  'strUserid是我要删除的记录前的复选框属性值当中的ID信息  
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebCheckBox("value:="&strUserid).Set "ON" 这样就把想删除的记录选中了。  
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebButton("删 除").Click '这样就删除掉啦，呵呵  
  
17.2通过数据库取得id值，并赋值进行删除  
  
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame\_2").WebEdit("addressVO.name").Set DataTable("p\_Text", dtGlobalSheet)  
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame\_2").WebEdit("addressVO.address").Set DataTable("p\_Text1", dtGlobalSheet)  
  
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame\_2").WebEdit("addressVO.unitTel").Set DataTable("p\_Text2", dtGlobalSheet)  
  
Dim xname,address,unitTel  
xname=DataTable("p\_Text", dtGlobalSheet)   '从datatable中取值  
address=DataTable("p\_Text1", dtGlobalSheet)  
unitTel=DataTable("p\_Text2", dtGlobalSheet)  
  
Dim res,cmd,sql  
Set res=createobject("adodb.recordset")  
Set cmd=createobject("adodb.command")  
Cmd.activeconnection="DRIVER=\{Oracle in OraHome92\};SERVER=HKORACLE;UID=USER22;PWD=ZJLH;DBQ=HKORACLE;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"  
Cmd.CommandType = 1  
'sql="select  addressid from address\_list t where name ='"&xname&"'"  
'sql="select  addressid from address\_list t where name ='"&xname&"'  
sql="select  addressid from address\_list t where name ='"&xname&"' and address='"&address&"'  and unitTel='"&unitTel&"'"  
Cmd.CommandText = sql  
Set res = Cmd.Execute()  
  
MsgBox res(0)  '打印res(0)  
DataTable("addressid", dtGlobalSheet)=Cstr(res(0))   '输出值到datatable中

[Link 1]: http://lib.csdn.net/base/14