ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить запрос базы Акцесс?
4 сообщений из 4, страница 1 из 1
Как запустить запрос базы Акцесс?
    #33700509
Michael5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Michael5
Гость
Дело в том, что мне нужно запустить файл Акцесс из Экселя, а конкретно - один из запросов в этом файле (назовем запрос "TBL1"). Я пытаюсь делать это таким образом, и сам файл базы данных открывается. А вот как теперь открыть конкретный запрос (или таблицу, форму, отчет и т.д. в этом файле)?
Подскажите пожалуйста!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    
Public Acc As Object

Public Sub qwer()

Set Acc = CreateObject("Access.Application")
Acc.OpenCurrentDatabase "C:\MyDB.mdb"
Acc.Visible = True
End Sub

Пытался открыть такими способами, к сожалению, не очень знаю язык, так что особо ничего не получилось...

Должно быть, наверно, что-то вроде этого:
Код: plaintext
1.
2.
3.
Dim r As Object
Set r = Acc.CurrentDb.OpenRecordset("TBL1")
MsgBox r.RecordCount

Только мне нужно, чтобы этот запрос физически открылся в приложении Акцесс.
...
Рейтинг: 0 / 0
01.05.2006, 20:50
| Ответить | Цитировать | Написать  
Как запустить запрос базы Акцесс?
    #33700735
blinow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blinow
Участник
На вскидку. Макрос на запрос. Запусти Макрос.
...
Рейтинг: 0 / 0
02.05.2006, 05:47
| Ответить | Цитировать | Написать  
Как запустить запрос базы Акцесс?
    #33700812
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Const acViewNormal =  0 
Const acNormal =  0 

Dim accApp As Object

Public Sub OpenForm()
    Set accApp = CreateObject("Access.Application")
    
    With accApp
        .OpenCurrentDatabase ("D:\1\db1.mdb")
        .Visible = True

        ' Открыть запрос.
        .DoCmd.OpenQuery "Query1", acViewNormal

        ' Открыть форму.
        '.DoCmd.OpenForm "Form1", acNormal
    End With
End Sub
...
Рейтинг: 0 / 0
02.05.2006, 08:56
| Ответить | Цитировать | Написать  
Как запустить запрос базы Акцесс?
    #33702758
Michael5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Michael5
Гость
Спасибо большое, работает! Буду знать!
...
Рейтинг: 0 / 0
02.05.2006, 22:12
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить запрос базы Акцесс?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33700735&tid=2165939]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 2ms
others: 222ms
total:  453ms
созд. / загр.: 453ms
x
x
Закрыть


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