游標是一個非常有效的記錄集處理方式,在PB中游標用的地方比較廣泛,下面是在PB中游標使用的整個過程,基本包括定義游標、打開游標、操作游標和關閉游標這幾個步驟,具體如下代碼所示:
//定義游標
DECLARE C1 CURSOR FOR
//游標的具體取值內容
select aln_cd,sum(cargo_aln_fare) from fare_daily_view
where aln_cd <> '000' and cargo_aln_fare <> 0 and act_fare_dt between :emstart and :emend
group by aln_cd; //注意,這里的分號千萬不能丟掉
//打開游標
OPEN C1;
DO WHILE sqlca.SQLCODE=0
//將游標內的數據一條條存放到數組里
i += 1
FETCH C1 INTO :record,:fare_sum; //使用fetch取值到變量record和fare_sum中
re_cd[i] = string(record)
fr_sum[i] = string(fare_sum,"0.00")
LOOP
//關閉游標
CLOSE C1;
新聞熱點
疑難解答