Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить запрос базы Акцесс? / 4 сообщений из 4, страница 1 из 1
01.05.2006, 20:50
    #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
| Ответить | Цитировать | Написать  
02.05.2006, 05:47
    #33700735
blinow
blinow
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить запрос базы Акцесс?
На вскидку. Макрос на запрос. Запусти Макрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2006, 08:56
    #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, 22:12
    #33702758
Michael5
Michael5
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как запустить запрос базы Акцесс?
Спасибо большое, работает! Буду знать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как запустить запрос базы Акцесс? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 520ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2165939]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 184ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 238ms
total:  520ms
x
x
Закрыть


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