Язык PSQL - История изменений

SYSDBA в 16:19, 21 октября 2011

2011-10-21T16:19:58Z

SYSDBA в 15:07, 21 октября 2011

2011-10-21T15:07:55Z

SYSDBA: Новая страница: «Язык '''PSQL (Procedural SQL)''' сервера Firebird предназначен для создания в базе данных триггеров, хра…»

2011-10-21T14:54:53Z

Новая страница: «Язык '''PSQL (Procedural SQL)''' сервера Firebird предназначен для создания в базе данных триггеров, хра…»

Новая страница

Язык '''PSQL (Procedural SQL)''' сервера [[Firebird]] предназначен для создания в базе данных триггеров, хранимых процедур или написания блоков кода, выполняемых с помощью команды '''EXECUTE BLOCK'''.

===Hello World!===

<syntaxhighlight lang="SQL">
EXECUTE BLOCK
RETURNS(s VARCHAR(80))
AS
BEGIN
s = 'Hello World!';
SUSPEND;
END
</syntaxhighlight>

===Входящие параметры и конструкция IF===

Определяем минимальное целое число из двух заданных:

<syntaxhighlight lang="SQL">
EXECUTE BLOCK (p1 INTEGER = :a, p2 INTEGER = :b)
RETURNS(m INTEGER)
AS
BEGIN
IF (:p1 < :p2) THEN
m = :p1;
ELSE
m = :p2;
SUSPEND;
END
</syntaxhighlight>

===Локальные переменные и цикл WHILE===

Выводим все целые числа в диапазоне от a до b:

<syntaxhighlight lang="SQL">
EXECUTE BLOCK (a INTEGER = :from_value, b INTEGER = :to_value)
RETURNS(c INTEGER)
AS
DECLARE VARIABLE i INTEGER;
BEGIN
i = :a;
WHILE (:i <= :b) DO
BEGIN
c = :i;
i = :i + 1;
SUSPEND;
END
END
</syntaxhighlight>

===Цикл по результатам выборки, оператор FOR, оператор конкатенции===

<syntaxhighlight lang="SQL">
EXECUTE BLOCK
RETURNS(s VARCHAR(200))
AS
DECLARE VARIABLE C INTEGER = 0;
DECLARE VARIABLE WITH_PHONE INTEGER = 0;
DECLARE VARIABLE PHONE VARCHAR(60);
BEGIN
FOR
SELECT phone FROM gd_contact
INTO :phone
DO BEGIN
c = :c + 1;
IF (COALESCE(:phone, '') > '') THEN
with_phone = :with_phone + 1;
END
s = 'Всего записей: ' || :c || ', из них с номером телефона: ' || :with_phone;
SUSPEND;
END
</syntaxhighlight>

===Обработка ошибок===

<syntaxhighlight lang="SQL">
EXECUTE BLOCK (a INTEGER = :a, b INTEGER = :b)
RETURNS(s VARCHAR(200))
AS
BEGIN
s = :a / :b;
SUSPEND;

WHEN ANY DO
BEGIN
s = 'Деление на ноль!';
SUSPEND;
END
END
</syntaxhighlight>

[[Category:База данных]]
[[Category:Учебный курс]]

@@ Строка 1: / Строка 1: @@
 Язык '''PSQL (Procedural SQL)''' сервера [[Firebird]] предназначен для создания в базе данных триггеров, хранимых процедур или написания блоков кода, выполняемых с помощью команды '''EXECUTE BLOCK'''.
 ===Hello World!===
@@ Строка 30: / Строка 30: @@
 </syntaxhighlight>
-===Локальные переменные и цикл WHILE===
+===Цикл WHILE===
 Выводим все целые числа в диапазоне от a до b:
@@ Строка 38: / Строка 38: @@
    RETURNS(c INTEGER)
 AS
 BEGIN
-   i = :a;
+   c = :a;
-   WHILE (:i <= :b) DO
+   WHILE (:c <= :b) DO
    BEGIN
      SUSPEND;
    END
 END

@@ Строка 51: / Строка 51: @@
 ===Цикл по результатам выборки, оператор FOR, оператор конкатенции===
 <syntaxhighlight lang="SQL">
@@ Строка 93: / Строка 95: @@
 [[Category:База данных]]
 [[Category:Учебный курс]]