Robot GUI脚本操作SQL SERVER数据库

海龙发表于 2004-5-11 10:16:04

代码如下(手工编写)：

'$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")
'显示结果
msgboxout(1,1)
'关闭数据库连接
retcode = SQLClose(connection)
End Sub

详细的命令用法，可以查阅Robot在线帮助。

冷月发表于 2004-12-22 17:43:06

ok
谢谢

archonwang 发表于 2004-12-22 19:59:58

好东西，谢谢～

生如火花 发表于 2005-3-31 11:55:28

太感谢了

wangjie536 发表于 2005-4-6 16:14:44

请问怎么用啊！

我怎么不懂啊！还请赐教。

yxm305 发表于 2005-4-28 08:47:53

呵呵，原来不明白的一点现在明白，THX

浪漫小站 发表于 2005-5-17 15:40:46

想找rational robot工具

rational robot的软件吗？我是个新手想学这个自动化软件，请帮帮忙！希望以后多多指教

madwolfer 发表于 2005-6-9 14:44:45

你这个命令有个问题，如果一个server下有几个实例，你只想访问其中一个实例下的表，请问你改如何操作？

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

madwolfer 发表于 2005-6-9 14:56:22

解决如下：
query = "select * from A.dbo.A_Tbale"

tongfenglcz 发表于 2005-8-2 15:44:54

Dim out(1 To 1,1 to 1)As Variant '这是什么意思？干什么用的？

村上舞!舞!舞 发表于 2005-11-15 21:08:44

Dim out(1 To 1,1 to 1)As Variant
是定义一个二维表的数组,列和行，这里定义的范围为一列一行，往下可以输出：msgboxout(1,1)

村上舞!舞!舞 发表于 2005-11-15 21:09:16

Dim out(1 To 1,1 to 1)As Variant
是定义一个二维表的数组,列和行，这里定义的范围为一列一行，往下可以输出：msgboxout(1,1)

tomzhang 发表于 2005-12-22 12:19:08

不错

顶一下！

yangfengwait 发表于 2005-12-22 14:22:36

楼主你的方法是robot帮助中的方法，如果不用dsn，而是自己写联结字串，你应给怎么写呢

fancylee 发表于 2006-1-23 13:54:49

我看到很多帖子的源代码里都是笑脸，是怎么回事，源码应该是什么呀？？

Vitamin 发表于 2006-1-25 14:27:29

笑脸的代码是什么？

我查了一下，应该是 ;)

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

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

ctrl01 发表于 2006-3-7 15:50:34

不错。。

顶。。。。

sindy.cool 发表于 2006-3-10 14:59:16

能帮我看一下下面这段连接数据库的脚本有什么问题吗，出来的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:14

呵呵，原来不明白的一点现在明白，THX

zhaoevev 发表于 2007-9-23 09:06:56

Thanks a lot

页: [1]

51Testing软件测试论坛 's Archiver