В начало

Хранимая процедура MaxKol

 

            Есть база данных «Sklad», созданная в «Interbase 6.5». В этой базе есть таблица «Rashod».

Рис. 1. Таблица «Rashod»

 

            Необходимо написать процедуру, выводящую максимальное количество товара по его названию. Директива «SET TERM» нужна для того, чтобы можно было создать процедуру в «IBConsole», т.к. есть конфликт/глюки/баги  с символами конца процедуры/запроса.

SET TERM !;

CREATE PROCEDURE MaxKol (Tovar VARCHAR(20))

RETURNS (Result INTEGER)

AS

       BEGIN

       SELECT MAX(Kolichestvo)

       FROM Rashod

       WHERE Tovar =:Tovar

       INTO: Result;

       SUSPEND;

       END!

SET TERM ;!

            Для того чтобы, выполнить процедуру «MaxKol» нужно написать запрос в утилите «Interactive SQL» с заданием параметров.

EXECUTE PROCEDURE MaxKol ('Анальгин');

 

Рис. 2. Результат выполнения процедуры «MaxKol».