oracle vbscript 访问_VBScript 连接Oracle和SQL Server

VBScript在Windows平台是相当强大的，例如可以连接数据库执行一些操作

连接Oracle

Dim DB

Dim isSQL

Dim userName

Dim userOwner

Set DB = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.RECORDSET")

DB.Open "DRIVER={Oracle in XEClient};UID=hr;PWD=hr;DBQ=192.168.56.23:1521/xe;DBA=W;"

isSQL = "select job_id,job_title,max_salary from JOBS"

Set objRecordSet = DB.Execute(isSQL)

set ws=createobject("wscript.shell")

Do Until objRecordSet.EOF

userName = objRecordSet("job_id")

userOwner = objRecordSet("job_title")

ws.popup userName,1,userOwner

objRecordSet.MoveNext

Loop

连接SQL Server

Dim DB

Dim isSQL

Dim userName

Dim userOwner

Set DB = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.RECORDSET")

DB.Open "Driver=SQL Server;server=192.168.56.102,1433;Database=sde;uid=sa;pwd=test1234;"

isSQL = "select schema_name,schema_owner from INFORMATION_SCHEMA.SCHEMATA"

Set objRecordSet = DB.Execute(isSQL)

set ws=createobject("wscript.shell")

Do Until objRecordSet.EOF

userName = objRecordSet("schema_name")

userOwner = objRecordSet("schema_owner")

ws.popup userName,1,userOwner

objRecordSet.MoveNext

Loop

注意点：连接字符串尽可能不要用ODBC的DataSource，这样会比较蛋疼，因为多了一个用鼠标配置ODBC数据源的步骤。Driver中的驱动名可以有大括号包含，也可以没有大括号包含，至少上面两个例子都是可以运行的