Robot GUI脚本操作SQL SERVER数据库

代码如下(手工编写)：

字串2

'$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)
'关闭数据库连接