Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Declare variable N integer;   Найти похожие ветки 

 
dim ©   (2002-01-10 10:16) [0]

Приветствую всех!
Коллеги каким образом присвоить значение об"явленной переменной в
InterBase"е. В MS SQL это проделывал при помощи select"а, т.е.
select N = value; А вот в InterBase"e как?


 
Alexandr ©   (2002-01-10 10:24) [1]

select
from
where
into :


 
dim ©   (2002-01-10 10:33) [2]

Нет не то. Я объявил переменную в теле хранимой процедуры и в зависимости от полученных данных о записи присвоить значение переменной, например:
CREATE PROCEDURE SAMPLE
*
*
)AS
DECLARE VARIABLE VALDEP INTEGER;
DECLARE VARIABLE VALPOST INTEGER;
DECLARE VARIABLE VALID INTEGER;
BEGIN
select M_ID,M_DEP,M_POST from ok_movement
where M_HUMAN=:HUMAN and M_ORDER=:VALPr and M_DATA=:VALDatPr and BIT=:VALBit
into :VALID, :VALDEP, :VALPOST;

if (:valid is null) then
select :VALDEP = 9999, :VALPOST = 9999//вот здесь и не понятно
else
select :VALDEP = 7777, :VALPOST = 7777//и вот здесь тоже


 
Romkin ©   (2002-01-10 10:35) [3]

или просто N = 2
Правило простое - в команде SQL, где могут быть имена полей, перед переменной ставишь ":", в остальных случаях не надо. Присваивание - через =, и ; в конце


 
Alexandr ©   (2002-01-10 10:44) [4]

вот так надо, видимо.
Хотя странная логика у процедуры...
Весьма странная.
CREATE PROCEDURE SAMPLE
*
*
)AS
DECLARE VARIABLE VALDEP INTEGER;
DECLARE VARIABLE VALPOST INTEGER;
DECLARE VARIABLE VALID INTEGER;
BEGIN
select M_ID,M_DEP,M_POST from ok_movement
where M_HUMAN=:HUMAN and M_ORDER=:VALPr and M_DATA=:VALDatPr and BIT=:VALBit
into :VALID, :VALDEP, :VALPOST;

if (:valid is null) then
begin
VALDEP = 9999;
VALPOST = 9999
end
else
begin
VALDEP = 7777;
VALPOST = 7777;
end;


 
dim ©   (2002-01-10 10:46) [5]

>Romkin.
К сожалению не прошло. Написал так:
if (:valid is null) then
:VALDEP = 9999; :VALPOST = 9999;
else
:VALDEP = 7777; :VALPOST = 7777/;
и ругается на ":" в строке 2


 
Alexandr ©   (2002-01-10 10:48) [6]

дорогой, сравни пожалуйста мой вариант со своим.
И почувстсвуй разницу!


 
Romkin ©   (2002-01-10 10:49) [7]

if (:valid is null) then
и здесь без двоеточия великолепно работает...


 
dim ©   (2002-01-10 10:51) [8]

>Alexandr
Согласен, пример немного корявый. Спасибо за помощь помогло.


 
Alexandr ©   (2002-01-10 10:51) [9]

пожалуста



Страницы: 1 вся ветка

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
1-18911
kserg@ukr.net
2002-01-23 15:19
2002.02.07
Вопрос по ActionList


6-18940
Pal-nod
2001-11-18 03:45
2002.02.07
1) Установка/удаление IPX 2) Разблокировать панель управления


1-18886
sd
2002-01-23 13:51
2002.02.07
TAction


3-18770
Вика
2002-01-14 08:02
2002.02.07
IB 5.6 , как сделать экпорт/импорт части таблицы через дискету?


1-18919
Lipskiy
2002-01-22 00:32
2002.02.07
Проблема с компонентой TTreeView и с указателями в частности.