Prøv dette, det skal tilføje hvert felt i postsættet til inputstrengen. Hvis du kun ønsker en bestemt værdi fra hver post, kan du gøre dette
input = input & rs.Fields.Item("FIeld_Name")
I stedet for at gå gennem hvert felt.
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