說明:sqlca和remotesql分別連兩個不同的機子上的資料庫
int I
I=1
DECLARE my_cursor CURSOR FOR
select segmentBegin,segmentEnd,bl,typeflag
from HospitalRule
where audityear=:for_year order by segmentBegin using remotesql;
OPEN my_cursor ;
FETCH my_cursor INTO :fd_segmentBegin[I], :fd_segmentEnd[I], :bd_bl[I], :bd_type[I];
Do While SQLCA.SQLCode =0
｛//處理操作｝
FETCH my_cursor INTO : fd_segmentBegin[I], :fd_segmentEnd[I], :bd_bl[I], :bd_type[I ] ;
Loop
CLOSE my_cursor ;
運行后程式一直在do while里回圈出不出，最后造成陣列出界。而sql陳述句中只有兩條記錄。
uj5u.com熱心網友回復：
不好意思，犯了張冠李戴的低級錯誤，回圈條件應該是：Do While remotesql.SQLCode =0uj5u.com熱心網友回復：
呵呵，資料庫連錯了uj5u.com熱心網友回復：
up。、、、uj5u.com熱心網友回復：
你這個有錯的，你的事物物件一個是REMOTESQL。一個事SQLCA。這個一定是錯了。
uj5u.com熱心網友回復：
int I
I=1
DECLARE my_cursor CURSOR FOR
select segmentBegin,segmentEnd,bl,typeflag
from HospitalRule
where audityear=:for_year order by segmentBegin using remotesql;
OPEN my_cursor ;
FETCH my_cursor INTO :fd_segmentBegin[I], :fd_segmentEnd[I], :bd_bl[I], :bd_type[I];
Do While remotesql.SQLCode =0
｛//處理操作｝
FETCH my_cursor INTO : fd_segmentBegin[I], :fd_segmentEnd[I], :bd_bl[I], :bd_type[I ] ;
Loop
CLOSE my_cursor ;
uj5u.com熱心網友回復：
很多錯誤都是大意引起uj5u.com熱心網友回復：
我也會犯類似的錯誤轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/97913.html
標籤：腳本語言
上一篇：急！tab控制元件問題