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



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

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

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

Жизнь не перестает меня удивлять!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2004, 21:17:12
    #32802286
Serge Gavrilov
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):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 389ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670097]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 77ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 249ms
total:  389ms
x
x
Закрыть


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