精彩编程与编程技巧-优化OLE的调用频率...

优化OLE的调用频率

?在VB5.0中，OLE调用功能大大增强，程序员的调用次数也自然地随之增加，显然，
优化OLE的调用对提高系统效率
有着不可低估的意义。下面提供三则优化OLE调用技巧供参考。

?1.预先定义专用对象，减少OLE调用次数，提高程序效率
在VB中进行OLE功能调用时，一般需要重复使用“对象、属性”这类语句，有时连
接对象很多，语句较长。比如，
要想获得某个数据库中数据表字段名称的OLE功能调用语句可能这样：
DBEngine,Workspaces(0).DataBases(0).RecordSet.Fields(0).Name
上面语句中的每个点(.)都需要进行一次OLE功能调用。如果我们想列出所有的字段
名称，一般情况下程序如下：
ForI%=0ToDBEngine.WorkSpaces(0).Database.RecordSet.Fields.Count-1
PrintDBEngine.WorkSpaces(0).Database.RecordSet.Fields(I%).Name
Next
上面这段程序用循环的方式将所有字段名称列出来，每一个循环需要有10次OLE调
用(10个点)，假设有10个字段，
则完成这个循环需要进行100次OLE调用。从上面的程序中我们可以看到OLE调用语
句的前面部分对象都是一样的，
我们可以考虑将其预先定义好，这样就可以减少OLE调用次数，提高效率，将程序
改写如下：
DimDBAsDatabase
DimSAsFields
DimFAsField
SetDB=DBEngine.Workspaces(0).OpenDatabase("biblio.mdb")
SetX=DBEngine.Workspaces(0).Databases(0).TableDefs(0).Fields
ForEachFInX
PrintF.Name
Next