Выборка записей по определенному полю

@Safer54rus · Регистрация: 31.05.2014

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

Доброго времени суток! Проблема такая: у меня в базе, по мимо информации о документах, есть код ошибки этих документов (неправильно заполнены поля), так вот, как написать условие вывода информации по определенному значению этого поля, я пишу так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
if(Q->FieldByName("ERR_CODE") IS NULL)
        Memo1->Lines->Add("Документ № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " оплаяеноî");
      if(Q->FieldByName("ERR_CODE") = '0')
       Memo1->Lines->Add("Документ № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " неизвестный регион");
      if(Q->FieldByName("ERR_CODE") = '1')
       Memo1->Lines->Add("Документ № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " неизвестный отдел");

естественно не работае, подскажите, в чём проблема

@Safer54rus · 01.08.2014, 13:32 **[ТС]**

DeadHipo, _Dimon_, в обоих случаях, при получении не null строки ERR_CODE выдаёт "abnormal program termination"

@DeadHipo · 01.08.2014, 13:35

Safer54rus, Покажи полностью код

@Safer54rus · 01.08.2014, 13:38 **[ТС]**

DeadHipo,

C++
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
{
 if (Q->Active)
      Q->Close();
      Q->SQL->Clear();
      Q->SQL->Add("select * from(");
      Q->SQL->Add("select LISH_ID, DOC_NUM, DOC_DATE, PRS_DATE, GIBDD_CODE, SURNAME, NAME, PATRONIMYC, OBL, RAI, IND, NAS_P, STREET, HOUSE,");
      Q->SQL->Add("KORPUS, KV, DBTR_BORN, DBTR_SUM, PAY_DATE, STATUS, KOAP_ST, KOAP_F, BORN_PLACE, FILE_NAME, ERR_CHECK, AIS_INS, DATE_INSERT, ID, FSSP_TO_GAI,");
      Q->SQL->Add("OKATO, KBK, ID_DBTR_TYPE, ERR_CODE, CHECK_DATE from  adm_gai_to_fssp_err");
      Q->SQL->Add("union");
      Q->SQL->Add("select LISH_ID, DOC_NUM, DOC_DATE, PRS_DATE, GIBDD_CODE, SURNAME, NAME, PATRONIMYC, OBL, RAI, IND, NAS_P, STREET, HOUSE,");
      Q->SQL->Add("KORPUS, KV, DBTR_BORN, DBTR_SUM, PAY_DATE, STATUS, KOAP_ST, KOAP_F, BORN_PLACE, FILE_NAME, ERR_CHECK, AIS_INS, DATE_INSERT, ID, FSSP_TO_GAI,");
      Q->SQL->Add("OKATO, KBK, ID_DBTR_TYPE,NULL as ERR_CODE,NULL as CHECK_DATE from adm_gai_to_fssp)");
      Q->SQL->Add("where DOC_NUM = :DOC_NUM");
      Q->Parameters->ParseSQL(Q->SQL->Text, true); //åñëè áåç ýòîé ñòðîêè ðàáîòàåò, òî ìîæåøü åå óáðàòü
    String FirstString;
     String SecondString;
     for(int i = 0; i < StringGrid1->RowCount; i++)
      {
       FirstString = "Ïîñòàíîâëåíèå ¹ " + StringGrid1->Cells[4][i];
       SecondString = "";
       Q->Parameters->ParseSQL(Q->SQL->Text, true);
       Q->Parameters->ParamByName("DOC_NUM")->Value = StringGrid1->Cells[4][i];
       Q->Open();
       if(Q->IsEmpty()) SecondString = (SecondString + " â áàçå íå îáíàðóæåíî");
        else
         {
          SecondString = " îò " + Q->FieldByName("DATE_INSERT")->Value + " - " + Q->FieldByName("ERR_CODE")->Value;
          if(Q->FieldByName("ERR_CODE")->IsNull) SecondString = SecondString + " îïëà÷åíî";
           else
            switch (Q->FieldByName("ERR_CODE")->AsInteger)
             {
              case 0: SecondString = SecondString + " íåèçâåñòíûé ðàéîí"; break;
              case 1: SecondString = SecondString + " íåèçâåñòíûé êîä îòäåëà"; break;
              case 2: SecondString = SecondString + " îòñóòñòâóåò äàòà äîêóìåíòà"; break;
              case 3: SecondString = SecondString + " îòñóòñòâóåò äàòà ðîæäåíèÿ";  break;
              case 4: SecondString = SecondString + " íåèçâåñòíûé êîä äîëæíèêà"; break;
              case 5: SecondString = SecondString + " íå âîçáóæäåííî, íî óæå îïëà÷åíî"; break;
             }
        }
       Q->Close();
       Memo1->Lines->Add(FirstString + SecondString);
}

@_Dimon_ · 01.08.2014, 13:40

Safer54rus, вместо 21 строки напиши Q->Close();

@Safer54rus · 01.08.2014, 13:42 **[ТС]**

_Dimon_, не изменилось

@_Dimon_ · 01.08.2014, 13:43

Safer54rus, да это понятно, просто так правильнее

@DeadHipo · 01.08.2014, 13:45

Safer54rus, то что ты передаёшь это числа или буквы? Возможно параметр int а ты ему строки подсовываешь?

@_Dimon_ · 01.08.2014, 13:46

хотя на 40 строке есть этот Q->Close();

@Safer54rus · 01.08.2014, 13:47 **[ТС]**

DeadHipo, в таблице INT'овый тип поля

@DeadHipo · 01.08.2014, 13:49

и перед

C++
1
FirstString = "Постановление № " + StringGrid1->Cells[4][i];

поместить

C++
1
Q->Close();

Мы же вроде новый параметр ему даём потом.

@_Dimon_ · 01.08.2014, 13:49

DeadHipo, да на то они и есть эти параметры, что им пофиг

@DeadHipo · 01.08.2014, 13:52

_Dimon_, Просто мы потом вызываем

C++
1
 Q->Open();

Получается на уже открытом?

@_Dimon_ · 01.08.2014, 13:54

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

Получается на уже открытом?

закрытий он еще в 3 строке

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

Safer54rus, вместо 21 строки напиши Q->Close();

а после первого прохода цикла закрывается в 40 строке

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

хотя на 40 строке есть этот Q->Close();

@DeadHipo · 01.08.2014, 13:57

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

Сообщение от _Dimon_
Safer54rus, вместо 21 строки напиши Q->Close();
Сообщение от _Dimon_
хотя на 40 строке есть этот Q->Close();

Они оба вне цикла ведь. один раз отработало, а потом?
ps. Возможно я не прав, но меня терзают сомнения.

@_Dimon_ · 01.08.2014, 13:57

DeadHipo, там проблема в чем то другом...

@DeadHipo · 01.08.2014, 13:58

_Dimon_, ну это да, так как мне помниться, что абнормолы от этого не вылетают

Автор, запускай в дебаге и жми break на выскочившим окошке при выполнении. И говори строку

@_Dimon_ · 01.08.2014, 14:00

DeadHipo, цикл заканчивается на Memo1->Lines->Add(FirstString + SecondString);

Добавлено через 41 секунду

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

Автор, запускай в дебаге и жми break на выскочившим окошке при выполнении. И говори строку

или ставь брекпоинты и смотри где вылетит

@Safer54rus · 01.08.2014, 14:03 **[ТС]**

DeadHipo, а где в шестом билдере дебаг?

@DeadHipo · 01.08.2014, 14:04

Safer54rus, стрелочка с божией коровкой или что то подобное, вроде

Добавлено через 24 секунды
_Dimon_,

посчитал скобки, с этого и стоило начать.

@Safer54rus · 01.08.2014, 14:10 **[ТС]**

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

трелочка с божией коровкой или что то подобное, вроде

хоть убей, не могу найти

Новые блоги и статьи Все статьи Все блоги /
Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .
мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 13:32 [ТС]
	DeadHipo, _Dimon_, в обоих случаях, при получении не null строки ERR_CODE выдаёт "abnormal program termination" 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	01.08.2014, 13:35
	Safer54rus, Покажи полностью код 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	01.08.2014, 13:40
	Safer54rus, вместо 21 строки напиши Q->Close(); 0

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 13:42 [ТС]
	_Dimon_, не изменилось 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	01.08.2014, 13:43
	Safer54rus, да это понятно, просто так правильнее 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	01.08.2014, 13:45
	Safer54rus, то что ты передаёшь это числа или буквы? Возможно параметр int а ты ему строки подсовываешь? 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	01.08.2014, 13:46
	хотя на 40 строке есть этот Q->Close(); 0

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 13:47 [ТС]
	DeadHipo, в таблице INT'овый тип поля 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	01.08.2014, 13:49
	DeadHipo, да на то они и есть эти параметры, что им пофиг 0

@_Dimon_ 1409 / 573 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	01.08.2014, 13:57
	DeadHipo, там проблема в чем то другом... 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	01.08.2014, 13:58
	_Dimon_, ну это да, так как мне помниться, что абнормолы от этого не вылетают Автор, запускай в дебаге и жми break на выскочившим окошке при выполнении. И говори строку 1

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 14:03 [ТС]
	DeadHipo, а где в шестом билдере дебаг? 0

@DeadHipo 85 / 85 / 33 Регистрация: 21.09.2013 Сообщений: 339
	01.08.2014, 14:04
	Safer54rus, стрелочка с божией коровкой или что то подобное, вроде Добавлено через 24 секунды _Dimon_, посчитал скобки, с этого и стоило начать. 0