UC知道Private Sub cmd_find_Click()
来源：百度知道 编辑：UC知道 时间：2024/06/17 14:21:35
Private Sub cmd_find_Click()
Dim findID As String
findID = InputBox("请输入员工ID", "按员工ID搜索")
If findID <> "" Then
findID = "员工ID=""&findID&"""
Data1.Recordset.FindFirst (findID)
If Data1.Recordset.NoMatch Then
y = MsgBox("没有相应的员工记录", vbOKOnly, "信息")
End If
End If
End Sub
哪里错了,为什么相应的数据库里有记录也搜索不到
Dim findID As String
findID = InputBox("请输入员工ID", "按员工ID搜索")
If findID <> "" Then
findID = "员工ID=""&findID&"""
Data1.Recordset.FindFirst (findID)
If Data1.Recordset.NoMatch Then
y = MsgBox("没有相应的员工记录", vbOKOnly, "信息")
End If
End If
End Sub
哪里错了,为什么相应的数据库里有记录也搜索不到
问题出在findID = "员工ID=""&findID&""" 上，程序运行到这一行之前，findID的值为你输入的，运行完这一行，findID的值为“员工ID="&findID&"”，虽然我不知道你的用意，但这个结果肯定是有问题的，你说是吗？