Главная страница
    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.037 c
4-1092979626
RagE
2004-08-20 09:27
2004.10.03
Оконная процедура и класс


14-1095030803
Soft
2004-09-13 03:13
2004.10.03
Только что написал


8-1089106744
REA
2004-07-06 13:39
2004.10.03
Big Bitmap


6-1090592600
webpauk
2004-07-23 18:23
2004.10.03
WinApi


3-1094112903
dumitru
2004-09-02 12:15
2004.10.03
bde -> ado





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский