powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос с параметром - помогите рацианолизовать
13 сообщений из 13, страница 1 из 1
Запрос с параметром - помогите рацианолизовать
    #32488348
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здрасте всем)
помогите решить задачу
на форме четыре флажка
после выбора пользователя по нажатию кнопки должна быть произведена выборка из таблицы. Условие выборки кэпшены выбранных флажков.
"WHERE FeeCaption = " & (Chr(34) & Me.SB1.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB2.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB3.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB5.Caption & Chr(34))
так соответственно нифига не находит, а с орами тока первое условие
а надо чтоб выборал в соответствии с выбранными ранее флажками
подскажите пожалуйста как это сделать?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488356
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А можно ли примерчик стринга, который получается?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488371
Kelme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
"WHERE FeeCaption = '" & Me.SB1.Caption & "' OR FeeCaption = '" & Me.SB2.Caption & "' OR FeeCaption = '" & Me.SB3.Caption & "' OR FeeCaption = '" & Me.SB5.Caption & "'"
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488376
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SQLstr = "SELECT * " & _
"FROM TMPSborsAgency " & _
"WHERE FeeCaption = " & (Chr(34) & Me.SB1.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB2.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB3.Caption & Chr(34)) & " And " & "FeeCaption = " & (Chr(34) & Me.SB5.Caption & Chr(34))
***********
SELECT * FROM TMPSborsAgency WHERE FeeCaption = "ТКП" And FeeCaption = "ЦКС" And FeeCaption = "Обслю" And FeeCaption = "АГС"
Это? )))
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488379
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а что, действительно должы отобраться строки, такие,что
поле FeeCaption сразу равно всем me.sb капшенам одновременно?

может там OR подразумавался?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488413
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сорри - моя понимать, да ор канешна
просто я потом результаты этой выборки помещаю в таблицу, а про цикл я забыла, вот одно только одно значение и добовлялась в результате
сейчас делаю цикл
а ор он как действует хотя бы одно или каждое соответствующее услови?
запуталась совсем
блин, флажки же еще и на активность проверить нада(
как сделать чтоб выборка шла тока по кэпшинам активных флажков?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488440
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Генери условие в функции с использованием if или используй iif() функцию
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488465
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SQLstr = "SELECT * " & _
"FROM TMPSborsAgency " & _
"WHERE FeeCaption = " & (Chr(34) & Me.SB1.Caption & Chr(34)) & " Or " & "FeeCaption = " & (Chr(34) & Me.SB2.Caption & Chr(34)) & " Or " & "FeeCaption = " & (Chr(34) & Me.SB3.Caption & Chr(34)) & " Or " & "FeeCaption = " & (Chr(34) & Me.SB5.Caption & Chr(34))
Set rst1 = dbs1.OpenRecordset(SQLstr)
For I = 1 To rst1.RecordCount
rst1.RecordCount - равно единице, а как сделать чтобы было равно четырем?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488474
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
paparome
примерчик мона?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488488
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
strSQL =  "Select * From ..." 
strWhere =  ""
if Me.SB1 then
  if Len(strWhere) > 0  Then strWhere = strWhere & " AND  " '-- " OR "
 
  strWhere = strWhere & " FeeCaption =  " & (Chr(34 ) & Me.SB1.Caption & Chr (34 ))"
end if

...

if Len(strWhere) >  0  then strSQL = strSQL &  " WHERE "  & strWHERE
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488499
Фотография Mila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
моя понимать)
вопрос
почему ор в результате дает только одну строку в выборке, а остальные куда?
всмысле делись?
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488513
чего проще - поставить точку останова. Хапнуть пошитую SQL строку, и разобраться в окне запроса, какого лысого (красного, т.е., ежели по китайски), оно не то че надо возвращает.
...
Рейтинг: 0 / 0
Запрос с параметром - помогите рацианолизовать
    #32488515
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Set rst1 = dbs1.OpenRecordset(SQLstr)
rs1.movelast
rs1.movefirst
For I = 1 To rst1.RecordCount

- так будет нормальный RecordCount. Но вообще циклы по рекордсету делают иначе:

do until rst1.eof
...
rst1.movenext
loop
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос с параметром - помогите рацианолизовать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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