Макрос Excel для подключения к базе данных Oracle

Question

У меня есть ниже макрос Excel для подключения к базе данных оракула. Но, выполняя код, я получаю сообщение об ошибке -

"Ошибка времени выполнения -2147467259 (80004005)": ORA-12541:TNS: нет прослушивателя "

Пожалуйста, помогите мне разрешить это сообщение об ошибке.

На моем компьютере установлена ​​программа Oracle SQL Developer 3.2.

Sub connectToCISDB()

Dim dbCon As New ADODB.Connection
Dim recordSet As New ADODB.recordSet
Dim strQuery, strCon As String

strQuery = "select * from SAPSR3.eanlh;"

Set dbCon = New ADODB.Connection      
dbCon.Open "Provider=OraOLEDB.Oracle;User ID=xautotext;Password=F7_kxxxxZS;Data Source=ouxxpdxx1"

End Sub

Answer 1

Использование правильной строки подключения решило проблему.

Строка подключения: драйвер ={Microsoft ODBC для Oracle}; Сервер = (ОПИСАНИЕ = (АДРЕС = (ПРОТОКОЛ =TCP)(HOST=199.199.199.199)(PORT= тысяча пятьсот двадцать три))(CONNECT_DATA=(SID= DBNAME))); Uid= MyUserName; PWD = MyPassword;

Не требуется ни TSN, ни DSN.