Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выполнение запроса в Access / 18 сообщений из 18, страница 1 из 1
11.06.2003, 11:40
    #32181125
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Собсно вопрос в следующем: как выполнить запрос, передать параметры и пр. из VB - это понятно и работает, а вот как назначить подобное действие кнопке в ACCESS - ХЗ Подскажите плз.
...
Рейтинг: 0 / 0
11.06.2003, 11:49
    #32181141
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
CurrentDB.Execute
DoCmd.RunSQL
...
Рейтинг: 0 / 0
11.06.2003, 11:50
    #32181143
Jem
Jem
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Через ADO
...
Рейтинг: 0 / 0
11.06.2003, 11:54
    #32181152
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
>из VB - это понятно и работает

Так же должно и в акеес. Как в VB делаешь-то?
...
Рейтинг: 0 / 0
11.06.2003, 12:46
    #32181218
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
2 Senin Viktor объекту Command отдаю параметры, после чего - при надобности - в рекордсет перетягиваю результат и наслаждаюсь :)
...
Рейтинг: 0 / 0
11.06.2003, 12:52
    #32181229
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
А в Аксессе вместо Command будет QueryDef.
...
Рейтинг: 0 / 0
11.06.2003, 13:04
    #32181250
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
ага,
Код: plaintext
DoCmd.OpenQuery  "car_in_work" , acViewNormal
ожило :) а вот если создать параметрический запрос и из поля на форме вставить значения введенные пользователем, то это как выглядеть будет?
...
Рейтинг: 0 / 0
11.06.2003, 13:06
    #32181253
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Подключи библиотеку ADO и наслаждайся всем что умеешь.
Если 97-й аксес - лучше на DAO перейти. Тогда как Владимир Саныч прописал - через QueryDef
...
Рейтинг: 0 / 0
11.06.2003, 13:12
    #32181265
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Dim q As QueryDef, rs As RecordSet
Set q = CurrentDB.QueryDefs!car_in_work
q.Parameters(...) = ...
Set rs = q.OpenRecordSet
...
Рейтинг: 0 / 0
11.06.2003, 13:24
    #32181284
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Аксес XP-шный, фича в том, что оно мне в принципе не нужно :) просто в четверг брательнику курсовую сдавать, я ему слабал ее на VB+JET-база, ему препод вернул и сказал: "Все на Аксессе!!!". Теперь страдаю :( . А вот с АДО оно кричит что не может открыть уже используемую базу, да и не дай бог ему обратно это вернут :)
...
Рейтинг: 0 / 0
11.06.2003, 13:27
    #32181287
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
да, а QueryDef оно понимать не хотит :(
...
Рейтинг: 0 / 0
11.06.2003, 13:49
    #32181310
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Блин, мужик, ты определись что использовать будешь - ADO или DAO
З.Ы. "Официант, вы что мне принесли - чай или кофе??" - "А вы что, не можете отличить чай от кофе?" - "Нет не могу" - "Тогда не все ли вам равно?"
...
Рейтинг: 0 / 0
11.06.2003, 13:58
    #32181319
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
пущай ADO будет, как-то привычнее :) Только все равно ни@#$ понять не могу :( По идее достаточно запроса с параметрами, и выполнить его как
Код: plaintext
DoCmd.RunSQL  "SELECT * FROM tbl_service_car" 

а в запросе в инструкции WHERE указать
Код: plaintext
service.status=[Forms]![форма]![контролнаформеСвведеннымвнегопараметром]
, дак не хочет жрать :(
...
Рейтинг: 0 / 0
11.06.2003, 15:19
    #32181423
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Код: plaintext
docmd.openquery  "имя запроса" 


А в запросе уже условие.
...
Рейтинг: 0 / 0
11.06.2003, 15:20
    #32181425
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
Писали же уже так:)
...
Рейтинг: 0 / 0
11.06.2003, 15:57
    #32181485
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
ага, эт я торожу :( сорри, а отдельно как-то объявлять эти параметры в запросе не надо? (ну как в SP в SQL-серв).
...
Рейтинг: 0 / 0
11.06.2003, 16:01
    #32181491
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
> а отдельно как-то объявлять эти параметры в запросе не надо?

Можно в Query -> Parameters. Но обычно можно и без этого - любое слово в квадратных скобках, которое не поле и не таблица, понимается как параметр.
...
Рейтинг: 0 / 0
11.06.2003, 16:13
    #32181515
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса в Access
если ADO

то это объект ado.command


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim CMD As New ADODB.Command
Dim conn As New ADODB.Connection
conn.Open CurrentProject.BaseConnectionString
CMD.ActiveConnection = conn


CMD.CommandText =  " ..... sql text..... " 
CMD.Parameters.Append CMD.CreateParameter( "@sdata" , adInteger, adParamInput)
CMD.Parameters( 0 ) = MYVALUE
CMD.Parameters.Append CMD.CreateParameter( "@recount" , adInteger, adParamInputOutput)
CMD.Parameters( 1 ) =  0 
CMD.Execute
MYRESULT = CMD.Parameters( 1 ) 'возвращаемый параметр
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выполнение запроса в Access / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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