rsm.Open "SELECT * FROM user WHERE dingshi.username=user.username ", connm
If rsm.EOF = False Then
While rsm.EOF = Falsedxgszj = Int(Trim(rsm.Fields("smssl")))
dxgszj = dxgszj + 1
connm.Execute "update user set smssl='" + Trim(Str(dxgszj)) + "' where username='" + rsm.Fields("username") + "'" 比如数据库中smssl字段数值为1,在这个循环中即使循环10次,运算的结果还是1+1=2,如何将rsm.Fields("smssl")实时取出然后加1?例如循环10次,实时取出smssl字段的值,然后加1?
DoEventsEnd Ifrsm.MoveNext
Wend
End If
connm.Close
Set connm = Nothing
Set rsm = Nothing
在线给分!
If rsm.EOF = False Then
While rsm.EOF = Falsedxgszj = Int(Trim(rsm.Fields("smssl")))
dxgszj = dxgszj + 1
connm.Execute "update user set smssl='" + Trim(Str(dxgszj)) + "' where username='" + rsm.Fields("username") + "'" 比如数据库中smssl字段数值为1,在这个循环中即使循环10次,运算的结果还是1+1=2,如何将rsm.Fields("smssl")实时取出然后加1?例如循环10次,实时取出smssl字段的值,然后加1?
DoEventsEnd Ifrsm.MoveNext
Wend
End If
connm.Close
Set connm = Nothing
Set rsm = Nothing
在线给分!
Update table Set @bdecMaxId=fldId=@bdecMaxId+1
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/