51Testing软件测试论坛

标题: 有关datapool取值的问题 [打印本页]

作者: calykong 时间: 2007-8-18 12:24
标题: 有关datapool取值的问题
新建了一个名为login的datapool，里面包含两字段username、password，以下代码回放时能取到值，但是取值的时候取的是第1、3、4、6、8行的值，其他的跳过去了，不知道为什么，是不是下面代码的问题，请各位指教

'$Include "sqautil.sbh"
Sub Main

Dim Result As Integer

Dim dp_id as long

'Dim num as Integer

Dim dp_Result as long

Dim username as string

Dim password as string

Dim x as Integer

'num=InputBox("10")

x=1
while x<=10


'Initially Recorded: 2007-8-17  10:54:52
'Script Name: qd_fya_登陆test
StartBrowser "http://ip/xt", "WindowTag=WEBBrowser"

dp_id = SQADatapoolOpen ("login",FALSE,SQA_DP_SEQUENTIAL,FALSE)

call SQADatapoolFetch(dp_id)

call SQADatapoolValue(dp_id,"username",username)

call SQADatapoolValue(dp_id,"password",password)

call SQADatapoolFetch(dp_id)


Window SetContext, "WindowTag=WEBBrowser", ""
Browser NewPage,"HTMLTitle=××系统",""
SetThinkAvg 4359
EditBox Click, "Name=username", "Coords=14,9"
SetThinkAvg 4125
TypingDelays "0, 250, 187, 218"
InputKeys username
SetThinkAvg 1516
EditBox Click, "Name=password", "Coords=38,10"
SetThinkAvg 1032
TypingDelays "0, 234, 187, 282"
InputKeys password
SetThinkAvg 3500
HTMLImage Click, "Index=1", "Coords=17,26"

Result = WindowVP (Exists, "Caption=××系统 -", "VP=Window Existence;Wait=20,30")

x=x+1

wend

dp_Result = SQADatapoolClose(dp_id)


End Sub

[ 本帖最后由 calykong 于 2007-8-18 12:29 编辑 ]

作者: caesarqth 时间: 2007-8-18 17:15
1.在循环体里面不断打开datapool不对吧，放到循环体外
2。游标语句在循环体里面有两个，这样是不对的，会导致隔行读取数据
我修改了一下，不知是不是合乎你的要求，^_^

注：如果读取行数还是有问题，那么修改一下Datapool，里面肯定有Cell为空，导致出现问题

'num=InputBox("10")

x=1
'Initially Recorded: 2007-8-17  10:54:52
'Script Name: qd_fya_登陆test
StartBrowser "http://ip/xt", "WindowTag=WEBBrowser"

dp_id = SQADatapoolOpen ("login",FALSE,SQA_DP_SEQUENTIAL,FALSE)

call SQADatapoolFetch(dp_id)

while x<=10



call SQADatapoolValue(dp_id,"username",username)

call SQADatapoolValue(dp_id,"password",password)

call SQADatapoolFetch(dp_id)


。。。。。。。

wend

  dp_Result = SQADatapoolClose(dp_id)

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)