。在哪里我看不见对象的错误是必需的? vb6

时间:2019-05-16 18:46:52

标签: vb6

我是vb6.0的新手,并一直在寻找错误。请注意,这几个月来一直在为我的小项目尝试编程。我似乎遇到了运行时错误424,其中需要一个对象

这是我尝试使用ms Access 2010连接到数据库的登录界面。 在数据库ive内部,我使用名称和id作为用户名和密码的参数进行即时通讯。

Private Sub loginbtn_Click()
Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + txtuser.Text + "'"
Adodc1.Refresh
If (Adodc1.Recordset.EOF = False) Then
    If (txtpass.Text = Adodc1.Recordset.Fields("ID")) Then
    MsgBox "Login Succeeded!"
    Unload Me
    Form5.Show
    Else
    MsgBox "Invalid Password!", vbCritical, "Login"
    txtuser.Text = ""
    txtpass.Text = ""
    txtuser.SetFocus
    End If
Else
    MsgBox "Invalid Username or Password!", vbCritical, "Login"
     txtuser.Text = ""
    txtpass.Text = ""
    txtuser.SetFocus
    End If
End Sub

当我输入变量时,它会显示运行时错误“ 424”并在此行进行调试。 Adodc1.RecordSource = "select * from STUDENTINFO where Name = '" + txtuser.Text + "'" 您的帮助非常有用

0 个答案:

没有答案