powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнить запрос
10 сообщений из 10, страница 1 из 1
Выполнить запрос
    #33905192
GansM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть БД Access. В ней находятся 3 модуля: GetDate1, Module1 и Module2, а также запрос "Запрос2" на создание таблицы,использующий функции из модулей.
В модуле GetDate1 функция GetDate
В модуле Module1 функция iGetCode
В модуле Module2 функция perekodir

Помогите из программы на VB(не из Access) выполнить SQL запрос, такойже как
"Запрос2" или хотябы выполнить сам "Запрос2".
Спасибо!
GanSS
...
Рейтинг: 0 / 0
Выполнить запрос
    #33905421
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еще раз повторюсь, что Jet не поддерживает использование пользовательских, аксексных и некоторых VBAшных функций.

Могу посоветовать создавать объект Access и уже с помощью его объектной модели запускать запрос или перенеси логику, заложенную в твоих функциях, в VB приложение.
...
Рейтинг: 0 / 0
Выполнить запрос
    #33905501
GansM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AshtonЕще раз повторюсь, что Jet не поддерживает использование пользовательских, аксексных и некоторых VBAшных функций.

Могу посоветовать создавать объект Access и уже с помощью его объектной модели запускать запрос или перенеси логику, заложенную в твоих функциях, в VB приложение.
у меня создан объект Access
я не знаю как это сделать с его помощью
...
Рейтинг: 0 / 0
Выполнить запрос
    #33905521
GansM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тут такая фишка:
если запрос выполнять из-под Access, то все хорошо - создаётся таблица.
если его выполнять из программы, то он не выполняется, т.к. не находит моих функций(находятся в модулях)
GanSS
...
Рейтинг: 0 / 0
Выполнить запрос
    #33905580
blinow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну дык тебе и говорят Access это другая прога, и ты хочеш с помощью своей проги через ту прогу выполнить , что-то. Перепиши свои функици в VB. А то едешь в Москву из СпБ через Гонконг
...
Рейтинг: 0 / 0
Выполнить запрос
    #33905721
GansM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
blinowНу дык тебе и говорят Access это другая прога, и ты хочеш с помощью своей проги через ту прогу выполнить , что-то. Перепиши свои функици в VB. А то едешь в Москву из СпБ через Гонконг

Если в VB перепишу.Тогда запрос не смогу выполнить такой какой нужно.
...
Рейтинг: 0 / 0
Выполнить запрос
    #33906272
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если вы хотите из VB выполнить запрос, находящийся в Access и использующий функции, находящиеся в модуле Access, то надо выполнять запрос через Access.Application.
...
Рейтинг: 0 / 0
Выполнить запрос
    #33906337
blinow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Т.е. ты через VB "грубо говоря" запускуаешь Access и он выполняет все действия.
...
Рейтинг: 0 / 0
Выполнить запрос
    #33906517
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
blinowТ.е. ты через VB "грубо говоря" запускуаешь Access и он выполняет все действия.
Естественно не сам выполняет, а VB программа "руководит" действиями Access.
...
Рейтинг: 0 / 0
Выполнить запрос
    #33906532
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GansM...у меня создан объект Access
я не знаю как это сделать с его помощью

Код: plaintext
1.
2.
3.
4.
    Dim objAccess As Object
    Set objAccess = GetObject("C:\Test.mdb")
    objAccess.DoCmd.OpenQuery "qryTest"
    objAccess.quit
    Set objAccess = Nothing
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнить запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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