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

冷月

ok
谢谢

archonwang

好东西，谢谢～

生如火花

太感谢了

wangjie536

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

yxm305

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

浪漫小站

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

madwolfer

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

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

madwolfer

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

tongfenglcz

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

村上舞!舞!舞

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

村上舞!舞!舞

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

tomzhang

顶一下！

yangfengwait

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

fancylee

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

Vitamin

笑脸的代码是什么？

我查了一下，应该是 ;)

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

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

ctrl01

顶。。。。

sindy.cool

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

紫气冬来

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

zhaoevev

Thanks a lot