测试例子:(增加一个按钮)
long ll_count
is_keyid = '15'
select keyid into :is_keyid from tb_keydata where ickeycard = '1000';
if sqlca.sqlcode <> 0 then
messegebox(" sql error", "is_keyid")
end if
select count(1) into :ll_count from tb_keydata where ickeycard = '1000';
if ll_count < 1 then
messegebox("", "")
end if
is_keyid 是共享变量, 共享变量是一种静态变量,这不仅意味着它所在的对象关闭后再次打开时,共享变量依然保持对象关闭时的值,而且还意味着同一个类多个实例中的同名共享变量保持相同的值。这次错误的地方是is_keyid一直都保持为‘15’。往后,每次使用select,delete,update,insert into(增删查改)都要使用sqlca.sqlcode判断。