Синтаксис

modify_blob_type([<курсор>, ]<тип BLOB-значения>[, <номер>]);

<курсор> – курсорная переменная, для которой устанавливается номер BLOB-столбца (если не задан, то функция применяется для канала оператора EXECUTE);

<тип BLOB-значения> – переменная типа INTEGER, значение которой используется для идентификации данных BLOB-столбца (текст, графика, анимация, музыка и т.п.);

<номер> – порядковый номер BLOB-столбца.

Описание

Функция изменяет тип BLOB-значения заданного столбца в выборке. Типизация BLOB-значений регламентируется пользователем. Если аргумент <номер> не задан, по умолчанию используется первый BLOB-столбец выборки.

Пример

Создается таблица tblob, в нее заносятся 10 записей, затем устанавливаются типы BLOB-значений. В конце select-запросом проверяются установленные типы BLOB-значений.

create or replace procedure blobtest(in n int default 10)
declare
    var s cursor(i int, b1 blob, b2 blob); //
    var i,j int default 1; //
    var b byte(100); //
    exception addbloberr for custom 1; //
code
    execute "create or replace table tblob(i int, b1 blob, b2 blob);"; //
    while i <= n loop
       execute direct "insert into tblob(i,b1,b2) values(? , NULL, NULL);" using i; //
       j := 0; //
       while j < i * 3 loop
         b[j] := i * 10 + j; //
         j := j + 1; //
       endloop
       if add_blob(b, i * 3, 2) <> 0 then
          signal addbloberr; //
       endif
       if add_blob(b, i * 3, 3) <> 0 then
          signal addbloberr; //
       endif
       modify_blob_type(i + 100, 2); //
       i := i + 1; //
    endloop
    open s for direct "select i, b1, b2 from tblob;";  //
    while not outofcursor(s) loop
       modify_blob_type(s, s.i + 1000, 3); //
       fetch s;  //
    endloop
exceptions
when others then
    resignal; //
end;

execute blobtest();
select i, getlong(b1, 20), getlong(b2, 20) from tblob;