Пустой edit в ado

[Ernest027]

Если я все компоненты (edit,combobox,dateedit) заполняю данными, все прекрасно работает.
Но если хоть один компонент (Числовой или с датой) пустой, вылетает ошибка.

[Ernest027]

Прошу вашей помощи, толком найти ничего не могу или просто не знаю что и где искать.

[evg_m]

Если еще ни чего не присваивать, то будет NULL тоже по идее.

  if sEdit19.Text<>'' then Parameters.ParamByName('GV').Value:=StrToInt(sEdit19.Text);
  else ....
  if sDateEdit1.Date<>0 then Parameters.ParamByName('DPZ').Value:=sDateEdit1.Date;
  if sComboBox4.Text<>'' then Parameters.ParamByName('TS').Value:=sComboBox4.Text;
  if sDateEdit2.Date<>0 then Parameters.ParamByName('DSZ').Value:=sDateEdit2.Date;
  if sEdit6.Text<>'' then Parameters.ParamByName('P').Value:=StrToFloat(sEdit6.Text);
  if sEdit5.Text<>'' then Parameters.ParamByName('U').Value:=StrToFloat(sEdit5.Text);

можно попробовать еще так

Parameters.ParamByName('xxx').Value:= NULL UnAssigned;

[Serge_Bliznykov]

если варианты от evg_m не пройдут, то попробуйте ещё такое:

вариант 1.

Parameters.ParamByName('NPD').Clear;
if sEdit2.Text<>'' then
  Parameters.ParamByName('NPD').Value:=StrToInt(sEdit2.Text);

вариант 2.

if sEdit2.Text<>'' then
  Parameters.ParamByName('NPD').Value:=StrToInt(sEdit2.Text);
else begin
  Parameters.ParamByName('NPD').DataType := ftString;  // или, например, ftInteger
  Parameters.ParamByName('NPD').Value := NULL;
end;

[Ernest027]

Спасибо вам огромное)))
Получилось))) Подошел вариант 2)))
СПА-СИ-БО

[Аватар]

  Parameters.ParamByName('NPD').Attributes:=[paNullable];
  if sEdit2.Text<>'' then Parameters.ParamByName('NPD').Value:=StrToInt(sEdit2.Text);

или

  Parameters.ParamByName('NPD').Attributes:=[paNullable];
  if sEdit2.Text<>'' then Parameters.ParamByName('NPD').Value:=StrToInt(sEdit2.Text)
                     else Parameters.ParamByName('NPD').Value:=NULL;

[Ernest027]

Еще раз всем спасибо)))

[Aliens_wolfs]

Насчет AsInteger лопухнулся не там написал я имел ввиду так

ADOQueryZavod.FieldByName('NPD').AsInteger

Вижу все решилось))

[Ernest027]

да,спасибо)

[Ernest027]

подскажите, а как сделать чтобы выполнялось условие:

if sEdit2.Text<>'' then
  Parameters.ParamByName('NPD').Value:=StrToInt(sEdit2.Text);
else 
не вставлять ничего;