岁月沧桑，物是人非，岁月赋予了我什么：财富？知识？皱纹？生活态度？
SQLSERVER和ORACLE数据库连接代码
上一篇 /
下一篇 2011-05-30 10:29:22
/ 个人分类：自动化测试
1、Oracle数据库
要求在客户端机器上安装了oracle客户端并已配置完成
代码：
SetConn= 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.OpenSqlStr,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 = '"_
Set rs=createobject("adodb.recordset")
rs.open sqlstr,conn,1,1
收藏
举报
TAG:
