• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

软件测试开源工具Rational Robot SQABasic数据库操作相关命令[2]

发布: 2009-11-18 11:16 | 作者: 不详 | 来源: 领测软件测试网采编 | 查看: 18次 | 进入软件测试论坛讨论

领测软件测试网

       软件测试开源工具Rational Robot SQABasic数据库操作相关命令[2]   软件测试工具

  关键字:SQABasic 数据库 命令

  注解:

  对于SQL SELECT返回结果集的栏数目;对于UPDATE, INSERT, 或 DELETE返回受语句作用的行的数目。任何其它SQL语句返回0。如果函数在指定数据源不能执行此查询,或如果连接不可用,则返回为负的错误编码。

  如果SQLExecQuery被调用但连接上还有一些未处理结果,则这些等待结果被新的结果所代替。 SQLExecQuery Example

  This example performs a query on the data source.

  Sub main

  '' Declarations''

  Dim connection As Long

  Dim destination(1 To 50, 1 To 125) As Variant

  Dim retcode As long

  Dim outputStr as String

  Dim query as String

  '' open the connection

  connection = SQLOpen("DSN=SblTest",outputStr,prompt:=3)

  ''

  '' Execute the query

  query = "select * from customer"

  retcode = SQLExecQuery(connection,query)

  ''

  '' retrieve the first 50 rows with the first 6 columns of each row into

  '' the array destination, omit row numbers and put column names in the

  '' first row of the array

  retcode = SQLRetrieve(connection:=connection,destination:=destination,columnNames:=1,rowNumbers:=0,maxRows:=50, maxColumns:=6,fetchFirst:=0)

  '' Get the next 50 rows of from the result set

  retcode = SQLRetrieve(connection:=connection,destination:=destination,columnNames:=1,rowNumbers:=0,maxRows:=50, maxColumns:=6)

  '' Close the connection

  retcode = SQLClose(connection)

  End Sub

  SQLGetSchema功能函数

 

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/

TAG: rational Rational RATIONAL robot Robot ROBOT SQABasic 软件测试 数据库

21/212>

关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网