安装完ORACLE客户端后在ODBC驱动程序中无法找到ORACLE驱动,造成无法连接到数据库上。
连接代码如下:
Dim con
Set con = CreateObject("ADODB.Connection")
con.ConnectionString = "DSN=oracledsn;UID=test01WD=test01;DBQ=test;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
con.Open
If con.State=0 Then
Reporter.ReportEvent micFail,"ConnectionString","Connection Fail"
else
Reporter.ReportEvent micPass,"ConnectionString","Connection True"
End If