UC知道高分求助VB高手有关data控件的问题---回答好的话另有加分！！
来源：百度知道 编辑：UC知道 时间：2024/06/15 21:36:45
Data1.Refresh
Dim 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 If
End If
我发现我不管输入什么，都是("此学号已被添加，请您确认后填写")
怎么回事啊？
text1(0)的datafield是数据库的stu_id
我是想在单击保存按钮的时候，先查找数据库里有没有相同学号的人
Dim 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 If
End If
我发现我不管输入什么，都是("此学号已被添加，请您确认后填写")
怎么回事啊？
text1(0)的datafield是数据库的stu_id
我是想在单击保存按钮的时候，先查找数据库里有没有相同学号的人
我的代码片段，执行查询 后结果正确输出
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Name") = Trim(Text1.Text) Then
FindUser = True
If Adodc1.Recordset.Fields("Npassword") = Trim(Text2.Text) Then
Me.Hide
frmMain.Show
strUser = Trim(Text1.Text)
Unload Me
Exit Sub
Else
MsgBox "请重新输入用户密码！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
End If
Adodc1.Recordset.MoveNext
Loop
If FindUser = False Then
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Data1.Recordset.FindFirst (findstu_id)
改成
Data1