番外：VBScript版 Oracle⇒CSV

番外：Java版　Oracle⇒CSVで
やったことを、VBSでやったらどうか・・・
と
いうことで、以下

文字コード等、まだ未考慮の部分は多いですが・・・
取り敢えず、やってみたということでご容赦下さい。

勿論、理解は浅く
ネットで検索して、寄せ集めです。

でも、これだけで、ORACLEテーブルをCSV出力できるのだから大したものです。

**********************************************************************
Dim oPara
Set oPara = WScript.Arguments
If oPara.Count < 1 then<br />　 Wscript.Echo "パラメータが不足しています"
　 Wscript.Quit
End If

Dim cn
Dim fso
Dim rs
Dim csv
Dim sql
Dim i
Dim TextLine

Set cn　= CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
Set rs　= CreateObject("ADODB.Recordset")
Set csv = fso.CreateTextFile(oPara(0) & ".csv", True )

cn.Open(" Driver={Microsoft ODBC for Oracle};CONNECTSTRING=ORCL;UID=TESTUSER;PWD=TESTPWD;")
sql = "SELECT * FROM " & oPara(0) & " ORDER BY 1"

on error resume next
rs.Open sql,cn
if Err.Number <> 0 then
　 cn.Close
　 Wscript.Echo Err.Description
　 Wscript.Quit
end if

on error goto 0

TextLine = ""
For i = 0 to rs.Fields.Count - 1
　 TextLine = TextLine & rs.Fields(i).name & ","
Next
csv.WriteLine(TextLine)

Do While not rs.EOF
　 TextLine = ""
　 For i = 0 to rs.Fields.Count - 1
　　　TextLine = TextLine & rs(i).value & ","
　 Next
　 csv.WriteLine(TextLine)
　 rs.MoveNext
Loop

csv.Close
rs.Close
cn.Close

Set fso = Nothing
Set rs　= Nothing
Set cn　= Nothing

Wscript.Echo oPara(0) & "に出力しました"