ШыфлБиблиотека ОО4О отдельно не поставляется, а всё вместе весит 170 метров 8)
Причём чувствую, что это нескольто сложнее, чем обычный АDO.
Я не совсем понял способ настройки соединения, можно по-подробнее.
Если честно, то я эту библиотеку и не ставил никогда. Ставлю клиента Ораклового и все, больше ничего не надо. А как без клиента работать с сервером я, если честно, представить и не могу. Т.е. скорее всего у тебя уже стоит клиент на машине.
Сам механизм соединения я тоже не смогу описать подробно. В tnsnames.ora в приниципе видно, что для соединения нужно лишь знать IP сервера и порт. Если клиент стучится туда, то его просят авторизоваться, а тут уже используется твой логин и пароль. В VBA это делает строки:
1.
2.
3.
4.
5.
6.
'Создается сессия
Set objSession = CreateObject("OracleInProcServer.XOraSession")
'Происходит соединение
Set objDataBase = objSession.OpenDatabase( "MyOraDB","scott/tiger", 0 &)
Здесь MyOraDB - это имя БД из tnsnames.ora, а scott/tiger - Юзер и Пароль соответственно.
Все, ты залогинен. Теперь можешь писать SQL запросы так:
1.
2.
'Создаешь объект, куда будет помещен результат выполнения запроса. Эдакая виртуальная таблица. strSQL - это текст запроса
Set OraDynaSet = objDataBase.DBCreateDynaset(strSQL, 0 &)
В принципе как ходить по записям там тоже описано:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
strSQL = "select ename, empno from emp"
Set OraDynaSet = objDataBase.DBCreateDynaset(strSQL, 0 &)
If OraDynaSet.RecordCount > 0 then
OraDynaSet.MoveFirst
For i = 1 to OraDynaSet.RecordCount
ActiveSheet.Cells(i, 1 ) = OraDynaSet.Fields( 0 ).Value
ActiveSheet.Cells(i, 2 ) = OraDynaSet.Fields( 1 ).Value
OraDynaSet.MoveNext
Next i
End If
Вот и все. Не знаю проще ли это чем ADO или сложнее, я ADO не пользовался. В принципе, если есть соединение и возможность писать запросы, то больше ничего и не надо.
