Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Старые песни о главном (Reference) / 6 сообщений из 6, страница 1 из 1
26.11.2004, 19:45:15
    #32802225
Ukraina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Старые песни о главном (Reference)
Господа!!!
Возможно ли программно подключить ссылки (путь) на библиотеки?
Ну типа, я копирую все используемые библиотеки в нужный каталог, устанавливаю этот каталог по определенному пути и программно прописываю его...



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

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

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

Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
26.11.2004, 21:17:12
    #32802286
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Старые песни о главном (Reference)
Позднее связывание - исплользовать, например, GetObject
Пример позднего связывания можете посмотреть http://am.rusimport.ru/MsAccess/topic.aspx?ID=239
Там при запуске программы проверяется наличие необходимой библиотеки, при ее отсутствии библиотека вытаскивается из поля таблицы, сохраняется на диске и регистрируется.
...
Рейтинг: 0 / 0
26.11.2004, 22:56:20
    #32802324
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Старые песни о главном (Reference)
Я благополучно наступил на эти грабли. При переносе из одной версии оффиса в другую у меня при запуске автоматически переликовываются таблицы из отдельного файла и ссылки на библиотеки. Где-то 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:59:11
    #32802325
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Старые песни о главном (Reference)
Да, чуть не забыл: при выгрузке ОБЯЗАТЕЛЬНО отцепите благополучно установленные ссылки. Сломаные у меня програмно так и не удалились, а правильная на место не становится, пока плохая есть. Только руками в окне VBA.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Старые песни о главном (Reference) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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