If rs.RecordCount > 0 Then While Not rs.EOF For i = 0 To rs.Fields.Count - 1 If rs.Fields(i) = 0 Then rs.Fields(i) = 5 Exit For End If Next i Wend End If
If rs.RecordCount > 0 Then Do While Not rs.EOF For i = 0 To rs.Fields.Count - 1 If rs.Fields(i) = 0 Then rs.Fields(i) = 5 Exit do End If Next i rs.movenext loop rs.update End If -----------------select passwd from [user] where id='abcd'
For i = Index To Rs.Fields.Count - 1 'Index是要插入到的字段序号 If Rs.Fields(i) = 0 Then Rs.Fields(i) = 5 Exit For End If Next
2楼 第一个问题已经搞定了 你的这个命令 select passwd from [user] where id='abcd' 只能查到加密的后的 密码 我要能查出 解密后的密码
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i) = 0 Then
rs.Fields(i) = 5
Exit For
End If
Next i
Wend
End If
If rs.RecordCount > 0 Then
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i) = 0 Then
rs.Fields(i) = 5
Exit do
End If
Next i
rs.movenext
loop
rs.update
End If
-----------------select passwd from [user] where id='abcd'
If Rs.Fields(i) = 0 Then
Rs.Fields(i) = 5
Exit For
End If
Next
你的这个命令 select passwd from [user] where id='abcd'
只能查到加密的后的 密码 我要能查出 解密后的密码
...
还得加密算法实现的方式