高手救我!BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from user where name='" + DataCombo1.BoundText + "'"
Adodc1.Refresh
If DataCombo1.BoundText <> "" And Text1.Text <> "" And Text1.Text = Adodc1.Recordset.Fields("password") Then
Load Form2
Form2.Show
Unload Me
Else
If tim = 2 Then
myval = MsgBox("密码错误！", 0, "")
If myval = vbOK Then End
End If
If DataCombo1.BoundText = "" Then
MsgBox ("请输入操作员！")
DataCombo1.SetFocus
Else
If DataCombo1.BoundText <> Adodc1.Recordset.Fields("name") Then
MsgBox ("查无此操作员！请重新输入")
DataCombo1.SetFocus
Else
If Text1.Text = "" Then
MsgBox ("请输入操作员密码！")
Text1.Text = ""
Text1.SetFocus
Else
If Text1.Text <> Adodc1.Recordset.Fields("password") Then
MsgBox ("密码错误，请重新输入！")
tim = tim + 1
Text1.Text = ""
Text1.SetFocus
End If
End If
End If
End If
End If
End Sub
教我详细改改``感激不尽
我数据库里有2条数据

试试看这样
Adodc1.RecordSource = "select * from [user] where name='" + DataCombo1.BoundText + "'"

3个月你才想到来提问,我汗~~

昨天在知道这个论坛滴``
  你的方法没用哦``还是那提示`

if Adodc1.Recordset.EOF<>true and Adodc1.Recordset.BOF<>true then

或者adodc1.recordset.recordcount >0 then

哪个地方有问题？

完全不知道什么意识`

意思是检验adodc里是否 记录为空  自己琢磨！！
还有建议你尽量不要用adodc这样的东西，   使用ADO来连接操作数据库

我上面不是说了吗？有两条记录的，我们老师说adodc比ADO功能上完善些`所以才用的

老师说  无语  害人不浅    你们老师行不行?    呵呵

[[it] 本帖最后由 simpson 于 2008-4-16 11:14 编辑 [/it]]

4楼的就是答案
用户名不应该有重复的所以adodc里应该只有一条记录或者没有记录

就算有两条好象你也只比较第一条记录,有movenext之类的操作吗?   

adodc只是应用ADO实现的一个控件而已,什么老师说adodc比ADO功能上完善些?  你们老师不行吧?  

误人子弟!!
  


长叹一声   离去