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

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

Хранимая процедура - замена значений null [D6, IB6.x]


Страницы:   1 2

Брат ©   (2002-12-11 11:23:00) 

Мастера! Имеется следующая процедура:
...
CREATE PROCEDURE ZAMENA_NULL RETURNS (
M1 INTEGER,
M2 INTEGER,
M3 INTEGER,
M4 INTEGER,
M5 INTEGER,
M6 INTEGER,
M7 INTEGER,
M8 INTEGER,
M9 INTEGER,
M10 INTEGER,
M11 INTEGER,
M12 INTEGER
) AS
begin
for select m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12
from Rospisvidatki
into :m1,:m2,:m3,:m4,:m5,:m6,:m7,:m8,:m9,:m10,:m11,:m12
do begin
if (m1 is NULL) then m1 = 0;
if (m2 is NULL) then m2 = 0;
if (m3 is NULL) then m3 = 0;
if (m4 is NULL) then m4 = 0;
if (m5 is NULL) then m5 = 0;
if (m6 is NULL) then m6 = 0;
if (m7 is NULL) then m7 = 0;
if (m8 is NULL) then m8 = 0;
if (m9 is NULL) then m9 = 0;
if (m10 is NULL) then m10 = 0;
if (m11 is NULL) then m11 = 0;
if (m12 is NULL) then m12 = 0;
suspend;
end
end
...
Она (по идее) должна заменять значения null столбцов m1,m2,...,m12 в таблице на 0. При вызове ошибок не выдает, но и не работает... Подскажите, может что-то не так...


Alexandr   (2002-12-11 11:33:00) [21]

Зачем такую порянку разводить...
функцию z из Rfunc еще не убирали...


Prooksius   (2002-12-11 11:32:00) [22]

2 stone © (11.12.02 11:29)
Нет, можно и без :
А вот set не надо вообще.


Prooksius   (2002-12-11 11:29:00) [23]

Не работает как? Мы не телепаты!
Наверно, запрос ничего не возвращает?


stone   (2002-12-11 11:29:00) [24]

> if (m1 is NULL) then m1 = 0;

if (:m1 is NULL) then set :m1 = 0;


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо