Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / А как закачать и сохранить програмно сохранённые модули *.cls? / 7 сообщений из 7, страница 1 из 1
07.11.2003, 13:22
    #32317837
DefaultUser
DefaultUser
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
Привет :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2003, 15:15
    #32317889
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
Привет ;)
Если я правильно понял, слово "программно" относится к "закачать и сохранить", то так:

1. Подключить VBIDE (Visual Basic for Applications Extensibility)
2. Выполнить такй код (для каждого файла или в цикле)

Код: plaintext
1.
2.
3.
4.
Dim cmp As VBComponent
Set cmp = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
cmp.Properties( "Name" ) =  "Class1" 
cmp.CodeModule.AddFromFile  "c:\Class1.cls" 
DoCmd.Save acModule, cmp.Name
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2003, 16:29
    #32317927
DefaultUser
DefaultUser
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
Вот это мне и нужно было, спасибо.

Неужели сам Access использует эту ссылку? Да впрочем это и неважно.

И ещё одно неважно: А сохранить? Хотя покопаюсь - найду, только хотелось бы получить готовенькое, т.к. применяю то всего 1 раз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2003, 16:47
    #32317933
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
> А сохранить? Хотя покопаюсь - найду

А разве последней строки ответа AlexJuice недостаточно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.11.2003, 20:53
    #32318000
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
>Неужели сам Access использует эту ссылку? Да впрочем это и неважно.
в общем-то ссылку можно и не устанавливать, но с сылкой удобнее ...
Dim cmp As Object
Set cmp = Application.VBE.ActiveVBProject.VBComponents.Add(2)
cmp.Properties("Name") = "Class1"
cmp.CodeModule.AddFromFile "c:\Class1.cls"
DoCmd.Save acModule, cmp.Name
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2003, 06:38
    #32318490
DefaultUser
DefaultUser
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
Спасибо всем, работает.

А насчет сохранить, то я имел ввиду экспортировать модуль, т.е. 2 вещи: выполнить экспорт и импорт программно. Извините за некорректные вопросы. Вот только покопаться я не смог. Не могу найти ссылку, хотя через Object работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2003, 12:37
    #32318749
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
А как закачать и сохранить програмно сохранённые модули *.cls?
DefaultUser писал:Не могу найти ссылку
Visual Basic for Applications Extensibility, как я и сказал. Только вот M$ везде поперед ссылки свое имя всобачивает ;)
Итого: Microsoft Visual Basic for Applications Extensibility
Можно и без нее, конечно, но с ней много всего интересного узнаешь ;)

А экспортировать тоже просто:
Код: plaintext
1.
2.
Dim cmp As VBComponent
Set cmp = Application.VBE.ActiveVBProject.VBComponents( "MyModule" )
cmp.Export cmp.Name &  ".cls"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / А как закачать и сохранить програмно сохранённые модули *.cls? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 412ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1678363]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 140ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 208ms
total:  412ms
x
x
Закрыть


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