VB6中使用的错误处理

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 文章首页 >> 编程技术 >> VB & VB.NET教程 >> VB6中使用的错误处理

VB6中使用的错误处理

添加时间: 2006-2-12 9:14:47 作者: VB教程阅读次数:99 来源: http://www.d9soft.com

　　那么使用错误捕获是否会影响速度呢？

　　是的，使用错误处理将会降低一些性能，在。Net 中，使用 Try Catch 也将会影响性能，所以我们使用Reflector 反编译微软的类库时，会发现他的子过程很少使用 Try 来捕获错误，基本都是采用可预知的方式来判断可能出现的错误，并做相应处理。

　　实际上，使用错误捕获后，编译后的代码实际上做了很多不为我们所知的操作，虽然使用错误捕获从一定程度上方便了编码过程，却牺牲了一定的速度，有利有弊，所以我们应该正确的使用错误捕获。

　　测试的VB6代码

　　

　　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

　　

　　　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

　　可以看到：不使用错误处理，速度相当稳定，而使用错误处理时，有错误的情况下速度落差较大。所以对于在循环中频繁调用的子过程，建议对可能出现的错误进行预处理，减少使用 On error来提升速度。

上下文章:

上一篇文章: VB实现DataList横向数据交替变色下一篇文章: VB 全屏幕图形界面及动态功能提示

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部