软件测试论坛

 找回密码
 软件测试论坛注册页
查看: 6689|回复: 1

Robot GUI脚本操作SQL SERVER数据库

  [复制链接]
发表于 2007-11-20 16:36:09 | 显示全部楼层 |阅读模式
软件测试工程师就业班马上开班
代码如下(手工编写):

'$Include "sqautil.sbh"
Sub Main
    Dim Result As Integer
    Dim connection As Long
    Dim retcode As Variant
    dim outputstr,query as string   
    Dim out(1 To 1,1 to 1)  As Variant   
    '通过ODBC连接到数据库,要先创建ODBC
    connection = SQLOpen("DSN=server;UID=saWD=998855", outputstr,)
    '查询语句
    query = "select password from customerinfo where userid=100"
    '执行查询
    retcode = SQLExecQuery(connection,query)
    '取回结果,结果存入二维数组
    retcode = SQLRetrieve(connection,out())
    '取回结果,如果结果存入文件请使用
    'retcode = SQLRetrieveToFile(connection,"c:\test.txt")
    '显示结果
    msgbox  out(1,1)  
    '关闭数据库连接
    retcode = SQLClose(connection)        
End Sub
   
    详细的命令用法,可以查阅Robot在线帮助。
ISTQB
发表于 2007-11-20 17:40:24 | 显示全部楼层
软件测试工程师就业班马上开班
灌水狂人在此 要命的都闪开
ISTQB

本版积分规则

Archiver|手机版|小黑屋|领测软件测试网 ( 京ICP备10010545号-5 )

GMT+8, 2021-10-23 09:50 , Processed in 0.127453 second(s), 9 queries , Xcache On.

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

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