code12.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 19 行

程序段12
这段程序是将数据库表"nativeplaces"中的值循环写入数据窗口列
"nativeplace_code"中

string code
string nativeplace
int i=1
declare cl cursor for
   select native_place,nativeplace_code from
   nativeplaces using SQLCA;
open c1;
fetch c1 into : nativeplace, : code;
DO WHILE sql.sqlcode=0
   setvalue(dw_1,"nativeplace_code",+i,nativeplace+"~t"+code)
   i=i+1
   fetch c1 into : nativeplace,:code;
loop
close c1;