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

 

Set MyDescription  = Description.Create()

 

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

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

 

 

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

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

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

 

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

'相关的数据库操作

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

使用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

 

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