Dim conn
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString="rovider=MSDAORA.1assword=abyy;User ID=abyy;Data Source=172.31.128.215/gzabersist Security Info=True;Charset=UTF-8"
conn.Open
If conn.State=0 Then
Reporter.ReportEvent micFail,"Fail to connect oracle","conn.state="&conn.State
ExitAction()
else
Reporter.ReportEvent micPass,"Success to connect oracle","conn.state="&conn.State
End If
If conn.State<>0 Then
Dim rs
Set rs=CreateObject("ADODB.RecordSet")
Dim sql
sql="select name from zg_be"
rs.Open sql,conn,adOpenDynamic
rs.MoveFirst
Do while not rs.EOF
getValue=rs("name")
msgbox getvalue
rs.MoveNext
Loop