AdoAdodc1.Recordset.Find
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find ("用户名='" & mz & "'")
If Adodc1.Recordset.EOF Then
MsgBox ("not find ")
Else
MsgBox ("it is here")
End If
为什么出现的对话框老是 notfind
帮帮忙
小弟有礼了
参考答案:Adodc1.Recordset.Find "用户名='" & mz & "'" , , adSearchForward, adBookmarkFirst
'adSearchForward向前查找
'adBookmarkFirst从第一条记录开始找,这很关键,默认是从当前的记录开始查找。可能你的错误就是因它而起的。
lngNum = Adodc1.Recordset.AbsolutePosition
返回当前指针的位置。
当lngNum>0说明找到了。否则未找到
希望对你有帮助