收藏本站 收藏本站
积木网首页 - 软件测试 - 常用手册 - 站长工具 - 技术社区
软件测试 > Robot > 正文

首页 | 领域细分: 游戏测试 安全测试 手机测试 Web测试 | 技术研究: 单元测试 入门教程 用例设计 性能测试 功能测试 | 测试职场: 面试精选 职场发展 面试试题

测试管理: 配置及流程 - 需求管理 - 质量验收 - 缺陷管理 - 其它管理相关 | 开发语言: PHP技巧 - PHP基础 - PHP实例 - PHP错误代码

测试工具: LoadRunner JiRa QuickTestPro RoBot WinRunner TestDirector 其它测试工具 | 数据库: Mysql数据库 Oracle数据库 CSS/DIV基础 HTML基础

Robot GUI脚本操作SQL SERVER数据库

来源:互联网 日期:2012-10-14 07:30

代码如下(手工编写):

'$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=sa;PWD=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在线帮助。

本周排行

别人正在浏览

强悍的草根IT技术社区,这里应该有您想要的!
Copyright © 2010 Gimoo.Net. All Rights Rreserved  京ICP备05050695号