QTP自动化测试连接数据库

某些自动化脚本在开发过程中多次打开,关闭数据库会造成脚本的管理不方便,我建议大家可以使用下面的方法实现连接数据库.51Testing软件测试网:?2o!{&}X'V

其中在自定义的Environment中添加Environment.Value ("conndb"),以及Environment.Value ("SQL1"), Environment.Value ("SQL2")51Testing软件测试网"J@Ki1p

9~(Bc5f_,|@0 

其中Environment.Value ("conndb")= "DSN=ORACLE;UID=****;PWD=***;SERVER=****"51Testing软件测试网8D8H/dlXS h

sk{$Ox,_7]0Environment.Value ("SQL1")="SELECT * from ***"51Testing软件测试网5b!@0BW6x e

6W'Q ]"\!H0Environment.Value ("SQL2")="SELECT * from ***"

uPpT*dsc0Environment.Value ("SQL3")="SELECT * from ***"51Testing软件测试网#[I(d xn,y

`IL5P#H"N@iS0 在脚本中实现以下scrīpt:

}a-yF
F'K,f0Yl0Set ADODB = CreateObject("ADODB.Connection")

Yc,|5Rm a4V'd0Set ADOREC = CreateObject("ADODB.RecordSet")51Testing软件测试网 B&|$y/_nhx

.y9zK5V"n7}:L0 ADODB.Open Environment.Value ("conndb")51Testing软件测试网 RK} J:G

 Set ADOREC = ADODB.Execute (Environment.Value("SQL1"))

|C.OL j^H)E;a0 Reporter.ReportEvent micDone,"field1",ADOREC.Fields(0).value

 Set ADOREC2 = ADODB.Execute (Environment.Value("SQL2"))51Testing软件测试网 j }b&LcL^"^

@:P zA8N~,GpO0 Reporter.ReportEvent micDone,"field1",ADOREC.Fields(0).value51Testing软件测试网,wL"x r(W4`

A.R{6gP$t:N'K0 ……51Testing软件测试网h4X'\ c D

 ADOREC.MoveNext51Testing软件测试网K#HCQ4HVtJ

V`a.Rb0'Wend51Testing软件测试网p!He3[;c"S\

-gK3[;s*v(])|0ADOREC.close

/@.izl7ZK;Fm0ADODB.Close

u&CN;YzK0Set ADOREC = Nothing

gB5@)nz:oZOZJ0Set ADODB = Nothing

9X
c1qu,`Hv6j \0 51Testing软件测试网!v1]#o2NVC:d@