例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