注意上面的两句代码:0088行和0099行。
在异常处理的时候,特别提醒两点：
一, 你的数据库关闭的时候应该是在代码行0028前，而不是后;
二, 有人不习惯(或者一时疏忽)加上0088行的代码;
针对[Sample-02]和[sample-03]，把打开数据库连接写在所有的循环语句之前,如:
clsOraDb.Open(strConn)
Foreach(DataRow row in tabl.select(“”,”ProductID”)
……………
………….
Next
当然还有另外一个做法，就是用Using语句，提交.NET应用的垃圾收集器自动收集;相关的文章很多，这里不再特别赘述。
二、对象只管创建应用，不管释放篇
我们继续用[Sample-01]的代码,我们现在看0004行的代码:
0004 Dim dtResult As New DataTable
谁会发现它被释放，你不能，我也不能，从来没有被释放过。
“0004”行的代码解释是，要在内存划分一个空间给这个定义的对象dtresult;系统要划分多大的空间呢？呀，我没有研究过(留给那些有心人吧，呵呵..)。但有一点，要在内存划分一个空间，就是要占用内存。那么内存有多大呢，不是无限大吧，也是有限的，所有运行上述代码的最终结果是，系统的执行效率越来越慢，有人就怀疑，我有内存1到2G的，加上虚拟内存就更大，我只能说你的怀疑没错。可是你的应用程序就用这么一只函数吗?我想肯定不是，所以上百只函数的应用执行对内存的消耗可想而知。如果是后台自动运行的程序，及时是一个function，也会让系统崩溃。这只是一个简单的例子，有更复杂的。像这样的对象应用还有:Dataset, Datatable,DataReader,DataAdapter,Datagrid..等。
那么怎么解决这些问题呢：
2.1在Try catch 语句前定义好所用的对象， 如:
Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
Catch ex As Exception
Throw ex
Finally
End Try
2.2释放的语句如下
Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
……………..
Catch ex As Exception
--释放应用的对象
Throw ex
Finally
--使用完后，释放应用的对象
dtResult.dispose --从内存里清楚该对象
DR.dispose -从内存里清楚该对象
DS.dispose -从内存里清楚该对象
End Try
有人习惯写成下面这样:
Dim dtResult As New DataTable
Dim DR as New DataReader
Dim DS as New Dataset
Try
..
‘使用完后，释放应用的对象
dtResult.dispose ‘从内存里清楚该对象
DR.dispose ‘从内存里清楚该对象
DS.dispose ‘从内存里清楚该对象
Catch ex As Exception
‘释放应用的对象
Throw ex
Finally
End Try
|
