Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программное выполнение Select запроса с параметрами / 16 сообщений из 16, страница 1 из 1
28.10.2003, 11:20
    #32307134
GuDVin
GuDVin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Как сделать?

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

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

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

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

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

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

Код: 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, 12:16
    #32307241
Alexus12
Alexus12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Вариация на тему:

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

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

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

ВЕЗДЕ работает - и в сохраненных запросах, и при вызове и вб,
и с перекрестным ине глючит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 13:28
    #32307368
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Такой кусок кода
Код: 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, 14:28
    #32307508
GuDVin
GuDVin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Что то я туплю. У меня нет ничего похожего на картинки (Ax2000). Похоже это тока в экселе. Хотя этот кусок с Execute(вместо openrecordset) для запроса на insert работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 14:32
    #32307518
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
У меня нет ничего похожего на картинки (Ax2000).
Ищи и найдешь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 14:40
    #32307541
GuDVin
GuDVin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Нельзя ли поподробнее: где именно в меню сервис у меня нет пункта ссылки. Или это надо сделать в Excel? Тогда при чем тут Aкс?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 14:44
    #32307550
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
сервис - ссылки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 15:01
    #32307593
GuDVin
GuDVin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Уф догнал... Оказывается это ВБА едитор был... Нет чтобы сразу сказать... А то у меня мозга за мозгу заплетается...
Спасибо.

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

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

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

Dim rs As DAO.Recordset
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2003, 16:02
    #32307726
GuDVin
GuDVin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программное выполнение Select запроса с параметрами
Супер!!! Спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программное выполнение Select запроса с параметрами / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 394ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1678612]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 62ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 2ms
others: 214ms
total:  394ms
x
x
Закрыть


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