请教：怎样实现按一定检索条件逐条更新记录的一个字段

[sunlijun]

我想实现的功能是：根据操作员所在部门，对此部门所有人员生成随机登陆密码，没生成一个密码，就写入数据库中密码字段。
下面是我生成随机密码的代码：
long i, ll_loop
string ls_result

ll_loop = 8

for i = 1 to ll_loop
li_num = Rand(122)
choose case li_num
case 48 to 57
ls_result = ls_result + char(li_num) //数字
case 65 to 90
ls_result = ls_result + char(li_num) //大写字母
case 97 to 122
ls_result = ls_result + char(li_num) //小写字母
case else
ll_loop++
end choose
next

[ice2water]

使用游标及update语句即可

[sunlijun]

帮我看一下有什么错误：

提示：ls_result不是字段，本来就不是字段呀！
long i, ll_loop
string ls_result
int li_num
string ls_mima
boolean lb_continue

declare mima_cur cursor for select j_renyuan.mima from j_renyuan where j_renyuan.hangming='201';
open mima_cur;

lb_continue=True
DO WHILE lb_continue
FETCH mima_cur
INTO:ls_mima;

If sqlca.sqlcode=0 Then
ll_loop = 8

for i = 1 to ll_loop

li_num = Rand(122)

choose case li_num
case 48 to 57
ls_result = ls_result + char(li_num)
case 65 to 90
ls_result = ls_result + char(li_num)
case 97 to 122
ls_result = ls_result + char(li_num)
case else
ll_loop++
end choose
next
//messagebox('',ls_result)
UPDATE j_renyuan SET j_renyuan.mima=ls_result
WHERE CURRENT of mima_cur;
Else
lb_continue=False
End If
LOOP

[qlzgdzfl]

少了东东连
UPDATE j_renyuan SET j_renyuan.mima=ls_result
为UPDATE j_renyuan SET j_renyuan.mima=:ls_result

[sunlijun]

谢谢！
再请教一下，因为人员很多，我想做一个进度条，怎样控制？