qtp 11.5链接oracle测试

Set Cnn = CreateObject("ADODB.Connection")

Cnn.ConnectionString ="DRIVER={Oracle in OraClient10g_home1};SERVER=10.11.117.56;UID=qdkfq130911;PWD=1;DBQ=asupp10;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"

Cnn.Open

If Cnn.State = 0 Then

Reporter.ReportEvent micFail, "testing", "连接数据库失败"

else

Reporter.ReportEvent micPass, "testing", "连接数据库成功"

end if