在这里积累学习中的点点滴滴!

发布新日志

  • QC不识别QTP脚本

    2009-07-01 13:48:08

        今天使用QC编写测试用例的时候发现无法识别QTP的脚本,而QTP可以连接到QC,甚至可以保存脚本到QC上,但是在QC添加测试脚本的时候没有QTP的选择项,找了半天原因才发现是因为QTP Addin QC插件没有安装(名为TDPlugInsSetup.exe),因为之前卸载过一次QTP忘记安装这个插件了,因此重新安装插件后可成功连接,在此做个备忘。

  • 描述性编程的最小化实例

    2009-05-30 14:46:40

     

    Set MyDescription  = Description.Create()

     

    MyDescription("text").value = "确   定"

    VbWindow("VbWindow").VbButton(MyDescription).Click

  • QTP连接数据库

    2009-05-30 14:45:54

     

     

    Set excelObj = CreateObject("Excel.Applicaiton") '创建一个对象

     xlsUrl = "C:\测试结果.xls" '指定一个已经存在的XSL文件路径

     excelObj.workbooks.open(xlsUrl) '打开EXCEL

     

     Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL中的那一页上(索引从1开始)

    '相关的数据库操作

    Set conn = CreateObject("adodb.connection")

    set rs = createobject("adodb.recordset")

     

    conn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=callbackdb;Data Source=192.168.1.53"

    sql="select * from callrecord"

     rs.open sql,conn

    Dim i

    i = 26

    While not rs.eof

    user_id = rs("CALLID").value

    user_name = rs("SESSIONID").value

    sheetNew.cells(i+1,1).value = user_id '列赋值

    sheetNew.cells(i+1,2).value = user_name '列赋值

     i = i + 1

     rs.movenext

     wend

     excelObj.activeworkbook.saveas "C:\QTP\0110\sql-excel-qtp\data.xls" '保存数据

     excelObj.quit '关闭对象

      set excelObj = nothing '清空对象

      rs.close '关闭数据库连接操作

      set rs=nothing

       conn.close

  • QTP脚本中的FOR循环

    2009-05-30 14:43:20

    使用for循环可以一次执行完所有的数据参数

    for循环控制变量从小到大

    Dim row

    Dim StrValue

     

    row =DataTable.GetSheet("Global").GetCurrentRow  '获得当前运行数据的行数

     

    For row =0 to 20

    StrValue=DataTable.RawValue ("p_Textname", "Global")  '获得当前运行行的值参数为参数名,Sheet名称

     

    .WebEdit("personForm.personName").Set StrValue    '注意使用参数后不能在使用DataTable方法

    .WebButton("确定").Click

     

    DataTable.SetNextRow  '一次执行所有的数据行因此,执行FOR循环需置为下一行继续执行

    Next

     

    for循环控制变量从大到小

     

    Dim i

    Dim strSelectNum

    With Browser("xxxx")

    With .Page("xxx")

    .WebEdit("userLoginName").Set "summer"

    wait(3)

     '   .WebEdit("userPassword").SetSecure "4a1b58fa0198da28ca9cbe8639560eca2f4f9f19fde271b9e0e3"

    .WebButton("登录").Click

    End With

     

        For i=9 To 0 STEP -1

    With .Page("xxx_3")

    strSelectNum =cstr(i)

    .WebRadioGroup("tableRadio").Select strSelectNum

    .WebButton("删除").Click

    End With

    .Dialog("Microsoft Internet Explorer").WinButton("确定").Type  micReturn

    Next

    End With

     

  • QTP无法启动

    2009-02-05 11:57:48

    因为这一段时间系统都不怎么好,很容易卡死,装好QC后,进行天清理了一下系统结果发现QTP无法启动了,addin-manager页面,8.2的欢迎界面出来后就无任何反映了,郁闷了半天,刚开始以为时QC影响的,可是在群中有人说QTP、LR、QC是可以安装到同一台机器上面的,因此不可能有冲突的问题,没办法想要卸载QTP重新安装,可是发现卸载之后在控制面板里依然可以看到QTP的程序名称,郁闷了,用360,超级兔子进行卸载依然不成功,最后在网络上搜索到说是因为装了IE7的原因,于是尝试者卸掉IE7再次运行QTP,OK没问题了!原来是我用超级兔子清理系统的时候不小心升级IE了,因此产生这个问题。
Open Toolbar