So führen Sie eine Oracle SQL-Anweisung mit VBScript aus

Versuchen Sie dies, es sollte jedes Feld im Recordset zur Eingabezeichenfolge hinzufügen. Wenn Sie nur einen bestimmten Wert aus jedem Datensatz haben möchten, können Sie dies tun

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

Anstatt jedes Feld zu durchlaufen.

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