不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。
it is no use doing what you like, you have got to like what you do.
GUI脚本操作SQL SERVER数据库
上一篇 /
下一篇 2006-12-22 11:51:47
/ 个人分类:Robot技术
Robot GUI脚本操作SQL SERVER数据库51Testing软件测试网!S.J/mP9a*X P#\j y:H9ZV#[0 #?W m'm$cs0RM,iC9Y
k0代码如下(手工编写):
dVtJF2B0DE$}'Mu[0'$Include "sqautil.sbh"
51Testing软件测试网6n9GRSvq4z)?8}Sub Main
9w!X:\%z;J"k'O0 Dim Result As Integer
51Testing软件测试网~VY
wi Dim connection As Long
51Testing软件测试网!{ Dj ?[;AV Dim retcode As Variant
51Testing软件测试网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连接到
数据库,要先创建ODBC
51Testing软件测试网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*f n.ds$t '取回结果,如果结果存入文件请使用
)k.Fi+t6Ik0 'retcode = SQLRetrieveToFile(connection,"c:\test.txt")
*[{[seBw
u0 '显示结果
6VJQ"u,?,L9V6f;T0 msgbox out(1,1)
51Testing软件测试网x~~B+k '关闭数据库连接
51Testing软件测试网d,Pw?.G"uS8caS L retcode = SQLClose(connection)
6ETb.{-M;k7jE6T!G_ n0End Sub
51Testing软件测试网kWXgpZm)I/m
收藏
举报
TAG:
软件测试技术
SQA
数据库
命令
Robot
Robot技术