必須使用游標的SQL語句有:
·查詢結果為多條記錄的SELECT語句
·CURRENT形式的UPDATE語句
·CURRENT形式的DELETE語句
一、查詢結果為多條記錄的SELECT語句
對于SELECT語句查詢結果為多條記錄時,必須以游標機制作為橋梁,將多條記錄一次一條送至宿主程序處理,從而把對集合的操作轉換為對單個記錄的處理。
前面已經討論了使用游標的步驟為:
說明游標:EXEC SQL DECLARE <游標名> CURSOR FOR <SELECT語句>;
打開游標:EXEC SQL OPEN <游標名>;
推進游標指針并取當前記錄:
EXEC SQL FETCH <游標名>
INTO <主變量>[<指示變量>][,<主變量>[<指示變量>]]...;
關閉游標:EXEC SQL CLOSE <游標名>;
以下以實例討論多記錄的SELECT嵌入式語句的應用:
例1 查詢某個系全體學生的信息。要查詢的系名由用戶在程序運行過程中指定,放在主變量deptname中
......
......
EXEC SQL BEGIN DECLARE SECTION;
......
/* 說明主變量 deptname,HSno,HSname,HSsex,HSage等*/
......
......
EXEC SQL END DECLARE SECTION;
......
......
gets(deptname); /* 為主變量deptname賦值 */
......
EXEC SQL DECLARE SX CURSOR FOR
SELECT Sno, Sname, Ssex, Sage
FROM Student
WHERE SDept=:deptname; /* 說明游標 */
EXEC SQL OPEN SX /* 打開游標 */
WHILE(1) /* 用循環(huán)結構逐條處理結果集中的記錄 */
{
EXEC SQL FETCH SX INTO :HSno, :HSname, :HSsex, :HSage;
/* 游標指針向前推進一行,然后從結果集中取當前行,送相應主變量 */
if (sqlca.sqlcode <> SUCCESS)
break;
/* 若所有查詢結果均已處理完或出現SQL語句錯誤,則退出循環(huán) */
/* 由主語言語句進行進一步處理 */
......
......
};
EXEC SQL CLOSE SX; /* 關閉游標 */
......
......
說明:
*) 本例要查詢deptname系的所有學生的學號、姓名、性別和年齡。
*) 首先定義游標SX,將其與查詢結果集(即deptname系的所有學生的學號、姓名、性別和年齡)相聯系(語句①)。這時相應的SELECT語句并沒有真正執(zhí)行。
*) 然后打開游標SX,這時DBMS執(zhí)行與SX與相聯系的SELECT語句,即查詢deptname系的所有學生的學號、姓名、性別和年齡(語句②),之后SX處于活動狀態(tài)。
*) 接下來在一個循環(huán)結構中逐行取結果集中的數據,分別將學號Sno、姓名Sname、性別Ssex和年齡Sage送至主變量HSno、HSname、HSsex和HSage中(語句③)。主語言語句將對這些主變量做進一步處理。
*) 最后關閉游標SX(語句④)。這時SX不再與deptname系的學生數據相聯系。
*) 被關閉的游標SX實際上可以再次被打開,與新的查詢結果相聯系。例如,可以在例1中再加上一層外循環(huán),每次對deptname賦新的值,這樣SX就每次和不同的系的學生集合相聯系。如例2所示。
例2 查詢某些系全體學生的選課信息。
......
......
EXEC SQL BEGIN DECLARE SECTION;
......
/* 說明主變量 deptname,HSno,HSname,HSsex,HSage等*/
......
......
EXEC SQL END DECLARE SECTION;
......
......
......
EXEC SQL DECLARE SX CURSOR FOR
SELECT Sno, Sname, Ssex, Sage
FROM Student
WHERE SDept=:deptname; /* 說明游標 */
WHILE (gets(deptname)!=NULL) /* 接收主變量deptname的值 */
{
/* 以下處理deptname指定系學生信息,每次循環(huán)中deptname可具不同值*/
EXEC SQL OPEN SX /* 打開游標 */
WHILE (1)
{ /* 用循環(huán)結構逐條處理結果集中的記錄 */
EXEC SQL FETCH SX INTO :HSno, :HSname, :HSsex, :HSage;
/* 游標指針向前推進一行,然后取當前行送相應主變量 */
if (sqlca.sqlcode <> SUCCESS)
break;
/* 若所有結果處理完畢或出現語句錯誤,則退出循環(huán) */
/* 由主語言語句進行進一步處理 */
......
......
}; /* 內循環(huán)結束 */
EXEC SQL CLOSE SX; /* 關閉游標 */
}; /* 外循環(huán)結束 */
非CURRENT形式的UPDATE語句和DELETE語句都是集合操作,一次修改或刪除所有滿足條件的記錄。而如果只想修改或刪除其中某個記錄,則需要用帶游標的SELECT語句查出所有滿足條件的記錄,從中進一步找出要修改或刪除的記錄,然后修改或刪除之。具體步驟是:
(1) 說明游標
如果是為CURRENT形式的UPDATE語句作準備,則SELECT語句中要用 FOR UPDATE OF <列名>
子句指明將來檢索出的數據在指定列是可修改的。
如果是為CURRENT形式的DELETE語句作準備,則不必使用上述子句。
(2) 打開游標
把所有滿足查詢條件的記錄從指定表取到緩沖區(qū)中。
(3) 推進游標指針
并把當前記錄從緩沖區(qū)中取出來送至主變量。
(4)檢查該記錄是否是要修改或刪除的記錄
如果是,則用UPDATE語句或DELETE語句修改或刪除該記錄。這時UPDATE語句和DELETE語句中要用
WHERE CURRENT OF <游標名>
表示修改或刪除的是該游標中最近一次取出的記錄,即游標指針指向的記錄。
第3和4步通常用在一個循環(huán)結構中,通過循環(huán)執(zhí)行FETCH語句,逐條取出結果集中的行進行判斷和處理。
(5) 處理完畢關閉游標
釋放結果集占用的緩沖區(qū)和其他資源。
例3 查詢某個系全體學生的信息(要查詢的系名由主變量deptname指定),然后根據用戶的要求修改其中某些記錄的年齡字段。
......
......
EXEC SQL BEGIN DECLARE SECTION;
......
/* 說明主變量 deptname,HSno,HSname,HSsex,HSage,NEWAge等*/
......
......
EXEC SQL END DECLARE SECTION;
......
......
gets(deptname); /* 為主變量deptname賦值 */
......
EXEC SQL DECLARE SX CURSOR FOR
SELECT Sno, Sname, Ssex, Sage
FROM Student
WHERE SDept=:deptname
FOR UPDATE OF Sage; /* 說明游標 */
EXEC SQL OPEN SX /* 打開游標 */
WHILE(1)
{ /* 用循環(huán)結構逐條處理結果集中的記錄 */
EXEC SQL FETCH SX INTO :HSno, :HSname, :HSsex, :HSage;
/* 游標指針向前推進一行,然后從結果集中取當前行,送相應主變量 */
if (sqlca.sqlcode <> SUCCESS)
break;
/* 若所有查詢結果均已處理完或出現SQL語句錯誤,則退出循環(huán) */
printf("%s, %s, %s, %d", Sno, Sname, Ssex, Sage); /* 顯示該記錄 */
printf("UPDATE AGE ? "); /* 問用戶是否要修改 */
scanf("%c",&yn);
if (yn='y' or yn='Y') /* 需要修改 */
{
printf("INPUT NEW AGE: ");
scanf("%d",&NEWAge); /* 輸入新的年齡值 */
EXEC SQL UPDATE Student
SET Sage=:NEWAge
WHERE CURRENT OF SX; /* 修改當前記錄的年齡字段 */
};
......
......
};
EXEC SQL CLOSE SX; /* 關閉游標 */
......
......
例4 查詢某個系全體學生的信息(要查詢的系名由主變量deptname指定),然后根據用戶的要求修改刪除其中某些記錄。
......
......
EXEC SQL BEGIN DECLARE SECTION;
......
/* 說明主變量 deptname,HSno,HSname,HSsex,HSage等*/
......
......
EXEC SQL END DECLARE SECTION;
......
......
gets(deptname); /* 為主變量deptname賦值 */
......
EXEC SQL DECLARE SX CURSOR FOR
SELECT Sno, Sname, Ssex, Sage
FROM Student
WHERE SDept=:deptname; /* 說明游標 */
EXEC SQL OPEN SX /* 打開游標 */
WHILE(1)
{ /* 用循環(huán)結構逐條處理結果集中的記錄 */
EXEC SQL FETCH SX INTO :HSno, :HSname, :HSsex, :HSage;
/* 游標指針向前推進一行,然后從結果集中取當前行,送相應主變量 */
if (sqlca.sqlcode <> SUCCESS)
break;
/* 若所有查詢結果均已處理完或出現SQL語句錯誤,則退出循環(huán) */
printf("%s, %s, %s, %d", Sno, Sname, Ssex, Sage); /* 顯示該記錄 */
printf("DELETE ? "); /* 問用戶是否要刪除 */
scanf("%c",&yn);
if (yn='y' or yn='Y') /* 需要刪除 */
EXEC SQL DELETE
FROM Student
WHERE CURRENT OF SX; /* 刪除當前記錄 */
......
......
};
EXEC SQL CLOSE SX; /* 關閉游標 */
......
......
注意:
當游標定義中的SELECT語句帶有UNION或ORDER BY子句時,或者該SELECT語句相當于定義了一個不可更新的視圖時,不能使用CURRENT形式的UPDATE語句和DELETE語句。