(转)SQLSERVER和ORACLE数据库连接代码

1、Oracle数据库

要求在客户端机器上安装了oracle客户端并已配置完成

代码：

Set Conn = CreateObject("ADODB.CONNECTION")
StrCon = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;" &_
  "User ID=xxx;Password=xxx;Data Source=xxxx;"
Conn.Open StrCon

SqlStr = "select number from table"
Set Res = CreateObject("ADODB.RecordSet")
Res.Open SqlStr,Conn,1,1

2、sqlserver数据库

  Dim rs,conn,sqlstr,strcon

  strcon = "Provider=SQLOLEDB.1;User ID=sa;Password=xxxx;"&_
"Data source=10.10.7.11;DATABASE=qcsiteadmin_db"

  Set conn = createobject("adodb.connection")
  conn.open strconn

  sqlstr="select * from td.SESSIONS_HISTORY where USER_NAME = '"_
     &LOGINUSER&"'"

  Set rs=createobject("adodb.recordset")
   rs.open sqlstr,conn,1,1