GUI脚本操作SQL SERVER数据库

P#\jy:H9ZV#[0    
#?Wm'm$cs0
RM,iC9Y k0代码如下(手工编写)：
dVtJF2B0
DE$}'M
u[0'$Include "sqautil.sbh"51Testing软件测试网6n9GRSvq4z)?8}
Sub Main
9w!X:\%z;J"k'O0    Dim Result As Integer51Testing软件测试网~VY wi
    Dim connection As Long51Testing软件测试网!{Dj ?[;AV
    Dim retcode As Variant51Testing软件测试网N3f}s/ts9}_&Tn
    dim outputstr,query as string  
-`#F.m%p z,y^0    Dim out(1 To 1,1 to 1)  As Variant 
$j@P)d
~/xfa7y0    '通过ODBC连接到数据库，要先创建ODBC51Testing软件测试网Pa6dL!F3L,^
    connection = SQLOpen("DSN=server;UID=sa;PWD=998855", outputstr,)
L#F9H^(ep&L6f+l0    '查询语句51Testing软件测试网g1wee;D$Y|"R+yw4q
    query = "select password from customerinfo where userid=100"51Testing软件测试网 sggr+G(VB
    '执行查询51Testing软件测试网g ?~0ybLJ
    retcode = SQLExecQuery(connection,query)
,Tc9ai#R^d^5t}0    '取回结果,结果存入二维数组
Usa_)B,m0    retcode = SQLRetrieve(connection,out())51Testing软件测试网$j.}~o*fn.ds$t
    '取回结果,如果结果存入文件请使用
)k.Fi+t6Ik0    'retcode = SQLRetrieveToFile(connection,"c:\test.txt")
*[{[se
Bw u0    '显示结果
6V
JQ"u,?,L9V6f;T0    msgbox  out(1,1)51Testing软件测试网x~~B+k
    '关闭数据库连接51Testing软件测试网d,Pw?.G"uS8caS L
    retcode = SQLClose(connection)      
6ETb.{-M;k7jE6T!G_n0End Sub51Testing软件测试网kWXgp
Zm)I/m