VBScript连接DB2 和 Orcle数据库连接串

VBScript脚本连接DB2数据库连接串：
'定义连接串
Dim strCon: strCon = "Provider=IBMDADB2.DB2COPY1;Database=HISDB;"& _
                     "Hostname=数据库服务器IP地址;Protocol=TCPIP;"& _
                     "Port=端口号;Uid=数据库实例名;Pwd=密码;"
'创ADO建连接对象                  
Dim oConn: Set Conn = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set Rs = WScript.CreateObject("ADODB.Recordset")
oConn.Open strCon

Set Rs = oConn.Execute("SQL语句")

While Not oRs.EOF
 '循环读取记录集中的记录
 .....
 oRs.MoveNext
Wend
'操作数据库结束要关闭连接释放内存
oConn.Close
Set Rs = Nothing
Set Conn = Nothing

VBScript脚本连接Orcle数据库连接串：
'定义连接串
Dim strCon: strCon = "Driver={Microsoft ODBC for Oracle}; " & _
                     "CONNECTSTRING=(DESCRIPTION=" & _
                     "(ADDRESS=(PROTOCOL=TCP)" & _
                     "(HOST=服务器IP地址)(PORT=端口号))" & _
                    "(CONNECT_DATA=(SID=SID串))); uid=数据库用户名;pwd=密码;"
'创ADO建连接对象  
Dim oCon: Set Conn = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set Rs = WScript.CreateObject("ADODB.Recordset")
oCon.Open strCon '连接数据库操作

Set Rs = oConn.Execute("SQL语句")

While Not oRs.EOF
 '循环读取记录集中的记录
 .....
 oRs.MoveNext
Wend
'操作数据库结束要关闭连接释放内存
oConn.Close
Set Rs = Nothing
Set Conn = Nothing