Ошибка при подключении
Задача: написать скрипт подключения к бд Oracle без созданиея DSN(т.е. без использования файла файла tnsnames.ora)
Выдает ошибку data source name too long
тнспинг проходит нормально
tnsping DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample))
через sqlplus могу подключиться к бд
sqlplus system/11111@DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample))
если создаю DSN ну и изменяю коннект стринг то все работает...
не пойму что не так делаю?
Код:
Dim oCon: Set oCon = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.ConnectionString = "Driver={Oracle in OraClient11g_home1};Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample)));User Id=system;Password=11111;"
oCon.Open()
oRs=oCon.Execute("select ID, MAX_VALUE "&_
"from EXAMPLE where ID in "&ID_LIST&" order by ID")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.ConnectionString = "Driver={Oracle in OraClient11g_home1};Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample)));User Id=system;Password=11111;"
oCon.Open()
oRs=oCon.Execute("select ID, MAX_VALUE "&_
"from EXAMPLE where ID in "&ID_LIST&" order by ID")
тнспинг проходит нормально
tnsping DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample))
через sqlplus могу подключиться к бд
sqlplus system/11111@DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=10.4.12.91)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=sample))
если создаю DSN ну и изменяю коннект стринг то все работает...
не пойму что не так делаю?