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

@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 + " неизвестный отдел");

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

@DeadHipo · 01.08.2014, 11:05

Я думаю вместо

C++
1
d = AnsiString("ERR_CODE");

Должно быть это?

C++
1
String ERR = Q->FieldByName("ERR_CODE")->AsString;

Добавлено через 3 минуты
Напиши запрос один раз до цикла и в твой ADOQuetry добавь параметр.
И цикл у тебя будет уже таким

C++
1
2
3
4
5
6
7
8
9
10
11
 for(int i = 0; i < StringGrid1->RowCount; i++)
   {
     String FirstString;
     String SecondString;
     String d;
     String s = StringGrid1->Cells[4][i];
     Q->Close();
     Q->SQL->Clear();
    Q->Parameters->ParamByName("имя параметра")->Value = StringGrid1->Cells[4][i];
     Q->Open();
// ну а тут дальше обрабатывай то что получил.

@Bit_Man · 01.08.2014, 11:10

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
if (Q->Active) Q->Close();
Q->SQL->Clear();
     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("where DOC_NUM = :DOC_NUM");
     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");
String FirstString;
String SecondString;
for(int i = 0; i < StringGrid1->RowCount; i++)
   {
     FirstString = "Постановление № " + StringGrid1->Cells[4][i];
     SecondString = "";
Q->Parameters->ParamByName("DOC_NUM")->AsString = 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);
}

@DeadHipo · 01.08.2014, 11:13

C++
1
2
3
4
5
6
7
8
9
int err = Q->FieldByName("ERR_CODE")->AsInteger;
if(err = -1) //Вот тут не уверен. Под рукой не на чем проверить 
        Memo1->Lines->Add("Постановление № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " оплачено");
     else if(err == 0) // else if мне кажется лучше тут будет, и дальше тоже.
       Memo1->Lines->Add("Постановление № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " неизвестный райое");

Добавлено через 2 минуты
Bit_Man, Если что у автора в поле ERR оно может быть пустым. И если оно пустое, то Постановление оплачено

C++
1
2
3
4
 if(Q->FieldByName("ERR_CODE")->IsNull)
        Memo1->Lines->Add("Постановление № " + StringGrid1->Cells[4][i] + " от " +
                        Q->FieldByName("DATE_INSERT")->Value + " - " +
                        Q->FieldByName("ERR_CODE")->Value + " оплачено");

Возможно стоит добавить строку default?

@Safer54rus · 01.08.2014, 11:15 **[ТС]**

Bit_Man, [C++ Error] Unit1.cpp(118): E2316 'AsString' is not a member of 'TParameter'
параметр добавил

@Bit_Man · 01.08.2014, 11:17

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

Если что у автора в поле ERR оно может быть пустым. И если оно пустое, то Постановление оплачено

Это есть

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

C++
1
if(Q->FieldByName("ERR_CODE")->IsNull) SecondString = SecondString + " оплачено";

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

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

E2316 'AsString' is not a member of 'TParameter'

~~AsString~~ Value

@Safer54rus · 01.08.2014, 11:24 **[ТС]**

Bit_Man, не ругайся, я только учусь

неправильно определен объект parameter. предоставлены несовместимые или неполные сведения

@Bit_Man · 01.08.2014, 11:35

попробуй так.

C++
1
2
ADOQuery1->Parameters->Refresh();
ADOQuery1->Parameters->ParamValues["DOC_NUM"] = StringGrid1->Cells[4][i];

если не получиться то типа такого.

C++
1
2
3
4
query->Parameters->Items[0]->DataType  = ftString;
    query->Parameters->Items[0]->Direction = pdInput;
    query->Parameters->Items[0]->Value     = "";
    query->Parameters->Items[0]->Value.ChangeType(varOleStr);

@Safer54rus · 01.08.2014, 12:21 **[ТС]**

Bit_Man, parameter 'DOC_NUM' not found

@Bit_Man · 01.08.2014, 12:31

C++
1
2
Q->Parameters->Refresh();
Q->Parameters->Count; //Сколько здесь?

у TADOQuery, помойму, туго с параметрами при изменении текста запроса, тоже мучился с этим. Я давно так делал

C++
1
2
3
4
5
query->Parameters->Count;
    query->Parameters->Items[0]->DataType  = ftString;
    query->Parameters->Items[0]->Direction = pdInput;
    query->Parameters->Items[0]->Value     = "";
    query->Parameters->Items[0]->Value.ChangeType(varOleStr);

@Safer54rus · 01.08.2014, 12:50 **[ТС]**

Bit_Man, всё равно не может найти

@DeadHipo · 01.08.2014, 12:51

C++
1
2
Q->Parameters->Clear();
Q->Parameters->CreateParameter("DOC_NUM", ftString, pdInput, 255, "null");

@_Dimon_ · 01.08.2014, 12:55

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

у TADOQuery, помойму, туго с параметрами при изменении текста запроса, тоже мучился с этим. Я давно так делал

перед присвоением значений параметров

C++
1
Q->Parameters->ParseSQL(Q->SQL->Text, true);

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

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

parameter 'DOC_NUM' not found

он у тебя в запросе два раза повторяется, имхо, так нельзя. сделай DOC_NUM1, DOC_NUM2 например

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

DeadHipo, отсутствует значение у одного или нескольких требуемых параметров

Добавлено через 7 минут
сделал так и опять перестал искать, выводит что "в базе не обнаружено":

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
{
     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");
     String FirstString;
     String SecondString;
     for(int i = 0; i < StringGrid1->RowCount; i++)
      {
       FirstString = "Ïîñòàíîâëåíèå ¹ " + StringGrid1->Cells[4][i];
       SecondString = "";
       Q->Parameters->Clear();
       Q->Parameters->CreateParameter("DOC_NUM", ftString, pdInput, 255, "null");
       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);
    }

@DeadHipo · 01.08.2014, 13:11

Safer54rus, Извини у тебя эе Int

C++
1
2
Q->Parameters->Clear();
Q->Parameters->CreateParameter("DOC_NUM", ftInteger, pdInput, 10, "0");

И ещё передать ему значение

C++
1
Q->Parameters->ParamByName("DOC_NUM")->Value = 1; //или что ты там передаёшь за числа

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

C++
1
select * from table where id=:id

где :id это созданный инт параметр с именем id

Добавлено через 1 минуту
добавление параметра не надо пихать в цикл. Добавь его после sql запроса. И поменяй на int как я написал

@_Dimon_ · 01.08.2014, 13:12

вместо этого

C++
1
2
Q->Parameters->Clear();
Q->Parameters->CreateParameter("DOC_NUM", ftString, pdInput, 255, "null");

напиши

C++
1
2
Q->Parameters->ParseSQL(Q->SQL->Text, true);
Q->Parameters->ParamByName("DOC_NUM")->Value = 1; //тут свое значение подставь

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

_Dimon_, но значени должно само из базы браться, в том-то и дело

@_Dimon_ · 01.08.2014, 13:18

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

добавление параметра не надо пихать в цикл.

да, тут ты прав.

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

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

_Dimon_, но значени должно само из базы браться, в том-то и дело

вот теперь я в ступоре

Добавлено через 54 секунды
Safer54rus, поясни про DOC_NUM и откуда он берется

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

_Dimon_, тогда я окончательно не понимаю...у меня должен код ошибки браться в цикле из базы по номеру документа, который он получает из StringGrid'а, а потом в условии обрабатываться

@DeadHipo · 01.08.2014, 13:22

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

_Dimon_, тогда я окончательно не понимаю...у меня должен код ошибки браться в цикле из базы по номеру документа, который он получает из StringGrid'а, а потом в условии обрабатываться

ну так и поставь тут

C++
1
Q->Parameters->ParamByName("DOC_NUM")->Value = 1;

Вместо 1 то что тебе надо StringGrid->Cells[i][j] или какие ты там испозьхуешь

@_Dimon_ · 01.08.2014, 13:27

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
     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->Close();
       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);

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 11:15 [ТС]
	Bit_Man, [C++ Error] Unit1.cpp(118): E2316 'AsString' is not a member of 'TParameter' параметр добавил 0

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 11:24 [ТС]
	Bit_Man, не ругайся, я только учусь неправильно определен объект parameter. предоставлены несовместимые или неполные сведения 0

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 12:21 [ТС]
	Bit_Man, parameter 'DOC_NUM' not found 0

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 12:50 [ТС]
	Bit_Man, всё равно не может найти 0

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

@Safer54rus 2 / 2 / 1 Регистрация: 31.05.2014 Сообщений: 169
	01.08.2014, 13:20 [ТС]
	_Dimon_, тогда я окончательно не понимаю...у меня должен код ошибки браться в цикле из базы по номеру документа, который он получает из StringGrid'а, а потом в условии обрабатываться 0

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

Решение