Data1.RefreshDim findstu_id As String
findstu_id = Text1(0).Text
If findstu_id <> "" Then
findstu_id = "stu_id= '" & findstu_id & "'"
Data1.Recordset.FindFirst (findstu_id)
If Data1.Recordset.NoMatch Then
MsgBox ("success")
Else
MsgBox ("此学号已被添加,请您确认后填写")
End IfEnd If我发现我不管输入什么,都是("此学号已被添加,请您确认后填写")text1(0)的datafield是数据库的stu_id我是想在单击保存按钮的时候,先查找数据库里有没有相同学号的人怎么回事啊?因为我在csdn没有什么分,不过我希望能有人帮我解决一下,我可以送百度的分
findstu_id = Text1(0).Text
If findstu_id <> "" Then
findstu_id = "stu_id= '" & findstu_id & "'"
Data1.Recordset.FindFirst (findstu_id)
If Data1.Recordset.NoMatch Then
MsgBox ("success")
Else
MsgBox ("此学号已被添加,请您确认后填写")
End IfEnd If我发现我不管输入什么,都是("此学号已被添加,请您确认后填写")text1(0)的datafield是数据库的stu_id我是想在单击保存按钮的时候,先查找数据库里有没有相同学号的人怎么回事啊?因为我在csdn没有什么分,不过我希望能有人帮我解决一下,我可以送百度的分
Data1.Refresh
Dim s As String
s = Text2.Text
s = "ID='" & s & "'"
Data1.Recordset.FindFirst s
Debug.Print Data1.Recordset.NoMatch
End Sub
我用这段代码测试没问题
设置一个断点看看findstu_id的值
说不定findstu_id的值有问题