使用adodb方式连接oracle数据库

我们自动化脚本很多时候需要链接数据库进行数据验证或者数据准备，一般是用ADODB.Connection对象的open方法获取数据库链接，open方法的链接字串可以有很多种的形式，如：使用odbc、OraOLEDB.OracleOracle，但我们需要只需读取某个配置文件中的host、port、sid、userid、password就可以获得adobd的数据库链接，而不想在运行脚本的每台机器单独配置odbc或者oracle的tnsnames.ora，我们可以用OraOLEDB.Oracle 的Oracle字串获取链接adodb的数据库链接

strHost=ip地址

strPort=端口号

strSID=数据库名

strUser=用户名

strPassword=密码

strConnectionString = "Provider=OraOLEDB.Oracle;Persist Security Info=True;"&_
        "Data Source=(DEscriptION =(ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST ="+strHost+")(PORT = "+strPort+")))"&_
        "(CONNECT_DATA =(SID = "+strSID+")));User ID="+strUser+";Password="+strPassword+";"

Set oConnection= createobject("ADODB.Connection")

oConnection.ConnectionString = strConnectionString
On error Resume Next
oConnection.open
If err.Number <> 0 Then
msgbox "数据库连接失败"
End