学生信息管理系统——错误集锦（一）

怎么说呢！这是一个新征程，虽然它已经开始了一段时间，只想说开始总是那么的不易，古语说得好“万事开头难”，很好，我已经开始了！接下来，一起先来看看一直以来我遇到的问题吧！

解决办法：
Dim mrc As ADODB.Recordset '对mrc变量的定义应为“Dim mrc AS New ADODB.Recordset”

原因：一般原因为无法打开数据库的表，自己原因是代码错误，没有连接到数据库
修改：
模块中的错误：ConnectString = “FileDSN=studentinfo.dsn;UID=sa;PWD=”
应修改为：ConnectString = “FileDSN=student.dsn;” 'UID=sa;PWD="
原因：ODBC连接的是student，注释原因：自己用的是Windows连接而不是密码，所以要注册掉。

错误：

***If Trim(txtUserName.Text = "") Then***		 应改为：If Trim(txtUserName.Text) = "" Then
        MsgBox "用户名为u空！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        
    Else
        '查询指定用户名的记录
        txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
            '判断输入密码是否正确
            If Trim(mrc.Fields(1)) = Trim(txtPassWord.Text) Then
                OK = True
'                mrc.Close
'                Me.Hide
                UserName = Trim(txtUserName.Text)
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtPassWord.SetFocus
                txtPassWord.Text = ""
            End If
        End If
    End If
        MsgBox "用户名为u空！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
        
    Else
        '查询指定用户名的记录
        txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
        '执行查询语句
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        ***If mrc.EOF = True Then***						应改为：If mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
            '判断输入密码是否正确
            If Trim(mrc.Fields(1)) = Trim(txtPassWord.Text) Then
                OK = True
'                mrc.Close
'                Me.Hide
                UserName = Trim(txtUserName.Text)
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtPassWord.SetFocus
                txtPassWord.Text = ""
            End If
        End If
End If
'记载输入密码次数
    miCount = miCount + 1
    If miCount = 3 Then
        Me.Hide                         ‘卸载当前窗体
        frmMain.Show                    ‘加载主窗体
    End If
    Exit Sub
End Sub

个人理解：
If mrc.EOF = True Then
MsgBox “没有这个用户，请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
表示：如果数据库内有记录，且检测到输入的内容为数据库内有的记录，就会提示“没有这个用户，请重新输入用户名!”
If mrc.EOF = False Then
MsgBox “没有这个用户，请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”
表示：如果数据库内又记录，且检测到数据库内没有输入的内容，就会提示“没有这个用户，请重新输入用户名!”。
**对EOF与BOF的详细的解释：**https://blog.csdn.net/MyxZxd/article/details/81875517

好了，今天就到这里了，当然这远远还没有结束，这注定是一场惊险刺激的过程，接下来敬请期待吧！