VBScriptを使用してOracleSQLステートメントを実行する方法

これを試してみると、レコードセットの各フィールドが入力文字列に追加されます。各レコードから特定の値のみが必要な場合は、これを行うことができます

input = input & rs.Fields.Item("FIeld_Name")

各フィールドをループする代わりに。

connectionString = "DRIVER={Microsoft ODBC for Oracle};SERVER=oracle_server;User Id=user;Password=password;"

Set connection = CreateObject("ADODB.Connection")

connection.Open connectionString
Set rs = connection.Execute("select * from dual")

input = ""

Do Until rs.EOF
    for i = 0  To rs.Fields.Count - 1
        input = input & rs.Fields.Item(i) & "|"
    Next
    input = input & VBNewLine
    rs.MoveNext
Loop

MsgBox input

Set connection = Nothing
Set rs = Nothing