WSHでADO接続

WSH

WSHでADOに接続するサンプル。(下のものはOracleに接続したときのもの)
中身はVBで作ったのとほぼ同じと考えてよい。



adoSample.vbs

'------------------------------------------------
'
'	ADOサンプル
'
'------------------------------------------------


'定数の定義
Const adOpenStatic = 3 
Const adLockOptimistic = 3 
Const adUseClient = 3 


Set objConn = CreateObject("ADODB.Connection") 
Set objRec = CreateObject("ADODB.Recordset") 

'DB接続情報の記述
objConn.Open "Provider=MSDAORA.1;Password=****;User ID=****;Data Source=****;Persist Security Info=True" 
objRec.CursorLocation = adUseClient 


'RecordSetのOpen
objRec.Open "SELECT * FROM USER_OBJECTS" , objConn, adOpenStatic, adLockOptimistic 


'データがあれば１件目の内容を出力
If objRec.EOF Then 
    Wscript.Echo "Date Not Found "
Else 
    Wscript.Echo objRec.Fields(0).value 
End If 

objRec.Close 
objConn.Close