Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница:

 

  Вопрос: помогите разобратся со следующим кодом Добавлено: 14.10.10 12:06  

Автор вопроса:  MiD
'Присоединение к БД, создание головного объекта API и объектов связи с системой
Private Sub OpenDB()

On Error Resume Next
    'Создание объектов связи с ситемой
    Set objEnvir = CreateObjec ("EOSENVIRONMENT.EAPIFactory") - интересуют вот эти строки
    Set objParm = CreateObject("EOSENVIRONMENT.RawData")- интересуют вот эти строки
    Set objNotify = CreateObject("EOSENVIRONMENT.Notifications")- интересуют вот эти строки
    
    Set o_Нead = objEnvir.CreateHead
    
    If Err.Number <> 0 Then
        MsgBox ("Не удалось присоединиться к базе данных")
        
        Set objEnvir = Nothing
        'Сообщаем вызвавшему окну о завершении
        objNotify.Notify "w_wait_oper"
        Set objNotify = Nothing
        
        If objParm.keyexists("@@WordReuse@@") Then
            Set objParm = Nothing
            ActiveDocument.Close False
        Else
            Set objParm = Nothing
            Application.Quit False
        End If
    End If
End Sub

создаём объект а что за объект я не врубаюсь, далее идёт работа макроса именно с этими объектами

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам