学生信息管理系统系列二：常见问题

约定不等于承诺〃 2022-08-24 08:50 188阅读 0赞

**错误一：**

**“实时错误’3021’，BOF或EOF中有一个是“真“，或者当前的记录已被删除，所需的操作要求一个当前的记录。”**

![SouthEast][]

**学生信息管理系统中一点击修改信息都会出现这个错误：**

**产生这种错误的原因是因为没有数据可以进行修改，为了避免他在使用过程中出现这种提示对源代码进行了一下改进：**

**Private Sub Form\_Load()  
'添加错误处理  
    Dim txtSQL As String  
    Dim MsgText As String  
     
    txtSQL = "select \* from class\_Info"  
    Set mrc = executesql(txtSQL, MsgText)       '得到student表，并显示出来  
    On Error GoTo dateErr  '如果有错误直接执行dateErr那一步  
    mrc.MoveFirst       '  
    Call viewData  
    myBookmark = mrc.Bookmark  
    mcclean = True  
  
  
dateErr:  
     If Err = 3021 Then  
         MsgBox "没有数据"  
    End If**

**错误二：**

**实时错误91 对象变量或with块变量未设置**

![SouthEast 1][]

**这个错误可是个经典的错误啊，这学生信息管理系统中经常会出现的错误，一个不小心可能就会出现这个错误，为什么会出现这个错误呢？最大的原因就是ODBC配置数据库没有配置好**

**那么从哪里找错误呢？**

![SouthEast 2][]

**找connectstring 语句中找错误，图中的那两个红色标记的地方一定要注意（前面注释的那行是正确的），FileDSN这个是要连接的数据库的名称，这个名称要跟ODBC配置数据库的名字是同一个，PWD这个是SQL server 的登陆密码，如下图中显示的，这两个地方是最关键的。**

![SouthEast 3][]

**其中可能会出现这种错误的原因就是查询语句出错的原因了。注意要查找表的名字是否正确，大小写的问题，是否多或者少空格，符号是否丢失，符号是否正确。细心点就好啦。**

**错误三：**

**实时错误381  下标越限**

![SouthEast 4][]

![SouthEast 5][]

**错误的原因是什么呢？myflexgrid 属性设置的问题，下图这还是最原始的状态……**

![SouthEast 6][]

**选中myflexgrid，右击-->属性，出现属性页。如图，在“通用”中选择合适的行和列，点击确定就可以了……**

![SouthEast 7][]

![SouthEast 8][]

**错误四：**

**编辑错误：未找到方法和数据成员**

**![SouthEast 9][]**

**这个从字面上就可以找到原因了，主要是这个控件或者某个属性写的不对了，才会出现这种错误，点击确定以后，焦点就自动放到出错的那行了，自己修改一下就好了。**

**错误五：**

**有个错误我把它叫做“假死”，为什么要叫做这个名字呢？我点击运行以后，登陆界面打开，输入账号和密码以后，没有进入frmmain的界面，就这样运行着，什么也不出现。**

**![SouthEast 10][]**

**我以为是我connectstring语句的问题，看了以后发现没什么问题，于是把启动窗体改成了frmmain，这个可以进去，那么就不是connectstring语句的问题了。这次发现启动窗体刚才是frmlogin而不是sub main，改成sub main以后就可以了，这次不会出现假死了……**

**这些问题都是在学生信息系统中经常会出现，自己也是遇到问题以后无从下手，弄完以后才发现遇到的问题也就这几个，反复着，找到原因就知道从哪里下手了。**

[SouthEast]: /images/20220823/f6b43b8933504368a43872fc8252786a.png
[SouthEast 1]: /images/20220823/08c262bdd93d4061bc5458456cbc3b54.png
[SouthEast 2]: /images/20220823/bcdcd5cee45a4eae8adacf61b951745c.png
[SouthEast 3]: /images/20220823/9d55b6ecf8de4b9ea7a84f3309e6c34f.png
[SouthEast 4]: /images/20220823/68f06c61022f4878919cb9685aa14137.png
[SouthEast 5]: /images/20220823/2cf6cf72ad2c451680403264062ebc3b.png
[SouthEast 6]: /images/20220823/7994087c21de407b967e7ac7eb339ccf.png
[SouthEast 7]: /images/20220823/e2b9a904398342979e4781fc198b4dcf.png
[SouthEast 8]: /images/20220823/7e39e4e304414120a53b26ff6ba21290.png
[SouthEast 9]: /images/20220823/564a8092ac6e433e9a60a8447170f340.png
[SouthEast 10]: /images/20220823/6d532aea7281437ea7e136dcbbec0e32.png