Собственно вот так из 1с  работаю с ораклой
   MySession = CreateObject("OracleInProcServer.XOraSession");
   Base = MySession.OpenDatabase(SID, Login + "/" + Password, 0);
   
   Clients = Base.CreateDynaset("select * from v_ecfil139 n139 WHERE  To_Char(n139.DATE_TRN,'dd.mm.yy') = ('"+ ДатаОтчета +"')",0);
   
   Пока Clients.EOF = 0 Цикл
       ПосЕМИТ   = Clients.Fields("EMITENT_OWNER_TERMINAL").Value;
       ПОСимя    = Clients.Fields("EMITENT_OWNER_TERMINAL").Value;    //потому что его там нету
       КлиентИД  = Clients.Fields("ID_CLIENT").Value;
       ТопливоИД  =Clients.Fields("ID_SERVICES_FOR_WHAT").Value;
       Количество =Clients.Fields("SUM_FOR_WHAT").Value;
       Цена       =Clients.Fields("PRICE_RECALCULATION").Value;  
       Сумма      =Clients.Fields("SUM_THAN_REAL").Value;
       Clients.MoveNext();
   КонецЦикла;

и все бы ничего, но есть СРМ на этом аксессе и надо чтобы от туда вызвать ораклу - как это сделать? Не подскажите?

упс немного не корректно нарисовал:

       ПосЕМИТ   = Clients.Fields("EMITENT_OWNER_TERMINAL").Value;
       ПОСимя    = Clients.Fields("EMITENT_OWNER_TERMINAL").Value;    //потому что его там нету
       КлиентИД  = Clients.Fields("ID_CLIENT").Value;
       ТопливоИД  =Clients.Fields("ID_SERVICES_FOR_WHAT").Value;
       Количество =Clients.Fields("SUM_FOR_WHAT").Value;
       Цена       =Clients.Fields("PRICE_RECALCULATION").Value;  
       Сумма      =Clients.Fields("SUM_THAN_REAL").Value;
       
       ЦенаСтэлла =Clients.Fields("PRICE_TERMINAL").Value;            //***************************ШО
       
       
       
       
       
       ТД.НоваяСтрока();
       
       ТД.Дата  = ДатаОтчета;
       ТД.Склад = ПОСимя;      //**********************************************************
       ТД.СкладЕмит = ПосЕМИТ;
       
       ТД.КодОсн=КлиентИД;     //*** ПРЕОБРАЗОВАТЬ
       ТД.КодТов=ТопливоИД;    //*** ПРЕОБРАЗОВАТЬ
       ТД.Объем=Количество;    //***
       ТД.Сумма=Сумма;         //***  
       
       ТД.Цена = Цена;
   
   
   

       Clients.MoveNext();
   КонецЦикла;

up

переведи код в VBA

я читал так

Connection=Новый COMОбъект("ADODB.Connection");
   Connection.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq=" + мВыбФайл + ";""");
   
   
   Command = Новый COMОбъект("ADODB.Command");
   Command.ActiveConnection = Connection;
   Command.CommandText = "Select * from catalog";
   Command.CommandType = 1;
   RecordSet = Новый COMОбъект("ADODB.RecordSet");
   RecordSet = Command.Execute();

(4) Спасибо , сейчас попробую

Стоп, а где пароли (SID, Login , Password) ???

http://msdn.microsoft.com/ru-ru/library/dw70f090.aspx

(7) Ado.net ему не поможет
(6) Access по умолчанию не требует пароля, но если хочешь запаролить тогда установит его в самой бд ацесса. и в строке подключения добавь
Driver={Microsoft Access Driver (*.mdb)};Dbq=;Uid=Admin;Pwd=;

(8) там вообще примеры. как выставить пароли.

(4) Это как работать в восьмерке с акцессом - я про другое вообщето спрашиваю: как из акцесса работать с ораклой - не из 1с.

забудьте на минуту про 1с - нужны спецы по VB и акцессу.

(11)
зачем тогда в теме указали v7 ? если "не из 1с"

(10) а нет в VBA с этим проблем
ставишь галку в Пеференцах у нужной АктивХ и фигачишь