查看完整版本: 使用Datapool编译报错问题

使用Datapool编译报错问题

'$Include "sqautil.sbh"

Sub Main
    Dim Result As Integer
    Dim dp_id  as long
    Dim dp_result as long
    Dim strName as string
    Dim strPassword as string
   
    'Initially Recorded: 2008-4-14  16:00:44
    'Script Name: tt_test
   
    Window SetContext, "Caption=Program Manager", ""
    ListView DblClick, "Text=FolderView;\;ItemText=SecureCRT 5.1", "Coords=28,34"
   
    Window SetContext, "Caption=连接", ""
    TreeView ScrollLineUp, "Text=Tree1", ""
    TreeView ScrollLineUp, "Text=Tree1", ""
    TreeView Click, "Text=Tree1;\;ItemText=会话->hy", ""
    PushButton Click, "Text=连接(C)"
   
    Window SetContext, "Caption=hy - SecureCRT", ""
   
   ' dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_Random, FALSE)
    dp_Result = SQADatapoolFetch (dp_id)
    while dp_Result <> sqaDpEOF
    dp_Result = SQADatapoolValue (dp_id, "name", strName)
    dp_Result = SQADatapoolValue (dp_id, "password", strPassWord)
    dp_Result = SQADatapoolFetch (dp_id)
    InputKeys strName&"{ENTER}"&strPassWord&"{ENTER}"  

      
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
可以先忽略我写的什么，写的对不对
我疑惑的地方是
我编译会报下面的错
tt_test.rec(31) Error: Variable SQADatapoolFetch undefined  // 我已经在开头引用了那个数据池的头文件了噢？？
tt_test.rec(32) Warning: No DIM statement for Variable 'sqaDpEOF'
tt_test.rec(33) Error: Variable SQADatapoolValue undefined  // 我已经在开头引用了那个数据池的头文件了噢？？
tt_test.rec(34) Error: Variable SQADatapoolValue undefined  // 我已经在开头引用了那个数据池的头文件了噢？？
tt_test.rec(35) Error: Variable SQADatapoolFetch undefined  // 我已经在开头引用了那个数据池的头文件了噢？？
tt_test.rec(36) Error: Variable 'strName' type conflict
tt_test.rec(44) Error: Illegal statement
tt_test.rec(45) Error: Unexpected end of file

注明：那个头文件我没有在相应目录下找到，于是在那个目录下建了头文件 内容是空的
问题：
1、我引用了头文件为什么还报这样的错呢？
2、那个头文件是我自己建的空文件，是否有问题？因为我不知道那个头文件应该长成什么样。
请帮帮忙 解答下 ：）  不胜感激 :D

头文件不应该为空的，sqautil.sbh文件声明了datapool的相关函数，sqautil.sbl文件定义了datapool的函数。同时dpconst.sbh文件声明了sqaDpEOF等几个常量的数值。
  你在robot的相关安装路径下如：D:\Program Files\Rational\Rational Test\sqabas32，下放上如下的3个文件（不知道是否需要sqautil.sbx文件，一并给你吧），奇怪怎么会出现这种问题，应该是安装的时候出问题了吧^_^

非常非常感谢～～呵呵
这个错误终于不再出现 原来我看错目录了
这个安装目录下有这几个文件
但是所建项目的sqabas32目录下没有这个头文件
考过去之后就不再报这个错了

问题 2

相当白痴的问题:$

还是上面的那个脚本
    Dim strName as string
    Dim strPassword as string

tt_test.rec(36) Error: Variable 'strName' type conflict

我想应该是我数据池定义的type和变量定义的type相冲突了
我数据池定义的type是 Random Alphabetic string
我就是要定义一个字符串的 选这种type不对么？那应该是什么
我看了看那些选项 还觉得这个最相近呢  汗～:L

好心人  来帮忙说两句哈 ^_^

这个跟datapool没有关系的，是脚本的问题，“&” or “+" 字符创连接符的使用方法有问题
当用连接符连接字符串或变量时，最好在之间用空格隔开。
如下就不会有问题了：
InputKeys strName & "{ENTER}" & strPassWord & "{ENTER}"