Ошибка при оставлении пустым поля Integer

@salaev · Регистрация: 27.03.2018

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

Здравствуйте.
1. При оставлении пустым полей "Integer" выдает ошибку. Lazarus & Firebird. с другими полями такого нет.

Pascal

begin
      Query_Add.Close;
      Query_Add.SQL.Text := 'Update Obrazovanie SET SPR_OBRAZOVANIE_ID=:Obr, SPR_UCH_ZAV_ID=:Uch_zav, SPECIALNOST=:Spec, UCH_ZAV_DATE=:Data, FORMA_OBUCH=:Forma, SROK_OBUCH=:Srok, N_DIPLOMA=:Diplom where Obrazovanie_id=:Obr_ID';
      Query_Add.ParamByName('Obr_ID').AsString := Edit_Kand_id.text;   
      Query_Add.ParamByName('Obr').AsString := DBEdit_Obrazov_id.text;  // Пока не заплнишь строку - выдает ошибку "Invalid variant type cast."
      Query_Add.ParamByName('Uch_zav').AsString := DBEdit_Uch_zav_ID.text;  // то же самое
      Query_Add.ParamByName('Spec').AsString := DBEdit_Specialnost.text;
      Query_Add.ParamByName('Data').AsString := DBEdit_UCH_ZAV_DATE.text;
      Query_Add.ParamByName('Forma').AsString := DBEdit_Forma_obuch.text;
      Query_Add.ParamByName('Srok').AsString := DBEdit_Srok_obuchen.text;
      Query_Add.ParamByName('Diplom').AsString := DBEdit_N_Diploma.text;
      Query_Add.ExecSQL;
      SQLTransaction_Now.Commit;
  end;

Как этого избежать. Не всегда требуется заполнение этих полей
2. И еще. Подскажите, как перенести длинную строку кода "Query_Add.SQL.Text :=..." на новую без потери работоспособности???

@Joey · 24.01.2020, 10:17

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

2. И еще. Подскажите, как перенести длинную строку кода "Query_Add.SQL.Text :=..." на новую

Pascal

1
2
3

'Update Obrazovanie SET SPR_OBRAZOVANIE_ID=:Obr, SPR_UCH_ZAV_ID=:Uch_zav, ' +
  'SPECIALNOST=:Spec, UCH_ZAV_DATE=:Data, FORMA_OBUCH=:Forma, SROK_OBUCH=:Srok, ' +
  'N_DIPLOMA=:Diplom where Obrazovanie_id=:Obr_ID'

@salaev · 25.01.2020, 06:17 **[ТС]**

То же самое происходит, если не заполнить поле типа "Date"

@D1973 · 25.01.2020, 07:49

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

Не всегда требуется заполнение этих полей

Ну а зачем включать в запрос UPDATE поле, которое не заполнено?

@salaev · 25.01.2020, 10:13 **[ТС]**

Тогда каждое поле проверять - заполнено или нет и сохранять после этого???
- разве нет другого способа???
Аналогичная ситуация при добавлении новой записи.

@D1973 · 25.01.2020, 11:17

Есть. В СУБД не делать поле обязательным или установить значение по умолчанию (для числовых полей)

@salaev · 25.01.2020, 12:32 **[ТС]**

Самое интересное, что из них нет ни одного обязательного поля. Присваивать значение по умолчанию возможно при добавлении новой записи, но как быть при редактировании???

@D1973 · 25.01.2020, 13:29

1. Не использовать компоненты DBEdit
2. Динамически формировать запрос.
3. Пересмотреть свою архитектуру БД: в ней не должно быть незаполненных полей.

@salaev · 26.01.2020, 09:32 **[ТС]**

Теперь, если в поле были изменения, то выполняется обновление. Так ошибок не выдаёт. Но если я удаляю дату из поля (она не всегда нужна), это воспринимается как изменение и сново ошибка, т. К. Он не может присвоить пустое значение ячейке (хотя оно не является обязательным)
Это касается полей integer и date

@D1973 · 26.01.2020, 12:26

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

если я удаляю дату из поля

Если у Вас поле таблицы БД типа TDateTime - оно просто не может быть пустым

@salaev · 26.01.2020, 13:29 **[ТС]**

Когда я присваиваю полю Date значение Null ошибки не возникает. Все работает.

Pascal

begin
      if DBEdit_UCH_ZAV_DATE.text = '' then begin
      Query_Add.Close;
      Query_Add.SQL.Text := 'Update Obrazovanie SET UCH_ZAV_DATE= null where Obrazovanie_id=:Obr_ID';
      Query_Add.ParamByName('Obr_ID').AsString := Edit_Kand_id.text;
      Query_Add.ExecSQL;
      SQLTransaction_Now.Commit;  
      end else 
      begin
          Query_Add.Close;
          Query_Add.SQL.Text := 'Update Obrazovanie SET UCH_ZAV_DATE=:Date where Obrazovanie_id=:Obr_ID';
          Query_Add.ParamByName('Obr_ID').AsString := Edit_Kand_id.text;
          Query_Add.ParamByName('Date').AsString := DBEdit_UCH_ZAV_DATE.text;
          Query_Add.ExecSQL;
          SQLTransaction_Now.Commit; end;
    end;

Думаю код может быть короче. Как то можно условие поставить сразу в строке запроса,
типа 'Update Obrazovanie SET UCH_ZAV_DATE= если поле пусто-тогда Null, иначе значение поля...' ?

@salaev · 20.01.2021, 19:47 **[ТС]**

остановился на таком варианте

Delphi

procedure TfEditing.DBEdit_Srok_kontrEditingDone(Sender: TObject);              //  Оформление Срок контракта
begin
  Query_Safe4.Close;
  if DBEdit_Srok_kontr.Text=''
  then
  Query_Safe4.SQL.Text:='Update DK SET SROK_KONTRAKTA=Null where DOROZHNAYA_KARTA_ID=:DK_ID'
  else begin
  Query_Safe4.SQL.Text:='Update DK SET SROK_KONTRAKTA=:S_kon where DOROZHNAYA_KARTA_ID=:DK_ID';
  Query_Safe4.ParamByName('S_kon').AsString:=DBEdit_Srok_kontr.text;
  end;
  Query_Safe4.ParamByName('DK_ID').AsString:=DBEdit_DK_ID.text;
  Query_Safe4.ExecSQL;
end;

@D1973 · 20.01.2021, 20:21

Не по теме:

мда... медленно, но не верно...

@salaev · 22.01.2021, 08:19 **[ТС]**

Сделал давно. Решил поделиться. Может пригодиться кому.

@salaev 1 / 1 / 0 Регистрация: 27.03.2018 Сообщений: 93
	22.01.2021, 08:19 [ТС]	14
	Сделал давно. Решил поделиться. Может пригодиться кому. 0

@salaev 1 / 1 / 0 Регистрация: 27.03.2018 Сообщений: 93
	25.01.2020, 06:17 [ТС]	3
	То же самое происходит, если не заполнить поле типа "Date" 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,754 Записей в блоге: 3
	25.01.2020, 07:49	4
	Сообщение от salaev Не всегда требуется заполнение этих полей Ну а зачем включать в запрос UPDATE поле, которое не заполнено? 0

@salaev 1 / 1 / 0 Регистрация: 27.03.2018 Сообщений: 93
	25.01.2020, 10:13 [ТС]	5
	Тогда каждое поле проверять - заполнено или нет и сохранять после этого??? - разве нет другого способа??? Аналогичная ситуация при добавлении новой записи. 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,754 Записей в блоге: 3
	25.01.2020, 11:17	6
	Есть. В СУБД не делать поле обязательным или установить значение по умолчанию (для числовых полей) 0

@salaev 1 / 1 / 0 Регистрация: 27.03.2018 Сообщений: 93
	25.01.2020, 12:32 [ТС]	7
	Самое интересное, что из них нет ни одного обязательного поля. Присваивать значение по умолчанию возможно при добавлении новой записи, но как быть при редактировании??? 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,754 Записей в блоге: 3
	25.01.2020, 13:29	8
	Сообщение было отмечено salaev как решение Решение 1. Не использовать компоненты DBEdit 2. Динамически формировать запрос. 3. Пересмотреть свою архитектуру БД: в ней не должно быть незаполненных полей. 1

@salaev 1 / 1 / 0 Регистрация: 27.03.2018 Сообщений: 93
	26.01.2020, 09:32 [ТС]	9
	Теперь, если в поле были изменения, то выполняется обновление. Так ошибок не выдаёт. Но если я удаляю дату из поля (она не всегда нужна), это воспринимается как изменение и сново ошибка, т. К. Он не может присвоить пустое значение ячейке (хотя оно не является обязательным) Это касается полей integer и date 0

@D1973 Модератор 9238 / 6021 / 2374 Регистрация: 21.01.2014 Сообщений: 25,754 Записей в блоге: 3
	26.01.2020, 12:26	10
	Сообщение от salaev если я удаляю дату из поля Если у Вас поле таблицы БД типа TDateTime - оно просто `не может` быть пустым 0

@D1973
	20.01.2021, 20:21 #13
	Не по теме: мда... медленно, но не верно... 0

Опции темы

Ошибка при оставлении пустым поля Integer

Решение