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

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

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

А получится?
...
Рейтинг: 0 / 0
02.11.2004, 19:54:34
| Ответить | Цитировать | Написать  
Удалённое удаление объектов
    #32765790
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
С запросом получилось. С формой пока нет. :^)
...
Рейтинг: 0 / 0
03.11.2004, 01:08:07
| Ответить | Цитировать | Написать  
Удалённое удаление объектов
    #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:19:46
| Ответить | Цитировать | Написать  
Удалённое удаление объектов
    #32765803
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Ежели других путей нет, то, конечно, также удалять и запросы.
2 scoritt
.10 - у меня на машине зверинец access'ов, указал явно XP
...
Рейтинг: 0 / 0
03.11.2004, 02:29:31
| Ответить | Цитировать | Написать  
Удалённое удаление объектов
    #32765945
scoritt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
scoritt
Участник
Alexander GЕжели других путей нет, то, конечно, также удалять и запросы.
2 scoritt
.10 - у меня на машине зверинец access'ов, указал явно XP

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

Код: plaintext
MsgBox app.Forms.count

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

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

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

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

Не то что бы служебные, но в queryDefs входят SQL инструкции RecordSource форм и запросов и RowSource списков и полей со списками
...
Рейтинг: 0 / 0
03.11.2004, 13:12:55
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удалённое удаление объектов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1670588]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 233ms
total:  378ms
созд. / загр.: 378ms
x
x
Закрыть


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