例 1 (すべての行をフェッチ)

このスクリプトはテーブルを反復処理し、すべての行をフェッチします。これは、access という名前の Northwind Access データベースを想定しており、Categories テーブルのすべてのカテゴリを収集します。

PROCEDURE fetchExample1 (OUT category CHAR) 

BEGIN

  DECLARE temp CHAR;

  DECLARE f CURSOR FOR SELECT Categories.CategoryName

                       FROM /shared/access/Categories Categories;

  SET category = '';

  OPEN f;

  FETCH f INTO temp;  

  -- Must call FETCH first, otherwise FOUND is false.

  WHILELOOP:

  WHILE f.FOUND

    DO

    BEGIN

      SET category = CAST (CONCAT (CONCAT (category, ' ') , temp) AS CHAR (255) ) ;

      FETCH f INTO temp;

    END;

  END WHILE;

  CLOSE f;

END