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
在线给分!

解决方案 »

  1.   

    什么数据库?如果是sql server,考虑用存储过程,关键语句如下:Set @bdecMaxId=0
    Update table Set @bdecMaxId=fldId=@bdecMaxId+1
      

  2.   

    dxgszj = connm.Execute "select smssl from  user    where username='" + rsm.Fields("username") + "'".Fields(0)  
    *****************************************************************************
    欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/
      

  3.   

    dxgszj = connm.Execute( "select smssl from  user    where username='" + rsm.Fields("username") + "'").Fields(0)