Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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.03 c
1-1095236000
cvc
2004-09-15 12:13
2004.10.03
Делфи и Windows Mobile 2003?


14-1094888235
Piter
2004-09-11 11:37
2004.10.03
Какая температура в ванной?


1-1095693529
Aleksandr.
2004-09-20 19:18
2004.10.03
Как PageControl заставить измерить ширину tab a?


1-1095604621
volser
2004-09-19 18:37
2004.10.03
Выравнивание в ячейке таблицы (MsWord)


1-1095228689
Fedia
2004-09-15 10:11
2004.10.03
Синхронизация в потоке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский