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