【学生信息管理系统】-错误篇1

开始学生有一段时间了，一直总结在文档里，现在来博客总结一下，梳理一下思路。
【问题】
1子函数未定义问题

问题分析：窗体界面的Text命名问题和创建控件数组问题

1）代码部分是Text1，但是窗体中我改了名字
2）Text1（）：这是创建的控件数组，但是我窗体中用的是Text1、Text2、Text3，并没有创建数组。
问题总结：这应该是最基础的问题了，但是开始还不会，想了半天，才发现这个问题，看来我计算机是白学了，还有很大的进步空间。

2实时错误-2147217887：多步OLE DB操作产生错误。如果可能，请检查每个OLEDB状态值，没有工作被完成。
问题分析：字符串的长度超出了数据库的限制（联系电话框中输入了11位，但是数据库中限制10位）
解决如下：
1）打开Microsoft SQL Server 2014 —>Management Studio —>点到学生表（student-info）—>右键—>设计；

2）修改完之后发现：不能保存；不用担心，修改一下设置就好了。

3）Management Studio—>工具—>选项—>设计器 —>”组织保存要求重新创建表的更改”—>取消打勾即可。

问题总结：站在巨人的肩膀上，学习起来会轻松一些。

3实时错误91（对象变量或With块变量未设置）
问题分析：
1）txtSQL查询语句中的标点符号是否错误，前后是否有空格；
2）SQLServer 2014服务被停止运行，访问被拒绝。
解决如下：
1）出现91错误的原因就是没有连接到数据库，某一步出现问题，然后我开始对每一步进行检查：首先我检查了txtSQL语句中标点，没有问题；然后检查ODBC数据源，一步步进行，出现了如下问题：

2）访问被拒绝，然后我上网查，有一个差不多的问题，然后我根据这个问题进行了这样的操作：Microsoft SQL Server 2014 —>配置管理器—>开启第三个已停止的服务，然后就可以连接上数据库了。

4编译错误：ByRef参数类型不符
问题分析：定义类型出错或者是未定义
问题解决：检查一下是否定义或定义类型是否正确。

5学号字符串长度过长报错

由于学号字符串长度过长，数据库出现如下数据库问题：

Int32, 等于int, 占4个字节. -2147483648 2147483647 看到这里，明白了，原来学号字符串的长度超出了数据库单元格设置的数据类型Int32的数值长度。

6.3021错误优化
错误情景：在修改窗体中，一直删除，删除到没有记录之后还在删除就会报出3021错误，优化如下：
在删除按钮中加代码

On Error GoTo 1
...
1:
If mrc.EOF = True Then
    MsgBox "记录已经删除到最后一条，请重新添加"
    Unload Me
End If

在FrmMain中加入如下代码：

Private Sub modifycinfoMenu_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    'SQL语句
    txtSQL = "select * from class_Info "
    '执行查询操作
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.BOF = True Then
        MsgBox "当前没有记录，请重新添加记录"
    Exit Sub
    End If
    frmModifyclassinfo.Show
End Sub