2012年给力新作《精通QTP——自动化测试技术领航》试读以及答疑专用贴

zzxxbb112

回复  zzxxbb112

老师，我的是win xp_32_cn操作系统，不是英文操作系统，是不是其它配置错了？谢谢
没翅膀的飞鱼 发表于 2012-6-30 09:33

    那你这边有报错吗，我这边运行都是没有问题的。

zzxxbb112

回复 353# liujintao00


    是因为类型不匹配的原因，可以把ActualValue强转成字符串就好了，因为max length返回的是int类型，可以直接使用cstr(ActualValue)就不会再出错了。

zzxxbb112

回复 350# yongfeiuall


    同楼上355层回答

zzxxbb112

使用cstr确实不报错了，但是检查结果有问题，当预期结果和实际结果相同时，会判定为失败，要怎么解决
liujintao00 发表于 2012-9-4 10:24

预期结果和实际结果相同不会报错啊，肯定是有不同才会报错，一种情况就是类型不一样，既然已经转成字符串类型，那么你即使传入数字也必须要加上引号作为字符串形式进行比较。第二种情况看看比较的字符串左右是否含有空格，再试试，这类问题debug一下就好了。

zzxxbb112

我现在有一个问题很是不解，请教一下。

一、有三个文件：1.QTP; 2.vbs; 3.RegisterFun。
二、公共函数L ...
yongfeiuall 发表于 2012-9-11 09:55

    报什么错，把代码都贴上来

zzxxbb112

回复 398# malasyan


    我这边试了啊，利用for循环没有任何问题呢，count也是2

脚本如下：

sqlConnection = "DSN=Excel Files;DBQ=D:\1.xlsx"
sqlCommand = "select * from [Sheet1$]"
Set oExcel = CreateObject("adodb.connection")
oExcel.Open sqlConnection
Set oRst= oExcel.Execute(sqlCommand)
For i=1 To  oRst.Fields.Count

        MsgBox oRst.Fields.Item("username").Value
        oRst.MoveNext

Next

zzxxbb112

回复 444# wyfyan


    书里已经写了，在注册表里呢。

zzxxbb112

回复 446# 黑羽祭

这里是书里写错了，应该把Browser改成Window，后续版本我们会进行修订

'使用IE COM启动IE
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True     '设置可见
oIE.Navigate "http://www.baidu.com"        '跳转URL
'获取窗口句柄
ieHwnd = oIE.HWND
Window("hwnd:=" & ieHwnd).Close

zzxxbb112

两位兄台，还有一个问题希望能帮忙解答一下

在测试框架的章节里，用Excel管理用例，只有一个用例驱动 ...
yongfeiuall 发表于 2013-1-5 15:49

    你好,书中所提到的只是框架中的一部分,并非完整的框架,对于excel的共享,你可以把一些数据存在数据库中,每次打开动态读取.这样数据每次都是最新的,至于sheet数量,这个其实也可以对框架做一定的改进,比如每次打开是不存在sheet的,可以与QC联动读取相应的testplan里的case模块下的所有case,一般小模块下的case不会很多.我记得没错的话,excel sheet最多支持256个

zzxxbb112

回复 468# zhangkun90

书不在身边,明天到公司帮你看看这个问题.

zzxxbb112

回复  zzxxbb112


    嘿嘿 好的 麻烦咯 谢谢
zhangkun90 发表于 2013-1-31 09:20

    看了下，这里的确是写错了，感谢你的提出，我们会在下一版进行修订，正确的方式应该是使用RecordCount方式来获取集合记录数。
给你一段样例：

1. 
   
2. Const adUseClient = 3
   
3. sqlConnection = "DSN=Excel Files;DBQ=D:\1.xlsx"
   
4. sqlCommand = "select * from [Sheet1$]"
   
5. sqlCommandCount = "select count(*) from [Sheet1$]"
   
6. Set oExcel = CreateObject("adodb.connection")
   
7. Set oRst = CreateObject("adodb.recordset")
   
8. 
   
9. oRst.CursorLocation = adUseClient
   
10. oRst.Open sqlCommand,sqlConnection
    
11. 
    
12. For i=1 To oRst.RecordCount
    
13.                
    
14.         MsgBox oRst.Fields.Item("username").Value
    
15.         oRst.MoveNext
    
16. 
    
17. Next

复制代码