Insert c датой

← →
Klerk (2004-09-03 12:58) [0]

Вот есть такой запрос:
sql.add("insert into ""+WorkBaza+""(...,Oplata,...) values(...,:Oplata,...)");
...
Params[i].AsDate:=StrtoDate(MaskEdit1.text);
...

(Oplata - тип поля - Дата)

Так вот. Если в MaskEdit есть дата - всё нормально работает.
А если нет - соотв. не работает. Пишет, естественно, что неправильное значение.
Так вот. Как мне обработать ситуацию, когда нет даты, то есть чтобы ничего не записывалось в данное поле?

← →
Klerk (2004-09-03 14:32) [1]

А в ответ тишина

← →
Sergey13 © (2004-09-03 14:35) [2]

Я Ире отвечал. Ей из за АДО не подошло. Может тебе подойдет.

← →
Klerk (2004-09-03 15:01) [3]

if MaskEdit4.text <> "" then
Params[5].AsDate:=StrtoDate(MaskEdit4.text)
else
Params[5].Value:=null; <- Как это правильно написать?

← →
Klerk (2004-09-03 15:09) [4]

В общем вопрос такой: как записать в это поле пустое значение?

← →
Sergey13 © (2004-09-03 15:28) [5]

Ты читал там? Вроде понятно написано.
Params[5].Clear

← →
Rule © (2004-09-03 15:29) [6]

Klerk (03.09.04 15:01) [3]
Params[5].Value:=null;
Params[5].clear

← →
Klerk (2004-09-03 15:31) [7]

читал и пробовал.
Пишет
EDBEEditError. Invalid input value.
Если дата в MaskEdit есть - всё нормально, без ошибок.
Стоит удалить дату из MaskEdit и попытаться вставить - эта ошибка:(

← →
Sergey13 © (2004-09-03 15:38) [8]

2[7] Klerk (03.09.04 15:31)
Посмотри чему у тебя равно пустое MaskEdit4.text
showmessage(MaskEdit4.text). Может он не ""? Событие то для Clear наступает?

← →
Klerk (2004-09-03 15:47) [9]

Странно.
Делаю showmessage(MaskEdit4.text)Вообще по отдельной кнопке для чистоты эксперимента.
И если его очистить - то вываливается эта ошибка.
EDBEEditError. Invalid input value.

Он отформатирован по 00/00/0000;1;_

попробуй 0 заменить 9 или #. Не помню.

← →
Klerk (2004-09-03 16:09) [11]

Заменил на 9.
Теперь всё показывает.
Но если убрать дату, то ошибка: ". ." is not a valid date.

if MaskEdit4.text <> "" then
Params[5].AsDate:=StrtoDate(MaskEdit4.text)
else
begin
Params[5].Value:=null;
end;

2[11] Klerk (03.09.04 16:09)
Отлавливай исключение
try
Params[5].AsDate:=StrtoDate(MaskEdit4.text)
except
Params[5].clear;
end;

Insert c датой Найти похожие ветки