发布新日志

  • QTP针对网页中的链接标题动态变化的处理

    2007-09-12 15:41:54

    Browser("河南-郑州-未来团体-").Page("广东-招聘主持人2名大专学历1年工作经验").WebEdit("username").Set DataTable("AccName", dtGlobalSheet)
    Browser("河南-郑州-未来团体-").Page("广东-招聘主持人2名大专学历1年工作经验").WebEdit("password").SetSecure DataTable("AccPW", dtGlobalSheet)
    Browser("河南-郑州-未来团体-").Page("广东-招聘主持人2名大专学历1年工作经验").Image("Submit").Click 36,8
    Dim kk
    kk=DataTable("AccName", dtGlobalSheet)
    Browser("河南-郑州-未来团体-").Page("信息站控制台_5").Link("innertext:=" & kk & "帐户").Click
    Browser("河南-郑州-未来团体-").Page("信息站控制台_3").Link("退出").Click

    上例中通过一个变量kk先取得datatable.globalsheet中的参数,然后使用

    Link("innertext:=" & kk & "帐户") 来设置链接的标题。

  • datatable从数据库导入数据的小问题

    2007-09-12 15:31:16

    在QTP中通过database Query Wizard导入数据时,如果不注意的话,很容易导致查询出错的情况

    例如,选择“Specify SQL statement manually”,选择链接的数据库,这里选ACCESS

    然后,SQL Statement中输入(该语句在access中已经验证通过)

    SELECT 输入数据 FROM 测试用例 WHERE 大纲编号="XXZGLZX-003" AND Left(用例编号,10)="TJQYXX-001"

    执行时,提示“The Specified query could not be executed”

    将上述语句中的双引号改成单引号后,执行正常。

    说明:微软access中查询的兼容性强,上述查询语句在access中无论是单引号还是双引号均可以执行,但这些语句在sql server中却不兼容。QTP在数据库查询语句的兼容性上应该更接近sql server。

    因此,在QTP中使用sql 语句时,最好是与sql server中所用语句相一致。

  • 参数传递的学习

    2007-09-12 14:51:48

    今天,仔细了解了QTP中参数的应用。

    前几天一直未能解决的问题终于有了眉目。在一个action1中执行测试脚本,并将产生的输出保存到excel表中。然后,用另一个action2多次调用action1,并给其传递相应的参数,以便action1中根据参数将数据保存保存到excel表不同的行。

    action2

    For irow=1 to 3
     RunAction "Action1 [Test02]", oneIteration, sfilePath,irow
    Next

    action1:

    在action properties的parameters页,设置input parameters,添加两个参数sfilePath-string,irow-number类型。然后用Parameter("sfilePath") 、Parameter("irow")获得参数值

     Dim i, j
     Dim ExcelObj, ExlSheet   
     i=datatable.GetSheet(1).GetParameterCount  '取列数
     
     Set ExcelObj = CreateObject("Excel.Application") 
     ExcelObj.Visible = False
     ExcelObj.Workbooks.Open Parameter("sfilePath") ,ForWriting, False
     Set ExlSheet = ExcelObj.Workbooks(1).Worksheets(1)

     For j=1 to i
      ExlSheet.Cells(Parameter("irow"),j) = datatable.Value(j, 1) 
     next
     ExcelObj.ActiveWorkbook.Save
     ExcelObj.Application.Quit
     Set ExcelObj = Nothing 
     set ExlSheet = Nothing

我的栏目

我的存档

数据统计

  • 访问量: 2040
  • 日志数: 3
  • 建立时间: 2007-09-12
  • 更新时间: 2007-09-12

RSS订阅

Open Toolbar