| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

delphi - oracle - null параметр [D7]

12 ©   (2010-08-03 10:52:00) 

надо передать в запрос null

 oqLoadPrice.SQL.Text := ' Insert into price                                                                    '+
                         '        ( id_price,  subscriber_id,  start_data,  stop_data,  address,  phone, ready) '+
                         ' values (:id_price, :subscriber_Id, :start_data, :stop_data, :address, :phone, :ready)';

if IsNull(dtFrom.Date, V) then
 oqLoadPrice.ParamByName('start_data').Value := V;

написал было

function IsNull(dt: TDateTime; var V:Variant):boolean;
begin
 if dt = 0 then
 begin
   Result := true;
   V := varNull;   // <-------
 end else
 begin
   Result := false;
   V := dt;
 end;
end;

не Null получается. Как null сделать?

---

12   (2010-08-03 11:06:00) [1]

ага, спасибо

---

Sergey13   (2010-08-03 10:58:00) [2]

oqLoadPrice.ParamByName('start_data').Clear
не подойдет?

---

Наверх