VB容错处理

什么是容错处理？
容错处理是指软件运行时，能对由非正常因素引起的运行错误给出适当的处理或信息提示，使软件运行正常结束。
例如：数学计算的程序就不能输入字母来计算。这个时候，一个完善的程序应该考虑到使用者各种可能的输入情况并进行容错处理。如果出现了错误，程序不会崩溃导致退出或者异常，程序里面的容错处理部分可以对意外情况进行处理 比如弹出提示框等等。
在我们编写代码的过程中，总会出现一些错误，例如 数据库为空读取不到数据的时候就会错误提示的代号，还有就是连接数据库的时候出现连接错误。
接下来就举两个栗子

如果出现这样的错误我们的程序就不会正常的退出了，如何解决这个问题那！容错处理。

if mrc.EOF=ture then                               'EOF为真时
    X=MsgBox ("查询不到信息，是否添加信息"，4+64，"提示")     '弹出提示框
    if X=6 then                                         '点击是
        frmaddstudent.show                          '显示新的窗体
    else                                                '否
        unlaod me                                   '退出窗体
    end if 
else                                                 ' EOF不为真
    mrc.moveFirst                                       '查询第一条记录
    Call viewData                                       '调用函数（封装）
    mcbookmark=mrc.bookmark                             '做标记
    mrcclean=true
end if

当代码遇到动态的错误时
在过程中使用On Error GoTo语句加一个命名的标号来激活错误处理程序。标号是用来指出错误发生时程序转向错误处理程序的入口。（Identifies a point in code to which the execution will branch when an error is encountered）。这部分代码称为”错误处理程序”，命名和变量的命名一样，可以以冒号结尾。放在过程的Exit Sub语句之后。 下面的程序是DataErr错误处理程序实现对数据溢出错误的处理：

On Error GoTo DataErr                  '动态运行时
Dim num As Integer,var As Integer
num=10
var = num * 10000
Print var
Exit Sub
DataErr:                               '运行出现错误时
MsgBox “超出了整数的范围”                 '提示
End Sub

还有很多的容错处理，大家也许无意中就把这件事情解决了。但是知识还是要系统性一点，这样少走弯路。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!