51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3467|回复: 3
打印 上一主题 下一主题

[Robot] Robot代码解析

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2005-8-2 15:48:49 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
请帮我分析一下下面的代码,不是很明白!!!
Sub main
' Declarations
'
    Dim outputStr As String '请问这里定义的变量是干什么啊?
    Dim connection As Long  
    Dim prompt As Integer  '请问这里的prompt是什么意思?
    Dim datasources(1 To 6,1 to 9) As Variant  '这又指什么呢?
    Dim retcode As Variant  '这是干嘛的?
   
    Dim iProcColumns As Integer
    Dim iProcRows As Integer
    Dim iProcRowCount As Integer
    Dim iProcColumnCount As Integer
    Dim sFunctionCall As String

    prompt = 2 ’为什么是2?什么意思?
    connection = SQLOpen("DSN=RationalTest", outputStr, prompt:=2)
    retcode = SQLExecQuery(connection:=connection,query:="select * from product ")
    retcode = SQLRetrieve(connection,datasources())
   
    For iProcRowCount = 1 to 10
      .
        For iProcColumnCount = 1 to 6
                  sFunctionCall = datasources(iProcRowCount, iProcColumnCount)
        Next iProcColumnCount


    Next iProcRowCount
    retcode = SQLClose(connection)


End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

4#
发表于 2005-8-18 11:31:56 | 只看该作者
Robot中,打开一个script,然后在任意地方点一下,按 F1
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2005-8-4 10:23:03 | 只看该作者
你应该看一下帮助,看看SQLOpen,SQLExecQuery,SQLRetrieve这些函数的定义,看看他们的参数都是什么含义
回复 支持 反对

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2005-8-2 15:52:47 | 只看该作者
robot自带的例子从那儿看啊?我怎么没有发现robot自带例子
谢谢!!!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-26 13:44 , Processed in 0.065895 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表