数据库更新数据有关问题

数据库更新数据问题

VB code

rs.Open "select * from 无线固话清单", conn, 1, 1（好像此句要修改）If rs.RecordCount > 0 Then rs.MoveFirst '这行一定要加上    For i = 0 To rs.RecordCount - 1      rs("aaa") = i  Next iEnd If

VB code

rs.Open "select * from 无线固话清单", conn, 1, 1If rs.RecordCount > 0 Then rs.MoveFirst '这行一定要加上     For i = 0 To rs.RecordCount - 1     conn.execute " update 无线固话清单 set aaa="& i &""     rs.movenext  Next iEnd If
[解决办法]
rs.Open "select * from 无线固话清单", conn, 1, 1（好像此句要修改）
If rs.RecordCount > 0 Then
  rs.MoveFirst '这行一定要加上
    
 For i = 0 To rs.RecordCount - 1
     rs("aaa") = i
     rs.movenext
 Next i
 rs.Update
End If