vb调试时对应所需要的名称或序数的集合中,未找到项目

Question

Private Sub Command5_Click()           '检索记录
         Dim zjlx As String
        zjlx = InputBox$("输入学号一个10位数的学号", "查找学生")
        Adodc1.Recordset.MoveFirst
       
        If zjlx <> "" Then
            zjlx = "学号='" & zjlx & "'"
            Adodc1.Recordset.Find (zjlx)
            If Adodc1.Recordset.EOF Then
            MsgBox "没有该同学", 48, "记录查询"
            End If
        End If
End Sub
vb调试时对应所需要的名称或序数的集合中,未找到项目

Answer 1

因为你的记录集中 没有学号这个字段 才会提示这个错误

Answer 2

数据表中的字段名与代码中的字段名不一致

Answer 3

我向毛主席保证 谢谢您们!