8.х Связь 1С с Access

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Ole-ga, 27 дек 2007.

Статус темы:
Закрыта.
  1. TopicStarter Overlay
    Ole-ga
    Offline

    Ole-ga Опытный в 1С

    Регистрация:
    7 дек 2007
    Сообщения:
    61
    Симпатии:
    0
    Баллы:
    26
    Здравствуйте люди добрые!

    Дело в том, что я не знаю как получить данные из Access.
    Может кто поможет с алгоритмом.
    желательно на реальном примере.
    (Файлик прилагаю.)

    Вложения:

    • db1.rar
      Размер файла:
      6,9 КБ
      Просмотров:
      124
  2. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Примеры, правда, для 77, но мало чем отличается от 8.х
    Тут и тут

    ЗЫ. СоздатьОбъект будет равен Новый COMОбъект
  3. AlexFF
    Offline

    AlexFF Разбирающийся

    Регистрация:
    6 мар 2007
    Сообщения:
    565
    Симпатии:
    1
    Баллы:
    26
    Вот по 8 конкретно под твой файлик
    (и судя по коду это было как раз слеплено из примеров указанных выше)

    Код:
    Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Если ЭлементыФормы.ПутьКФайлу.Значение = ""  Тогда
    Предупреждение("Не выбрана база данных");
    Возврат;    
    КонецЕсли; 
    
    MBD = Новый COMОбъект("ADODB.CONNECTION");
    
    Попытка
    MBD.Open("Driver={Microsoft Access Driver (*.mdb)};Dbq="+ЭлементыФормы.ПутьКФайлу.Значение+";Uid=Admin;Pwd=");
    Исключение
    Сообщить(ОписаниеОшибки());
    Возврат;
    КонецПопытки;
    
    ТекстСелект = "SELECT * FROM NOMEN";
    НаборЗаписей = Новый COMОбъект("ADODB.RecordSet");
    
    Попытка
    НаборЗаписей=MBD.Execute(ТекстСелект);
    Исключение
    Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    Попытка
    НаборЗаписей.MoveFirst();
    Исключение //табилца пустая
    Сообщить(ОписаниеОшибки());
    НаборЗаписей.Close();
    Возврат;
    КонецПопытки;
    
    Пока НаборЗаписей.EOF()=0 Цикл
    ID = Строка(НаборЗаписей.Fields("ID").Value);
    NT = Строка(НаборЗаписей.Fields("NT").Value);
    NM = Строка(НаборЗаписей.Fields("NM").Value);
    MSR = Строка(НаборЗаписей.Fields("MSR").Value);
    CLASS = Строка(НаборЗаписей.Fields("CLASS").Value);
    Сообщить(ID+" "+NT+" "+NM+" "+MSR+" "+CLASS);
    НаборЗаписей.MoveNext();
    КонецЦикла;
    НаборЗаписей.Close();
    
  4. TopicStarter Overlay
    Ole-ga
    Offline

    Ole-ga Опытный в 1С

    Регистрация:
    7 дек 2007
    Сообщения:
    61
    Симпатии:
    0
    Баллы:
    26
    Вот это другое дело! :unsure:
    Молодец AlexFF!
    Ставлю пять!

    Всем большое спасибо за внимание!
Похожие темы
  1. rvaldis
    Ответов:
    11
    Просмотров:
    4.932
  2. Kruck
    Ответов:
    5
    Просмотров:
    1.434
  3. fokin
    Ответов:
    1
    Просмотров:
    1.707
  4. vizuvi
    Ответов:
    6
    Просмотров:
    2.161
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей