游标使用

DECLARE mycur CURSOR FOR
 SELECT distinct users.lg_name
 FROM users;
 
OPEN mycur;

DO
 
 FETCH mycur INTO :glydl;
  if sqlca.sqlcode<>0 then exit
 
ddlb_1.additem(string(glydl))

 loop while sqlca.sqlcode=0
 
CLOSE mycur;