Access + ORACLE - |
Dim strCon strCon = "Driver={Microsoft ODBC for Oracle}; Server=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=***)(PORT=1521))(CONNECT_DATA=(SID=***))); Uid=***;Pwd=***;" Dim oCon: Set oCon = CreateObject("ADODB.Connection") Dim oRs: Set oRs = CreateObject("ADODB.Recordset") oCon.Open strCon strSQL = "SELECT WCEL1_O.CO_GID , WCEL1_O.CO_DN , WCEL1_O.CO_STATE " strSQL = strSQL & " FROM " strSQL = strSQL & " CTP_COMMON_OBJECTS WCEL1_O " strSQL = strSQL & " WHERE WCEL1_O.CO_OC_ID = 1963 " strSQL = strSQL & " AND WCEL1_O.CO_DN LIKE 'PLMN-PLMN/RNC-961/WBTS-56/W%' ESCAPE '' " Debug.Print strSQL Set oRs = oCon.Execute("strSQL") ' While Not oRs.EOF Debug.Print oRs.Fields("CO_DN").Value oRs.MoveNext Wend oCon.Close Set oRs = Nothing Set oCon = Nothing
http://www.sql.ru/forum/1297462/access-oracle-ne-otrabatyvaetsya-zapros