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中的驱动名可以有大括号包含，也可以没有大括号包含，至少上面两个例子都是可以运行的