Cách thực thi câu lệnh SQL Oracle với VBScript

Hãy thử điều này, nó sẽ thêm từng trường trong tập bản ghi vào chuỗi đầu vào. Nếu bạn chỉ muốn một giá trị cụ thể từ mỗi bản ghi, bạn có thể thực hiện việc này

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

Thay vì lặp lại từng trường.

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