超级郁闷，进来帮忙！VB
'On Error Resume Next
set rs= new adodb.recrodset
rs.open"select * from login",conn,1,3
Dim aa As String
If aa = MsgBox("您确认要删除此用户吗?", vbOKCancel, "警告") = vbOK Then
If rs.RecordCount >= 0 Then
rs.Delete
End If
If rs.RecordCount < 0 Then
MsgBox "已经没有可用的用户了!", vbInformation, "提示信息"
End If
End Sub
_________________________________________
疑问有3：
1，删除时点击“否”竟然也删除记录了
2,删除的记录竟然不是当前记录，而是当前记录的下一条记录，郁闷
3，我在rs.delete上面加一句rs.MovePrevious就删除可以当前记录!
各位提供错误解决一下，谢谢！
问题点数：20、回复次数：8Top
1 楼hupublic（哭泣的农民）回复于 2006-07-04 10:56:26 得分 0
哦，晕，第一个已经解决了，我写错了。Top
2 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-04 10:56:51 得分 10
aa = MsgBox("您确认要删除此用户吗?", vbOKCancel, "警告") = vbOK
语句本身错误
MsgBox("您确认要删除此用户吗?", vbOKCancel, "警告") = vbOK
这样就可以了
前面那个aa = 放进去以后就一直为trueTop
3 楼hupublic（哭泣的农民）回复于 2006-07-04 11:11:37 得分 0
Dim aa As String
'aa = MsgBox("您确认要删除此用户吗?", vbOKCancel, "警告")
If rs.RecordCount >= 0 Then
rs.Delete
end if
还是删除下一条记录Top
4 楼of123（）回复于 2006-07-04 11:50:55 得分 0
你说的当前用户是通过什么记录集显示在哪里的？Top
5 楼of123（）回复于 2006-07-04 11:54:00 得分 10
其实用不着创建新的记录集：
conn.Execute "Delete From login Where username = '" & txtUserName & "'"Top
6 楼hupublic（哭泣的农民）回复于 2006-07-04 13:52:18 得分 0
如这样
Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from login ", conn, 1, 3
End Sub
Private Sub cmdupdate_Click()
'On Error Resume Next
Dim aa As String
aa = MsgBox("您确认要修改此用户的信息吗?", vbOKCancel, "警告")
If Not rs.EOF Then
If aa = vbOK Then
rs("user_id").Value = Trim(Text1.Text)
rs("password").Value = Trim(Text2.Text)
rs("name").Value = Trim(Text3.Text)
rs("phone").Value = Trim(Text4.Text)
rs.Update
End If
End If
End Sub
————————————————————
更新了下一条，郁闷Top
7 楼hupublic（哭泣的农民）回复于 2006-07-04 18:52:14 得分 0
我顶！Top
8 楼hupublic（哭泣的农民）回复于 2006-07-05 10:02:55 得分 0
高手哪去了？
Top
