Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалённое удаление объектов / 17 сообщений из 17, страница 1 из 1
02.11.2004, 18:42:39
    #32765539
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Подскажите пожалуйста, как программно из одной базы удалить объекты (формы и запросы) из другой базы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2004, 18:53:51
    #32765555
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
dim db as database
set db = dbengine(0).opendatabase...

А дальше как с currentdb.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2004, 19:54:34
    #32765617
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Владимир Санычdim db as database
set db = dbengine(0).opendatabase...

А дальше как с currentdb.

А получится?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 01:08:07
    #32765790
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
С запросом получилось. С формой пока нет. :^)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 02:19:46
    #32765802
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Боюсь, с формами через задницу
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim App As Access.Application
Set App = CreateObject("Access.Application.10")
With App
.OpenCurrentDatabase "c:\db4.mdb"
.DoCmd.DeleteObject acForm, "myform"
.Quit
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 02:29:31
    #32765803
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Ежели других путей нет, то, конечно, также удалять и запросы.
2 scoritt
.10 - у меня на машине зверинец access'ов, указал явно XP
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 09:32:28
    #32765945
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Alexander GЕжели других путей нет, то, конечно, также удалять и запросы.
2 scoritt
.10 - у меня на машине зверинец access'ов, указал явно XP

Разве операция opencurrentdatabase не закрывает текущую базу? удаление должно проходить незаметно для пользователя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 09:35:57
    #32765951
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
А с чего будет закрывать? Мы же создаем независимый новый объект Access.Application и работаем с ним. У меня не закрыл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 10:10:51
    #32766027
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Да, не закрывает. Процедура выполняется. Но ничего не происходит. Объект как был в удалённой базе так и остался.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 10:28:57
    #32766074
Gens
Gens
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
В каждой базе есть скрытые таблицы в которых данные вручную не редактируются, но зато прекрасно удаляются вручную. Кстати там прописаны все формы, запросы, настройки и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 10:52:14
    #32766152
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
scorittДа, не закрывает. Процедура выполняется. Но ничего не происходит. Объект как был в удалённой базе так и остался.

Значит вы что-то неправильно сделали, данный код должен работать.
Можно так
Dim App As Access.Application
Set App = GetObject("C:\Library.mdb")
With App
.DoCmd.DeleteObject acForm, "ИмяФормы"
.Quit
End With
только путь подставьте и имя формы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 10:57:24
    #32766163
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
To Alexander G: На самом деле, OpenCurrentDatbase запускает ещё один процесс Access в новом окне. Но это не страшно. У меня почему то не доступны объекты этой новой базы.

Код: plaintext
MsgBox app.Forms.count

Эта строка выдаёт 0. Хотя формы в базе есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 11:12:34
    #32766200
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
scoritt
Код: plaintext
MsgBox app.Forms.count
Эта строка выдаёт 0. Хотя формы в базе есть.
Forms - это коллекция открытых форм!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 11:32:25
    #32766270
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
А могу я через Application получить доступ к коллекциям (или спискам) имеющихся в базе форм и запрсов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 11:59:20
    #32766358
Alexander G
Alexander G
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Да.
F1
Примечание. Для того чтобы составить перечень всех форм базы данных, как открытых, так и закрытых, следует выполнить перебор компонентов семейства Documents объекта Container типа Forms. При этом свойство Name каждого конкретного объекта Document возвращает имя формы.

а запросов - перебрать семейство QueryDefs объекта database
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 12:51:00
    #32766493
scoritt
scoritt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
Alexander GДа.
F1
Примечание. Для того чтобы составить перечень всех форм базы данных, как открытых, так и закрытых, следует выполнить перебор компонентов семейства Documents объекта Container типа Forms. При этом свойство Name каждого конкретного объекта Document возвращает имя формы.

а запросов - перебрать семейство QueryDefs объекта database

А в семействе queryDefs есть служебные запросы системы? Могу я просто перебрать все элементы и удалить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2004, 13:12:55
    #32766573
Serge Gavrilov
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалённое удаление объектов
scoritt
А в семействе queryDefs есть служебные запросы системы? Могу я просто перебрать все элементы и удалить?

Не то что бы служебные, но в queryDefs входят SQL инструкции RecordSource форм и запросов и RowSource списков и полей со списками
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалённое удаление объектов / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 293ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1670588]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 191ms
total:  293ms
x
x
Закрыть


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