学生调错

      学生也敲完有一段时间了，错也调的差不多了。

      错误很多吗？

      多，也不多。说它多是因为每个窗体都有错，说它不多是说他的很多的错误类型就总共分为几个类别。

      so，今天的博客就开始吧！

      诺，这是第一个错误
   

第一类：代码类错误  

   1、  事实错误 91
           对象变量或With块变量未设置

解决这里出现的错误91有三种情况

第一、是因为代码错误（本例中不是这种情况）

第二、是因为数据库没有连上需要重新连上（本例是这种情况）所以需要自                 己重新连接数据库来解决这个问题

第三、（本例中不是这种情况）在调试过程中，自己代码正确，数据库也连接着，但还是出现下面这种情况：对象变量或with块变量未设置。

这就是SQL注入的问题，王雷师哥博客有很详细的总结，如果大家想了解或遇到这样的问题可以去看看。

链接：http://blog.163.com/m18333602097_1/blog/static/2380930122015322524752

解决这个问题的方法，就是加入一下代码：

Private Sub txtUserName_KeyPress(KeyAscii AsInteger)

If KeyAscii = 39 And 33 Then

MsgBox "是非法字符，请输入合法字符", vbOKOnly +vbExclamation, "警告"

txtUserName.SetFocus

txtPassword.Enabled = False

Else

txtPassword.Enabled = True

End If

End Sub

2、错误及窗体显示部分

错误原因：

出现的原因是因为当时没有添加班级信息，所以在进行修改班级信息的时候出现了这个问题。解决方法就是在mrc.Move First上面添加一串代码如下：

If mrc.RecordCount =0 Then

  MsgBox"无记录！", vbOKOnly + vbExclamation, "提示"

    Else

 

3、错误及代码显示部分

代码部分错误显示

错误的原因也是代码错误原因如下：

其实就是代码与所对应的对象的名称不一样，然后自己找到对应的TXT控件发现他的名称为txtDirecto少了一个r导致其无法调用数据

4、这一类也是代码错误。这很大的部分是关于代码与空间的名称不一致

代码部分如下：

改正过后是将蓝色部分的Text1（0）部分改为Text1就行了原因是因为所添加的控件名称与代码的名称不一致，所以导致数据无法调用

总结：其时想说的是要是自己不犯错该多好，自己当时在敲的时候小心一点仔细一点，就会没有错误了，那该有多爽啊！可是转念一想，真要是没有错误还真的是自己的一大损失，错误不怕，怕的是自己没有成长的机会和空间了。