解决VB.NET错误导致的运行速度

发布时间:2020-06-12 12:59:38 作者:jgsa
来源:网络 阅读:429

运用任何一个语言进行程序开发时,通常都会对程序开发中必然会出现的错误进行相应的处理。那么在VB.NET中,VB.NET错误处理往往会对运行速度有一定的影响。VB.NET中On Error 来捕获和处理错误,而且经常使用 On Error Resume Next 来可能产生的忽略错误。
   
    那么 使用错误捕获是否会影响速度呢?
   
    是的,使用VB.NET错误处理将会降低一些性能,在。Net 中,使用 Try Catch 也将会影响性能,所以我们使用Reflector 反编译微软的类库时,会发现他的子过程很少使用 Try 来捕获错误,基本都是采用可预知的方式来判断可能出现的错误,并做相应处理。
   
    实际上,使用错误捕获后,编译后的代码实际上做了很多不为我们所知的操作,虽然 使用错误捕获从一定程度上方便了编码过程,却牺牲了一定的速度,有利有弊,所以我们应该正确的使用 错误捕获。
   
    测试的VB.NET
   
    Option Explicit
   
    Dim cn As
   
    New ADODB.Connection
   
    Dim rs As New ADODB.Recordset
   
    Dim m_FldsName() As String
   
    Private Sub Command1_Click()
   
    Dim II As Long
   
    Dim t As Single
   
    cn.Open "Provider=SQLOLEDB.1;Persist
   
    Security Info=False;User ID=sa;Initial
   
    Catalog=广商;Data Source=SUPER"
   
    rs.Open "Select * from FldSet ",
   
    cn, adOpenKeyset
   
    Do Until rs.EOF = True rs.MoveNext
   
    Loop
   
    rs.MoveFirst
   
    t = Timer ReDim m_FldsName(rs.Fields.Count)
   
    For II = 0
   
    To
   
    rs.Fields.Count - 1
   
    m_FldsName(II) = rs.Fields(II)。Name
   
    Next http://lailoyeoa.blog.chinaunix.net
    
    Do Until rs.EOF = True ReadFieldsNotOnErr "Err1"
   
    ReadFieldsNotOnErr "TableName"
   
    ReadFieldsNotOnErr "Err2"
   
    rs.MoveNext
   
    Loop
   
    MsgBox "NotErr:" & Timer - t
   
    On Error Resume Next
   
    rs.MoveFirst
   
    t = Timer Do Until rs.EOF = True ReadFieldsOnErr "Err1"
   
    ReadFieldsOnErr "TableName"
   
    ReadFieldsOnErr "Err2"
   
    rs.MoveNext
Loop
   
    MsgBox "OnErr:" & Timer - t
   
    rs.Close
   
    cn.Close
   
    End Sub
   
    Private Sub
   
    ReadFieldsOnErr(FieldName As String)
   
    Dim v As Variant
   
    v = rs(FieldName)。Value
   
    End Sub
   
    Private Sub
   
    ReadFieldsNotOnErr(FieldName As String)
   
    Dim II As Long
   
    Dim IsExists As Boolean
   
    Dim v As Variant
   
    IsExists = False For II = 0 To UBound(m_FldsName) - 1
   
    If m_FldsName(II) = FieldName Then
   
    IsExists = True Exit
   
    For
   
    End If
   
    Next
   
    If IsExists = True Then
   
    v = rs(FieldName)。Value
   
    End If
   
    End Sub
   
    测试结果:
   
    无错误时
   
    ReadFieldsOnErr : 0.46
   
    ReadFieldsNotOnErr : 0.47
   
    有错误时
   
    ReadFieldsOnErr : 0.96
   
    ReadFieldsNotOnErr : 0.47
   
    可以看到:不使用VB.NET错误处理,速度相当稳定,而使用VB.NET错误处理时,有错误的情况下速度落差较大,所以 对于在循环中 频繁调用 的子过程,建议对可能出现的错误进行预处理,减少使用 On error来提升速度。

推荐阅读:
  1. php运行错误如何解决
  2. 解决sublime运行python提示错误的方法

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

速度 error

上一篇:SQL Server中T-SQL查询语句的介绍和使用

下一篇:C实现的静态顺序表

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》