इसे आज़माएं, इसे प्रत्येक फ़ील्ड को रिकॉर्डसेट में इनपुट स्ट्रिंग में जोड़ना चाहिए। यदि आप प्रत्येक रिकॉर्ड से केवल एक विशिष्ट मान चाहते हैं तो आप ऐसा कर सकते हैं
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