ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программное выполнение Select запроса с параметрами
16 сообщений из 16, страница 1 из 1
Программное выполнение Select запроса с параметрами
    #32307134
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Как сделать?

Пробовал с CurrentDB.QueryDefs, но Execute не позволяет выполнять select запросы (надо присвоить результат RecordSet'у)
Пробовал с Command.CreateParameter, но он почему то не создается...

Видимо я что-то не так делаю, но под руко не т нормального хелпа... Помогите плз...
...
Рейтинг: 0 / 0
28.10.2003, 11:20
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307144
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
А что значит программно выполнить Select?

инсерт \ апдейт и прочие управляющие выполняются через
currentdb.execute (DAO)

или через создание ADODB.Connection
и опять же Это самое Соединение.Execute

А селект можно только открыть как рекордсет, чтобы программно в нем ковыряься.

В ДАО и АДО это происходит по разному,
поиском по форуму "открыть рекордсет" найдешь все варианты
...
Рейтинг: 0 / 0
28.10.2003, 11:24
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307148
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kelme
Участник
Типа этого:

Код: plaintext
1.
2.
3.
4.
5.
6.
 dim qd as QueryDef
 dim rst as Recordset
     Set qd = currentdb.Querydefs( "Имя запроса" )
     qd![имя параметра] = значение
     qd![имя параметра2] = значение
     set rst = qd.OpenRecordset
...
Рейтинг: 0 / 0
28.10.2003, 11:26
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307241
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Вариация на тему:

параметры в запрос возвращать своими функциями
прописанными в модулях

Public function Param1()
Param1=forms!имяформы!имяполя
end funсtion

Тогда никаких проблем - вба съедате параметрический запрос наура
...
Рейтинг: 0 / 0
28.10.2003, 12:16
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307342
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
2 Alexus12
Программно выполнить селект - это выполнить созданные параметризованный запрос, предварительно задав параметры...

А Ado recordSet не позволяет задавать параметры при открытии.

Про форму: как вариант можно... но не совсем удобно. Все равно спасибо.

2 Kelme

Код: plaintext
1.
2.
3.
4.
5.
    Dim qd As QueryDef
    Set qd = CurrentDb.QueryDefs( "System_Cross_ValidityReport" )
    qd![Start:] = BegDate
    qd![End:] = EndDate
    Set RS = qd.OpenRecordSet

-> User Defined Type is not defined (о QueryDef)

Код: plaintext
1.
2.
3.
    CurrentDb.QueryDefs( "System_Cross_ValidityReport" )![Start:] = BegDate
    CurrentDb.QueryDefs( "System_Cross_ValidityReport" )![End:] = EndDate
    Set RS = CurrentDb.QueryDefs( "System_Cross_ValidityReport" ).OpenRecordSet 'Cmd.Execute '

->слишком мало параметров (требуется 2). Причем именно по-русски
Почему так?
...
Рейтинг: 0 / 0
28.10.2003, 13:14
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307364
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
функцией ты можешь взять параметры откуда угодно -
руками напиши, что хочешь получить из inputbox() ,
из глобальной переменной
или еще откуда (имхо из формы - самое удобное)
- и НИКАКИХ мучений!..

ВЕЗДЕ работает - и в сохраненных запросах, и при вызове и вб,
и с перекрестным ине глючит.
...
Рейтинг: 0 / 0
28.10.2003, 13:24
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307368
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Такой кусок кода
Код: plaintext
1.
2.
    CurrentDb.QueryDefs( "System_Cross_ValidityReport" )![Start:] = BegDate
    CurrentDb.QueryDefs( "System_Cross_ValidityReport" )![End:] = EndDate
    Set RS = CurrentDb.QueryDefs( "System_Cross_ValidityReport" ).OpenRecordSet 'Cmd.Execute '

Не будет работать НИКОГДА

-> User Defined Type is not defined (о QueryDef)
в картинках
...
Рейтинг: 0 / 0
28.10.2003, 13:28
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307508
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Что то я туплю. У меня нет ничего похожего на картинки (Ax2000). Похоже это тока в экселе. Хотя этот кусок с Execute(вместо openrecordset) для запроса на insert работает.
...
Рейтинг: 0 / 0
28.10.2003, 14:28
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307518
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
У меня нет ничего похожего на картинки (Ax2000).
Ищи и найдешь
...
Рейтинг: 0 / 0
28.10.2003, 14:32
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307541
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Нельзя ли поподробнее: где именно в меню сервис у меня нет пункта ссылки. Или это надо сделать в Excel? Тогда при чем тут Aкс?
...
Рейтинг: 0 / 0
28.10.2003, 14:40
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307550
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
сервис - ссылки
...
Рейтинг: 0 / 0
28.10.2003, 14:44
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307593
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Уф догнал... Оказывается это ВБА едитор был... Нет чтобы сразу сказать... А то у меня мозга за мозгу заплетается...
Спасибо.

Если админ уже на работе, значит админ еще на работе!!!
...
Рейтинг: 0 / 0
28.10.2003, 15:01
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307596
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Гудвин писал:Нет чтобы сразу сказать...
Откуда я знаю что там нарисовано было?
У меня в браузере картинки отключены.
...
Рейтинг: 0 / 0
28.10.2003, 15:02
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307650
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Да ладно тебе...

После подключения выдает type mismatch при Set rs = qd.OpenRecordSet;

При использовании метода Alexis'а все равно выдает, что нужны параметры, хотя при ручном запуске макроса все нормально работает...
...
Рейтинг: 0 / 0
28.10.2003, 15:31
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307661
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> выдает type mismatch при Set rs = qd.OpenRecordSet

Dim rs As DAO.Recordset
...
Рейтинг: 0 / 0
28.10.2003, 15:34
| Ответить | Цитировать | Написать  
Программное выполнение Select запроса с параметрами
    #32307726
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Супер!!! Спасибо...
...
Рейтинг: 0 / 0
28.10.2003, 16:02
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программное выполнение Select запроса с параметрами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32307364&tid=1678612]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 2ms
others: 238ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


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