QTP自动化测试连接数据库

某些自动化脚本在开发过程中多次打开,关闭数据库会造成脚本的管理不方便,我建议大家可以使用下面的方法实现连接数据库.

其中在自定义的Environment中添加Environment.Value ("conndb"),以及Environment.Value ("SQL1"),Environment.Value ("SQL2")

其中Environment.Value ("conndb")= "DSN=ORACLE;UID=****;PWD=***;SERVER=****"

Environment.Value ("SQL1")="SELECT * from ***"

Environment.Value ("SQL2")="SELECT * from ***"

Environment.Value ("SQL3")="SELECT * from ***"

 在脚本中实现以下scrīpt:

Set ADODB = CreateObject("ADODB.Connection")

Set ADOREC = CreateObject("ADODB.RecordSet")

 ADODB.Open Environment.Value ("conndb")

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

 Reporter.ReportEvent micDone,"field1",ADOREC.Fields(0).value

 Set ADOREC2 = ADODB.Execute (Environment.Value("SQL2"))

 Reporter.ReportEvent micDone,"field1",ADOREC.Fields(0).value

 ……

 ADOREC.MoveNext

'Wend

ADOREC.close

ADODB.Close

Set ADOREC = Nothing

Set ADODB = Nothing