Come eseguire un'istruzione SQL Oracle con VBScript

Prova questo dovrebbe aggiungere ogni campo nel recordset alla stringa di input. Se vuoi solo un valore specifico da ogni record, puoi farlo

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

Invece di scorrere ogni campo.

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