SQL запрос в ADOQuery

@MaSTeR-666 · Регистрация: 24.08.2010

Студворк — интернет-сервис помощи студентам

Извиняюсь, если пишу не в ту тему, так как по сути мне нужна помощь по SQL, просто используется он в ADOQuery.
Вообщем есть код (фрагмент точнее):

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  IIF(COUNT(fam)=0
    OR SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1, 0))=0,
  0000, SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1,0))) AS отвод,

Он ставит "отвод" (точнее единицу в это поле) если k2=4 или все остальные (op2,cb2,b2,ch2,t2) равны 4. А мне нужно сделать так, чтобы он ставил "отвод" если k2=4 или сумма всех остальных+k2 больше 21.
Так как в SQL (да и вообще с бд) я почти полный ноль, у меня ничего не выходит(( Если кто может очь прошу помочь.

arni · 03.09.2010, 16:58

>мне нужно сделать так, чтобы он ставил "отвод" если k2=4 или сумма всех остальных+k2 больше 21

под суммой всех остальных понимается сумма полей op2+cb2+b2+ch2+t2 для текущей строки, или речь об агрегатной сумме некоего выражения всех строк?
Если первое, то

SQL
1
IIF(k2=4 OR (k2+op2+cb2+b2+ch2+t2)>21, 1, 0)

Если второе, то никак, ибо нельзя одновременно работать с контекстом текущей записи и контекстом агрегированной записи.

@MaSTeR-666 · 03.09.2010, 20:53 **[ТС]**

Вообще на сколько я разобрался это одна строка (если сделано все конечно не через жопу), но такую вот запись я уже пробовал - почему то не работает.

@Башир · 03.09.2010, 22:37

Сообщение от arni

IIF(k2=4 OR (k2+op2+cb2+b2+ch2+t2)>21, 1, 0)

Что то я не пойму, чо это за синтаксис IIF? что то я н знаю такого в MSSQL. Просветите меня откуда это

arni · 04.09.2010, 04:21

Сообщение от Башир

Что то я не пойму, чо это за синтаксис IIF? что то я н знаю такого в MSSQL. Просветите меня откуда это

SQL
1
IIF(Condition, Value_If_True, Value_If_False)

в mysql зовется IF()
а вообще, это более краткий аналог для

SQL
1
CASE WHEN Condition THEN Value_If_True ELSE Value_If_False END

@Башир · 04.09.2010, 09:27

Что то вы путаете я не зню чо там в MySQL но в MSSQL-Server нету такого

,
такое

SQL
1
CASE WHEN 'условие' THEN 'действие-1' ELSE 'действие-2' END

есть, но IIF такого я впервые вижу и даже проверил... нету такой функции.

Добавлено через 1 минуту
Пардон не 'действие' а 'знаечение'

arni · 04.09.2010, 10:02

Сообщение от Башир

Что то вы путаете я не зню чо там в MySQL но в MSSQL-Server нету такого

я не могу путать, т.к. не декларировал наличие такой функции конкретно в MsSQL. Но в используемых мною серверах (firebird и mysql) она есть. В аксесе кажется тоже есть. Если нет в mssql - что ж, я хотя бы объяснил, что это с т.з. стандарта sql просто краткая запись более длинной конструкции case.
А применил я её в ответе потому, что сам топикстертер приводит пример с её использованием. Вероятно, у него не MsSQL

@Lord_Voodoo · 04.09.2010, 11:33

MaSTeR-666, вообще не факт, что АДО поймет такой запрос вообще... еще в аксессе с таким сталкивался... что некоторые возможности при работе с АДО нельзя использовать... поэтому юзайте компоненты DAC от devart...

@Башир · 04.09.2010, 11:37

Сообщение от Lord_Voodoo

вообще не факт, что АДО поймет такой запрос вообще

У меня всегда все понимал но это было относительно MSSQL. Насчет других СУБД я не берусь говорить.

@Lord_Voodoo · 04.09.2010, 11:39

Башир, когда-то столкнулся с проблемой - в аксессе запрос работает, при этом адо ругался, что одну из функций не понимает... пришлось заменять на аналог

@Башир · 04.09.2010, 11:47

На счет того что ADO не поймет буквально все не спорю и с вами согласен, но типа такого

SQL
1
SELECT SUM(CASE WHEN f1=0 THEN f2 ELSE f3 END) AS 'Сумма', COUNT(*) AS 'Кол.' FROM tab1

понимал. А здесь рассматривается менно это. Ну плюсь ко всему я то работал с MSSQL а что здесь я так и непонял, то ли MySQL то ли FireBird или Interbase

@Lord_Voodoo · 04.09.2010, 11:52

Башир, ну да... с какой базой играется автор, пока и мне не понятно, но iif наводит на подозрение, что аксесс

@Башир · 04.09.2010, 11:56

Lord_Voodoo, Тогда все возможно, с Access-ом я работал мало, но постоянно были проблемы

, и в основном пльзовался ADOTable нежели ADOQuery.

@Lord_Voodoo · 04.09.2010, 12:05

Башир, вот поэтому и советую не использовать ни акссес, ни адо)) DAC в этом отношении имеют только один недостаток. платные, но когда это нас останавливало

@MaSTeR-666 · 06.09.2010, 10:19 **[ТС]**

Похоже и правда ADO не понимает такой запрос(((
Этот код:
IIF((k2=4 OR (op2=4 AND cb2=4 AND b2=4 AND ch2=4 AND t2=4)), 1, 0))=0
нормально понимает и работает. А на этих:
IIF (k2=4 or ((k2+op2+cb2+b2+ch2+t2)>21)),1,0)=0
case when (k2=4 or ((k2+op2+cb2+b2+ch2+t2)>21)) then 1 else 0 end
вылетает и в коде компонента АДО (ado.pas):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  VarRecsAffected: OleVariant;
begin
  if not Assigned(Recordset) then
  begin
    InitializeConnection;
    InitializeRecordset;
    Recordset.Open(Source, ActiveConnection,
      CursorTypeValues[FCursorType], LockTypeValues[FLockType],
      Integer(CommandTypeValues[CommandType]) + ExecuteOptionsToOrd(ExecuteOptions));
    while Recordset.State = adStateClosed do
    try
      FRecordsetObject := Recordset.NextRecordset(VarRecsAffected);
      if Recordset = nil then Abort;
    except
      DatabaseError(SNoResultSet, Self);
    end;
  end else
    EnableEvents;
  if (eoAsyncExecute in ExecuteOptions) and ((Recordset.State and adStateExecuting) <> 0) then
    SetState(dsOpening);
  inherited OpenCursor(False);
end;

выделяет девятую (здесь в смысле) строку.
А затем (когда пропускаю) уже в приложении выползает сообщение с ошибкой:
Missing comma (,)

И вот хоть тресни тут!...

Добавлено через 4 минуты
Хотя при этом подобную запись:

SQL
1
IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))) AS 'текст'

выполняет нормально.

arni · 06.09.2010, 10:58

Сообщение от MaSTeR-666

IIF (k2=4 or ((k2+op2+cb2+b2+ch2+t2)>21)),1,0)=0

1. Кол-во открывающих скобок не соответствует закрывающим
2. имя функции не стоит отделять пробелом от открывающей скобки со списком агрументов

Добавлено через 2 минуты

Сообщение от MaSTeR-666

выползает сообщение с ошибкой:
Missing comma (,)

Где-то в запросе зевнули запятую. Было бы проще помочь, если бы вы привели текст запроса полностью.

@MaSTeR-666 · 06.09.2010, 11:08 **[ТС]**

Сообщение от Lord_Voodoo

Башир, ну да... с какой базой играется автор, пока и мне не понятно, но iif наводит на подозрение, что аксесс

не аксесс. dBase если не ошибаюсь (расширение dbf по крайней мере) - с базами я увы фигово

Добавлено через 5 минут

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
SELECT rr.cod,
  rr.name,
  IIF(COUNT(fam)=0, 0000, COUNT(fam)) AS Âñåãî,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))) AS çàâûøåíî_íà_3_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=-2)OR(k1-k2=-2)OR(op1-op2=-2)OR(cb1-cb2=-2)OR(b1-b2=-2)OR(ch1-ch2=-2)OR(t1-t2=-2),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=-2)OR(k1-k2=-2)OR(op1-op2=-2)OR(cb1-cb2=-2)OR(b1-b2=-2)OR(ch1-ch2=-2)OR(t1-t2=-2),1,0))) AS çàâûøåíî_íà_2_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=3)OR(k1-k2=3)OR(op1-op2=3)OR(cb1-cb2=3)OR(b1-b2=3)OR(ch1-ch2=3)OR(t1-t2=3),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=3)OR(k1-k2=3)OR(op1-op2=3)OR(cb1-cb2=3)OR(b1-b2=3)OR(ch1-ch2=3)OR(t1-t2=3),1,0))) AS çàíèæåíî_íà_3_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=2)OR(k1-k2=2)OR(op1-op2=2)OR(cb1-cb2=2)OR(b1-b2=2)OR(ch1-ch2=2)OR(t1-t2=2),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=2)OR(k1-k2=2)OR(op1-op2=2)OR(cb1-cb2=2)OR(b1-b2=2)OR(ch1-ch2=2)OR(t1-t2=2),1,0))) AS çàíèæåíî_íà_2_êàòåãîðèè,
  
  IIF(COUNT(fam)=0
    OR SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1, 0))=0,
  0000, SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1,0))) AS îòâîä,
  
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,1,2),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,1,2),1,0))) AS ÍÏÓ_íåóä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,3,4,5),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,3,4,5),1,0))) AS ÍÏÓ_óä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,6,7,8),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,6,7,8),1,0))) AS ÍÏÓ_õîð,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,9,10),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,9,10),1,0))) AS ÍÏÓ_îòë,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,1,2,3),1,0))=0, 0000, SUM(IIF(INLIST(PS2,1,2,3),1,0))) AS ÎÏÑ_íåóä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,4,5),1,0))=0, 0000, SUM(IIF(INLIST(PS2,4,5),1,0))) AS ÎÏÑ_óä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,6,7),1,0))=0, 0000, SUM(IIF(INLIST(PS2,6,7),1,0))) AS ÎÏÑ_õîð,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,8,9,10),1,0))=0, 0000, SUM(IIF(INLIST(PS2,8,9,10),1,0))) AS ÎÏÑ_îòë
  FROM reestr ree
  RIGHT JOIN raions rr
  ON ree.raion=rr.cod
GROUP BY rr.cod, rr.name
UNION
  SELECT '99',
  'Èòîãî:',
  IIF(COUNT(fam)=0, 0000, COUNT(fam)) AS Âñåãî,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=-3)OR(k1-k2=-3)OR(op1-op2=-3)OR(cb1-cb2=-3)OR(b1-b2=-3)OR(ch1-ch2=-3)OR(t1-t2=-3),1,0))) AS çàâûøåíî_íà_3_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=-2)OR(k1-k2=-2)OR(op1-op2=-2)OR(cb1-cb2=-2)OR(b1-b2=-2)OR(ch1-ch2=-2)OR(t1-t2=-2),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=-2)OR(k1-k2=-2)OR(op1-op2=-2)OR(cb1-cb2=-2)OR(b1-b2=-2)OR(ch1-ch2=-2)OR(t1-t2=-2),1,0))) AS çàâûøåíî_íà_2_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=3)OR(k1-k2=3)OR(op1-op2=3)OR(cb1-cb2=3)OR(b1-b2=3)OR(ch1-ch2=3)OR(t1-t2=3),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=3)OR(k1-k2=3)OR(op1-op2=3)OR(cb1-cb2=3)OR(b1-b2=3)OR(ch1-ch2=3)OR(t1-t2=3),1,0))) AS çàíèæåíî_íà_3_êàòåãîðèè,
  IIF(COUNT(fam)=0 OR SUM(IIF((boupo1-boupo2=2)OR(k1-k2=2)OR(op1-op2=2)OR(cb1-cb2=2)OR(b1-b2=2)OR(ch1-ch2=2)OR(t1-t2=2),1,0))=0, 0000, SUM(IIF((boupo1-boupo2=2)OR(k1-k2=2)OR(op1-op2=2)OR(cb1-cb2=2)OR(b1-b2=2)OR(ch1-ch2=2)OR(t1-t2=2),1,0))) AS çàíèæåíî_íà_2_êàòåãîðèè,
  
  IIF(COUNT(fam)=0
    OR SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1, 0))=0,
  0000, SUM(IIF((k2=4 OR
                  (op2=4
                  AND cb2=4
                  AND b2=4
                  AND ch2=4
                  AND t2=4)),
            1,0))) AS îòâîä,
  
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,1,2),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,1,2),1,0))) AS ÍÏÓ_íåóä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,3,4,5),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,3,4,5),1,0))) AS ÍÏÓ_óä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,6,7,8),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,6,7,8),1,0))) AS ÍÏÓ_õîð,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(hpu2,9,10),1,0))=0, 0000, SUM(IIF(INLIST(hpu2,9,10),1,0))) AS ÍÏÓ_îòë,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,1,2,3),1,0))=0, 0000, SUM(IIF(INLIST(PS2,1,2,3),1,0))) AS ÎÏÑ_íåóä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,4,5),1,0))=0, 0000, SUM(IIF(INLIST(PS2,4,5),1,0))) AS ÎÏÑ_óä,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,6,7),1,0))=0, 0000, SUM(IIF(INLIST(PS2,6,7),1,0))) AS ÎÏÑ_õîð,
  IIF(COUNT(fam)=0 OR SUM(IIF(INLIST(PS2,8,9,10),1,0))=0, 0000, SUM(IIF(INLIST(PS2,8,9,10),1,0))) AS ÎÏÑ_îòë
FROM reestr ree

Извиняюсь, кракозябры не исправляю - комп и инет деревянные... Да в принципе этот текст и не важен.
arni, если сможешь помочь буду очь благодарен!

Добавлено через 2 минуты
Ох тыж! О_о

Не ожидал, что тут кодировка подправится!)

@Lord_Voodoo · 06.09.2010, 11:08

MaSTeR-666, а вам не кажется, что проще сделать простой запрос, а уже в программе анализировать возвращенные данные? если для ДБГрида, то в TField есть методы управления отображением... почитайте в хелпе

arni · 06.09.2010, 11:21

MaSTeR-666, разобраться в таком трехэтажном запросе нет ни времени ни желания.
Отсекайте union и сокращайте возвращаемые поля, пока не локализуете выражение, на котором сервер спотыкается.

@MaSTeR-666 · 06.09.2010, 11:46 **[ТС]**

Сообщение от Lord_Voodoo

если для ДБГрида, то в TField есть методы управления отображением...

Для frReport в том то и дело... Ладно. Всем спасибо!) Что нибудь постараюсь придумать.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@MaSTeR-666 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 18
	03.09.2010, 20:53 [ТС]
	Вообще на сколько я разобрался это одна строка (если сделано все конечно не через жопу), но такую вот запись я уже пробовал - почему то не работает. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.09.2010, 11:33
	MaSTeR-666, вообще не факт, что АДО поймет такой запрос вообще... еще в аксессе с таким сталкивался... что некоторые возможности при работе с АДО нельзя использовать... поэтому юзайте компоненты DAC от devart... 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.09.2010, 11:39
	Башир, когда-то столкнулся с проблемой - в аксессе запрос работает, при этом адо ругался, что одну из функций не понимает... пришлось заменять на аналог 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.09.2010, 11:52
	Башир, ну да... с какой базой играется автор, пока и мне не понятно, но iif наводит на подозрение, что аксесс 0

@Башир 215 / 215 / 20 Регистрация: 18.05.2010 Сообщений: 865
	04.09.2010, 11:56
	Lord_Voodoo, Тогда все возможно, с Access-ом я работал мало, но постоянно были проблемы , и в основном пльзовался ADOTable нежели ADOQuery. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.09.2010, 12:05
	Башир, вот поэтому и советую не использовать ни акссес, ни адо)) DAC в этом отношении имеют только один недостаток. платные, но когда это нас останавливало 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	06.09.2010, 11:08
	MaSTeR-666, а вам не кажется, что проще сделать простой запрос, а уже в программе анализировать возвращенные данные? если для ДБГрида, то в TField есть методы управления отображением... почитайте в хелпе 0

arni 914 / 879 / 62 Регистрация: 06.01.2010 Сообщений: 2,367 Записей в блоге: 6
	06.09.2010, 11:21
	MaSTeR-666, разобраться в таком трехэтажном запросе нет ни времени ни желания. Отсекайте union и сокращайте возвращаемые поля, пока не локализуете выражение, на котором сервер спотыкается. 0