Sub testSql()
Dim myConnection, myRecord, x, password
password = InputBox("Passord: ")
Set myConnection = CreateObject("ADODB.Connection")
myConnection.Open "Driver={Microsoft ODBC for Oracle};" & "Server=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS =(PROTOCOL=TCP)(HOST = 10.5.159.184)(PORT = 1541)))(CONNECT_DATA=(SERVICE_NAME=tiaqat)));" & "Uid=ive;" & "Pwd=" & password & ";"
Set myRecord = CreateObject("ADODB.recordset")
Sql = "SELECT * FROM TOP_USER"
myRecord.Open Sql, myConnection
For Each r In myRecord.Fields
x = r.USER_NAME
Next
End Sub
Then I am getting a 438-Object doesn't support this property or method-error. I am able to connect and do all sorts of stuff with the same connect string when I use e.g. PL/SQL-developer...Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.