vb6中记录集的非特定行为

Question

亲爱的专家    我有以下问题 当我尝试从记录集中获取值时，它显示错误  查询是

 SSql =“选择doj，dol，来自m_employee的employeeid where employeeid ='”＆amp;修剪（RsCardNo！代码）＆amp; “'” rsCardRepl.Open SSql，Conn，adOpenDynamic，adLockOptimistic
  如果rsCardRepl.RecordCount＆gt; 0然后 昏暗的温度作为整数   temp =修剪（rsCardRepl！employeeId）  rsAddPunch！PAYCODE = temp   结束如果

然后以下行给出错误

temp = Trim（rsCardRepl！employeeId）

错误编号= 6 错误描述=溢出

请解释一下为什么会出现这个错误以及解决方案是什么

由于 海军Kishor Pandey

Answer 1

尝试使用游标类型adOpenForwardOnly并锁定类型adLockReadOnly

Answer 2

也许您需要像temp

那样定义Dim temp As Long

简单来说，溢出错误意味着该值不适合变量。

• VB6 Integer可以取值-32,768到32,767
• Long可以取值-2,147,483,648到2,147,483,647