查看完整版本: Robot GUI脚本操作SQL SERVER数据库

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

ok
谢谢

好东西，谢谢～

太感谢了

请问怎么用啊！

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

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

想找rational robot工具

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

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

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

解决如下：
query = "select * from [color=Red]A.dbo.[/color]A_Tbale"

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)

不错

顶一下！

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

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

笑脸的代码是什么？

我查了一下，应该是 ;)

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

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

不错。。

顶。。。。

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

Thanks a lot