Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Insert c датой [D5, Paradox]

Klerk © (2004-09-03 12:58:00)
Вот есть такой запрос:
sql.add('insert into "'+WorkBaza+'"(...,Oplata,...) values(...,:Oplata,...)');
...
Params[i].AsDate:=StrtoDate(MaskEdit1.text);
...

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

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

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

Klerk (2004-09-03 16:09:00) [2]
Заменил на 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 15:59:00) [3]
попробуй 0 заменить 9 или #. Не помню.

Klerk (2004-09-03 15:47:00) [4]
Странно.
Делаю showmessage(MaskEdit4.text)Вообще по отдельной кнопке для чистоты эксперимента.
И если его очистить - то вываливается эта ошибка.
EDBEEditError. Invalid input value.

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

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

Klerk (2004-09-03 15:31:00) [6]
читал и пробовал.
Пишет
EDBEEditError. Invalid input value.
Если дата в MaskEdit есть - всё нормально, без ошибок.
Стоит удалить дату из MaskEdit и попытаться вставить - эта ошибка:(

Rule (2004-09-03 15:29:00) [7]
Klerk (03.09.04 15:01) [3]
Params[5].Value:=null;
Params[5].clear

Sergey13 (2004-09-03 15:28:00) [8]
Ты читал там? Вроде понятно написано.
Params[5].Clear

Klerk (2004-09-03 15:09:00) [9]
В общем вопрос такой: как записать в это поле пустое значение?

Klerk (2004-09-03 15:01:00) [10]
if MaskEdit4.text <> '' then
Params[5].AsDate:=StrtoDate(MaskEdit4.text)
else
Params[5].Value:=null; <- Как это правильно написать?

Sergey13 (2004-09-03 14:35:00) [11]
Я Ире отвечал. Ей из за АДО не подошло. Может тебе подойдет.

Klerk (2004-09-03 14:32:00) [12]
А в ответ тишина

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »