ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Старые песни о главном (Reference)
6 сообщений из 6, страница 1 из 1
Старые песни о главном (Reference)
    #32802225
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Господа!!!
Возможно ли программно подключить ссылки (путь) на библиотеки?
Ну типа, я копирую все используемые библиотеки в нужный каталог, устанавливаю этот каталог по определенному пути и программно прописываю его...



Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
26.11.2004, 19:45:15
| Ответить | Цитировать | Написать  
Старые песни о главном (Reference)
    #32802234
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Можно, если не mde

References.AddFromFile "C:\WINNT\system32\scrrun.dll"

B mde можно применить "позднее связывание"
...
Рейтинг: 0 / 0
26.11.2004, 19:58:39
| Ответить | Цитировать | Написать  
Старые песни о главном (Reference)
    #32802258
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Серж!!!
Спасибо!!!!!!
А что значит "позднее связывание" и с чем его едят???
Если не трудно и не мешают мысли о предстоящих выходных, то можно списать...? А?

Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
26.11.2004, 20:32:20
| Ответить | Цитировать | Написать  
Старые песни о главном (Reference)
    #32802286
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serge Gavrilov
Участник
Позднее связывание - исплользовать, например, GetObject
Пример позднего связывания можете посмотреть http://am.rusimport.ru/MsAccess/topic.aspx?ID=239
Там при запуске программы проверяется наличие необходимой библиотеки, при ее отсутствии библиотека вытаскивается из поля таблицы, сохраняется на диске и регистрируется.
...
Рейтинг: 0 / 0
26.11.2004, 21:17:12
| Ответить | Цитировать | Написать  
Старые песни о главном (Reference)
    #32802324
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Я благополучно наступил на эти грабли. При переносе из одной версии оффиса в другую у меня при запуске автоматически переликовываются таблицы из отдельного файла и ссылки на библиотеки. Где-то ADOX версии 2.8, где-то 2.7 ... 2.5. Но GUID у них одинаковый.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
    Open Application.CurrentProject.Path & "\\" & "Application.Log.Startup" For Output As # 1 
    Print # 1 , "Starting Application", Now
    Print # 1 , ""
    
    Dim ref As Reference
    For Each ref In Application.References
        If Not ref.IsBroken Then
            Print # 1 , ref.Name, ref.Major, ref.Minor, ref.Guid, ref.FullPath
        Else
            Print # 1 , "<Broken reference>", ref.Major, ref.Minor, ref.Guid, ""
        End If
    Next ref
    
    With Application.References

        On Error Resume Next
        'Linking ADODB 
        Print # 1 , "AddFromGuid ""{00000205-0000-0010-8000-00AA006D2EA4}"", 2, 5"
        .AddFromGuid "{00000205-0000-0010-8000-00AA006D2EA4}",  2 ,  5 
        If Err.Number <>  0  Then
            Print # 1 , Err.Number, Err.Description
            Err.Clear
        End If
        
        'Linking ADOX from 2.8 to 2.5 
        Print # 1 , "AddFromGuid ""{00000600-0000-0010-8000-00AA006D2EA4}"", 2, 8"
        .AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}",  2 ,  8 
        If Err.Number =  0  Then GoTo ADD_REFERENCE_OK
        Print # 1 , Err.Number, Err.Description
        Err.Clear
        
        Print # 1 , "AddFromGuid ""{00000600-0000-0010-8000-00AA006D2EA4}"", 2, 7"
        .AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}",  2 ,  7 
        If Err.Number =  0  Then GoTo ADD_REFERENCE_OK
        Print # 1 , Err.Number, Err.Description
        Err.Clear
        
        Print # 1 , "AddFromGuid ""{00000600-0000-0010-8000-00AA006D2EA4}"", 2, 6"
        .AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}",  2 ,  6 
        If Err.Number =  0  Then GoTo ADD_REFERENCE_OK
        Print # 1 , Err.Number, Err.Description
        Err.Clear
        
        Print # 1 , "AddFromGuid ""{00000600-0000-0010-8000-00AA006D2EA4}"", 2, 6"
        .AddFromGuid "{00000600-0000-0010-8000-00AA006D2EA4}",  2 ,  5 
        If Err.Number =  0  Then GoTo ADD_REFERENCE_OK
        Print # 1 , Err.Number, Err.Description
        Err.Clear
        
    End With
    
ADD_REFERENCE_OK:
    Close # 1
...
Рейтинг: 0 / 0
26.11.2004, 22:56:20
| Ответить | Цитировать | Написать  
Старые песни о главном (Reference)
    #32802325
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Да, чуть не забыл: при выгрузке ОБЯЗАТЕЛЬНО отцепите благополучно установленные ссылки. Сломаные у меня програмно так и не удалились, а правильная на место не становится, пока плохая есть. Только руками в окне VBA.
...
Рейтинг: 0 / 0
26.11.2004, 22:59:11
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Старые песни о главном (Reference)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1517&tid=1670097]:
 0ms
get settings:
 6ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 237ms
total:  339ms
созд. / загр.: 339ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]