51Testing软件测试论坛

标题: Robot GUI脚本操作SQL SERVER数据库 [打印本页]

作者: 海龙 时间: 2004-5-11 10:16
标题: Robot GUI脚本操作SQL SERVER数据库
代码如下(手工编写)：

'$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

WD=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在线帮助。

作者: 冷月 时间: 2004-12-22 17:43
ok
谢谢

作者: archonwang 时间: 2004-12-22 19:59
好东西，谢谢～

作者: 生如火花 时间: 2005-3-31 11:55
太感谢了

作者: wangjie536 时间: 2005-4-6 16:14
标题: 请问怎么用啊！
我怎么不懂啊！还请赐教。

作者: yxm305 时间: 2005-4-28 08:47
呵呵，原来不明白的一点现在明白，THX

作者: 浪漫小站 时间: 2005-5-17 15:40
标题: 想找rational robot工具
rational robot的软件吗？我是个新手想学这个自动化软件，请帮帮忙！希望以后多多指教

作者: madwolfer 时间: 2005-6-9 14:44
你这个命令有个问题，如果一个server下有几个实例，你只想访问其中一个实例下的表，请问你改如何操作？

如：有数据库server，server下有三个实例，一个是A，一个是B，一个是C。我打算访问A下面的表：A_Table，请问，此时改如何操作？

作者: madwolfer 时间: 2005-6-9 14:56
解决如下：
query = "select * from A.dbo.A_Tbale"

作者: tongfenglcz 时间: 2005-8-2 15:44
Dim out(1 To 1,1 to 1) As Variant '这是什么意思？干什么用的？

作者: 村上舞!舞!舞 时间: 2005-11-15 21:08
Dim out(1 To 1,1 to 1) As Variant
是定义一个二维表的数组,列和行，这里定义的范围为一列一行，往下可以输出：msgbox out(1,1)

作者: 村上舞!舞!舞 时间: 2005-11-15 21:09
Dim out(1 To 1,1 to 1) As Variant
是定义一个二维表的数组,列和行，这里定义的范围为一列一行，往下可以输出：msgbox out(1,1)

作者: tomzhang 时间: 2005-12-22 12:19
标题: 不错
顶一下！

作者: yangfengwait 时间: 2005-12-22 14:22
楼主你的方法是robot帮助中的方法，如果不用dsn，而是自己写联结字串，你应给怎么写呢

作者: fancylee 时间: 2006-1-23 13:54
我看到很多帖子的源代码里都是笑脸，是怎么回事，源码应该是什么呀？？

作者: Vitamin 时间: 2006-1-25 14:27
笑脸的代码是什么？

我查了一下，应该是 ;)

建议在发这种源码的帖自的时候，选择禁用smiles

[ 本帖最后由 Vitamin 于 2006-1-25 14:31 编辑 ]

作者: ctrl01 时间: 2006-3-7 15:50
标题: 不错。。
顶。。。。

作者: sindy.cool 时间: 2006-3-10 14:59
能帮我看一下下面这段连接数据库的脚本有什么问题吗，出来的msgbox里的内容总是空的，这个是在服务器上的数据库不是我本机的，ODBC建了用户DNS是成功的，czpbh是varchar类型的

Sub main

Dim destination(1 To 1, 1 To 1) As Variant
Dim prompt As integer
Dim retcode as Variant
Dim query as String
Dim outputStr as String

query = "select max(czpbh) from tb_czpjl"
retcode = SQLRequest("DSN=zqtest;UID=sa;PWD=tbird",query,outputStr,prompt,0,destination())
msgbox destination(1,1)
End Sub

作者: 紫气冬来 时间: 2007-9-22 10:16
呵呵，原来不明白的一点现在明白，THX

作者: zhaoevev 时间: 2007-9-23 09:06
Thanks a lot

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)