| Вопрос: Автоматизация | Добавлено: 23.01.05 18:33 |
Автор вопроса:  NovichoK
|
|
Из прочитанного мною хелпа я понял, что создать а потом открыть acessовское приложения возможно с помощью автоматизации. Подскажите как это сделать? хелпа может какоей есть по этопу топику?
из прочитанного я понял что текст программы должен выглядеть приблизительно так: Dim Access1 As Object Set Access1 = CreateObject("Access.Application") 'здесь мне надо открыть таблицу, как это сделать? Access1.Visible = True Может я вообще ошибаюсь, и это совершенно по другому делается? Как мне потом перехватить закрытие созданого документа? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #1 | Добавлено: 23.01.05 19:33 |
|
Код, что ты написал - это как бы "инициализация" Access'а. А чтобы открыть табличку сделай так:
Сначала через References подключи MS Access, объяви переменную As Access.Application; набери имя объявленной переменной, потом точку. В списке методов посмотри, что есть, и поищи что-нибудь вроде "Open". |
||
|
Номер ответа: 2 Автор ответа: Alex(S) Вопросов: 8 Ответов: 31 |
Web-сайт: Профиль | | #2 | Добавлено: 23.01.05 20:30 |
| Чего-то я не совсем понял, что требуется. Открытие просто access`а как приложения или открытие базы данных на чтение и запись. | ||
|
Номер ответа: 3 Автор ответа: NovichoKВопросов: 72 Ответов: 147 |
Профиль | | #3 | Добавлено: 23.01.05 21:04 |
| Вообще по сути дела мне нужно открыть определенную базу данных, а в ней определенную табличку - далее там юзер чего то сделал и когда он ее закроет (БД), мне надо открыть следующую. | ||
|
Номер ответа: 4 Автор ответа: Alex(S)Вопросов: 8 Ответов: 31 |
Web-сайт: Профиль | | #4 | Добавлено: 23.01.05 21:38 |
| Для открытия и закрытия бд не обязательно загружать access, достаточно воспользоваться библиотекой ADO или DAO. В них есть все необходимое для открытия и доступа к данным. | ||
|
Номер ответа: 5 Автор ответа: NovichoKВопросов: 72 Ответов: 147 |
Профиль | | #5 | Добавлено: 24.01.05 00:13 |
Нет ты не понял я и так пользуюсь этими библиотеками в другом месте программы. Здесь мне надо именно открыть приложение Access, что бы предоставить пользователю самому вносить поправления в БД.
|
||
|
Номер ответа: 6 Автор ответа: Alex(S)Вопросов: 8 Ответов: 31 |
Web-сайт: Профиль | | #6 | Добавлено: 24.01.05 00:31 |
| Так можно организовать редактирование данных через само приложение используя эти библиотеки, зачем запускать access. | ||
|
Номер ответа: 7 Автор ответа: NovichoKВопросов: 72 Ответов: 147 |
Профиль | | #7 | Добавлено: 24.01.05 01:32 |
|
конечно можно.. но запустить аксес - не мое желание, мне сказали делай - я делаю. Но лично я бы делал его через ДАО
|
||
|
Номер ответа: 8 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #8 | Добавлено: 24.01.05 08:45 |
| 100% похожий пример публиковал, только для Word. Поищи на форуме. | ||
|
Номер ответа: 9 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #9 | Добавлено: 24.01.05 14:04 |
|
Sub ShowAccess()
Dim ac As New Access.Application ac.Visible = True Call ac.OpenCurrentDatabase("  :\Home\VBA\Technologia.Brickton\Technologia.Brickton.mdb", True)
MsgBox "Access XP" ac.Quit Set ac = Nothing End Sub Проимерно так... у меня работает (проверил) |
||
Страница: 1 |