51Testing软件测试论坛

标题: 版主帮个帮,急用,读datapool到第二个数据就读不出了 [打印本页]

作者: djw1999 时间: 2005-3-7 22:02
标题: 版主帮个帮,急用,读datapool到第二个数据就读不出了
dp=SQADatapoolOpen("ID_Data")

for x=1 to 2

  Call SQADatapoolFetch(dp)
'从数据池中读取记录
Call SQADatapoolValue(dp,1,ID)

'将从数据池中读取的数据赋予相应变量
   Call SQADatapoolClose(dp)
'关闭数据池
'=================================
URLa=ID
URLb="www.cnta.com/10-lxs/view.asp?id="
URL=URLb+URLa

StartBrowser URL, "WindowTag=WEBBrowser"

DelayFor (15000)

Window SetTestContext, "Caption=中国旅游网 - Microsoft Internet Explorer", ""

Result=SQAGetProperty("Type=HTMLTableCell;Index=8","innerText",manager)
Result=SQAGetProperty("Type=HTMLTableCell;Index=10","innerText",commissary)
Result=SQAGetProperty("Type=HTMLTableCell;Index=12","innerText",address)
Result=SQAGetProperty("Type=HTMLTableCell;Index=14","innerText",post)
Result=SQAGetProperty("Type=HTMLTableCell;Index=16","innerText",Email)
Result=SQAGetProperty("Type=HTMLTableCell;Index=18","innerText",tel)
Result=SQAGetProperty("Type=HTMLTableCell;Index=20","innerText",license)
Result=SQAGetProperty("Type=HTMLTableCell;Index=22","innerText",fax)

sum=manager+"/"+commissary+"/"+address+"/"+post+"/"+Email+"/"+tel+"/"+license+"/"+fax

open "c:\Test.txt" for Append as #1
print #1,sum
close #1
Window CloseWin, "", ""

next
Call SQADatapoolClose(dp)

我读到第二个就读不出了,我数据池中只有两个数据,为什么呢,请版主帮忙

[ Last edited by djw1999 on 2005-3-7 at 22:31 ]

作者: pcl2004_27 时间: 2005-3-8 09:22
你的脚本代码编写的不利于调试，datapool的调用没有返回值！到底是否调用成功，你无法确认！
代码如下：
'$Include "sqautil.sbh"
DIM dp_id as Long
DIM dp_Result as Long
dp_id = SQADatapoolOpen ("repo_dp1", FALSE, SQA_DP_SEQUENTIAL, FALSE)
dp_Result = SQADatapoolFetch (dp_id)
dp_Result = SQADatapoolClose (dp_id)

你调试的过程中，察看variable窗口，dp_result返回值是否成功！才能判断是否读取成功！

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