51Testing软件测试论坛

标题: SQADatapoolOpen报错 [打印本页]

作者: yg_82 时间: 2004-7-23 10:59
标题: SQADatapoolOpen报错
我用如下语句datapool=SQADatapoolOpen("ygq1")
报如下错误：Variable SQADatapoolOpen undefined
脚本如下：
Sub Main
Dim Result As integer
dim i as integer
dim r as String
'Initially Recorded: 2004-7-22 19:31:41
'Script Name: test7
'Result1=1
StartApplication """D:\Program Files\Tencent\qq\QQ.exe"""
datapool=SQADatapoolOpen("ygq1")
for i=1 to 5
Call SQADatapoolFetch(datapool)
Call SQADatapoolValue(datapool,1,r)
Window SetContext, "Class=#32770", ""
EditBox Left_Drag, "Label=QQÃÜÂë£º", "Coords=1,8,-5,8"
InputKeys r
EditBox Click, "Label=QQÃÜÂë£º", "Coords=5,7"
InputKeys "{BKSP}"
PushButton Click, "Text=µÇÂ¼"
Window SetContext, "Caption=´íÎó", ""
PushButton Click, "Text=·ñ(N)"
Window SetContext, "Class=#32770", ""
next i
Call SQADatapoolClose(datapool)
End Sub

'？？？？？？

作者: yg_82 时间: 2004-7-23 11:19
解决了，原来是少写了下面这句：
'$Include "sqautil.sbh"

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