Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Вниз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;_
← →
Sergey13 © (2004-09-03 15:59) [10]попробуй 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;
← →
Sergey13 © (2004-09-03 16:15) [12]2[11] Klerk (03.09.04 16:09)
Отлавливай исключение
try
Params[5].AsDate:=StrtoDate(MaskEdit4.text)
except
Params[5].clear;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c