知识大全引以为戒 .NET开发者常犯的错误

Posted 2022-07-14 语句

篇首语：富贵必从勤苦得，男儿须读五车书。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全引以为戒 .NET开发者常犯的错误相关的知识，希望对你有一定的参考价值。

引以为戒 .NET开发者常犯的错误 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 NET开发过程中不是程式的无法运行就是程式的效率慢的同蜗牛在爬; 这种情况在 NET的新手中尤其常见我不知道为什么一些介绍 NET开发的书本里引用的例子代码也对此问题视而不见尤其让我郁闷的是一些我喜欢的书也出现了同样的问题

　　这篇文章不仅对 NET开发者的新手有帮助同样对哪些有经验也带来一些启示和参考

　　他们会遇到什么样的问题?

　　数据库连接超时

　　创建的对象只管用不管释放

　　调试(Debug)模式下编译后就用于应用环境中了

　　实际作业模式分享

　　上面的问题就像毒瘤积累到一定程度就爆发且影响深远

　　数据库连接超时篇

　　若要知道数据库连接超时问题先看下面一段代码:

　　[sample ]

Public Shared Function getOEMPN(ByVal psPN As String ByRef OEMPN As String) As BSResultDim clsResult As New BSResultTryclsResult ResultID = Dim dtResult As New DataTableDim Sql As String = String EmptyDim clsOraDb As New clsOraClienDbDim strConn As String = ConfigurationManager ConnectionStrings( ConnectionString ) ConnectionStringclsOraDb Open(strConn) 这里Open后后面看不到 clsOraDb CloseSql = SELECT SATBMMBRND OEMPN FRUNO FROM SATBMMBRND WHERE SATBMMBRND MATNO = :MATNO Dim params() As racleParameter = New OracleParameter( MATNO psPN)If clsOraDb FillDataTable(Sql dtResult params) = False ThenReturn clsResultEnd IfIf dtResult Is Nothing ThenReturn clsResultEnd IfIf dtResult Rows Count > ThenOEMPN = dtResult Rows( )( FRUNO ) ToString()ElseOEMPN = End IfclsResult ResultID = Return clsResultCatch ex As ExceptionclsResult ResultID = Return clsResultEnd TryEnd Function

　　对上述代码行的部分解释

　　Dim clsOraDb As New clsOraClienDb:引用数据库连接的类;

　　clsOraDb Open(strConn):打开数据库连接;

　　然后整个函数你再找不到关闭数据库连接的动作是要等著操作系统来释放吗? 有人就说啦看起来好像没有什么大不了的这仅仅是一个函数而已;数据库打开连接未关闭不会影响到整个应用程式;果真是这样吗?

　　让我们谈谈数据库连接的问题在Oracle数据库里一般默认的数据库连接数最多也就多来个不会超过个即使你改变这个连接数但无论怎样它的连接数是有限的不可能无限地供你消耗

　　在Web这个程式里它不仅不会自动关闭数据库连接象这样的函数还会每次调用都会重新用掉一个数据库连接;如果象这样的函数很多的话你就等著一个错误警告页面弹出来如Database Connection Timeout…等讯息

　　这还不算什么更有甚者尽然在循环语句里写下面的代码如

　　[sample ]

　　Foreach(DataRow row in tabl select( ProductID )……………clsOraDb Open(strConn)………… Next有人还喜欢玩下面的语句:[sample ]Foreach(DataRow row in tabl select( ProductID )Foreach(DataColumn col in lumns)……………clsOraDb Open(strConn)Next ………… Next

　　说到这有人就问啦我在开发环境下测试一点问题都没有呀？是呀你是没有问题我想问的是你开发环境的测试数据有几笔？

　　现在问题已经知道在哪里怎么解决?

　　针对[sample ]做如下处理注意下面代码:

　　ConfigurationManager ConnectionStrings( ConnectionString ) ConnectionStringclsOraDb Open(strConn) 注释这里Open后后面看不到 clsOraDb CloseSql = SELECT SATBMMBRND OEMPN FRUNO FROM SATBMMBRND WHERE SATBMMBRND MATNO = :MATNO Dim params() As racleParameter = New OracleParameter( MATNO psPN)If clsOraDb FillDataTable(Sql dtResult params) = False ThenReturn clsResultEnd IfIf dtResult Is Nothing ThenReturn clsResultEnd IfIf dtResult Rows Count > ThenOEMPN = dtResult Rows( )( FRUNO ) ToString()ElseOEMPN = End IfclsResult ResultID = clsOraDb Close 注释后面看到 clsOraDb CloseReturn clsResultCatch ex As ExceptionclsOraDb Close 注释程序异常也看到 clsOraDb CloseclsResult ResultID = Return clsResultThrow exEnd TryEnd Function

　　注意上面的两句代码:clsOraDb Close和clsOraDb Close;

　　在异常处理的时候特别提醒两点

　　（）你的数据库关闭的时候应该是在代码行前而不是后;

　　（）有人不习惯(或者一时疏忽)加上行的代码;

　　针对[Sample ]和[sample ] 把打开数据库连接写在所有的循环语句之前如:

　　clsOraDb Open(strConn)Foreach(DataRow row in tabl select( ProductID )……………………… Next

　　当然还有另外一个做法就是用Using语句提交 NET应用的垃圾收集器自动收集;相关的文章很多这里不再特别赘述对象只管创建应用不管释放篇

　　我们继续用[Sample ]的代码:

　　Dim dtResult As New DataTable

　　谁会发现它被释放你不能我也不能从来没有被释放过

　　 Dim dtResult As New DataTable 行的代码解释是要在内存划分一个空间给这个定义的对象dtresult;系统要划分多大的空间呢？呀我没有研究过(留给那些有心人吧呵呵 ) 但有一点要在内存划分一个空间就是要占用内存那么内存有多大呢不是无限大吧也是有限的所有运行上述代码的最终结果是系统的执行效率越来越慢有人就怀疑我有内存到 G的加上虚拟内存就更大我只能说你的怀疑没错;可是你的应用程序就用这么一只函数吗?我想肯定不是所以上百只函数的应用执行对内存的消耗可想而知如果是后台自动运行的程序及时是一个function 也会让系统崩溃这只是一个简单的例子有更复杂的;象这样的对象应用还有:Dataset Datatable DataReader DataAdapter Datagrid 等;

　　那么怎么解决这些问题呢？

　　（）在Try catch 语句前定义好所用的对象; 如:

Dim dtResult As New DataTableDim DR as New DataReaderDim DS as New DatasetTry Catch ex As ExceptionThrow exFinallyEnd Try

　　（）释放的语句如下:

Dim dtResult As New DataTableDim DR as New DataReaderDim DS as New DatasetTry …………… Catch ex As Exception 释放应用的对象Throw exFinally 使用完后释放应用的对象dtResult dispose 从内存里清楚该对象DR dispose 从内存里清楚该对象DS dispose 从内存里清楚该对象End Try

　　有人习惯写成下面这样:

Dim dtResult As New DataTableDim DR as New DataReaderDim DS as New DatasetTry 使用完后释放应用的对象dtResult dispose 从内存里清楚该对象DR dispose 从内存里清楚该对象DS dispose 从内存里清楚该对象Catch ex As Exception 释放应用的对象Throw exFinallyEnd Try

　　这不是也释放了吗？我想问的是如果程序出现异常它们会释放吗？我肯定得告诉大家

　　它们一定不能释放为了确保程序的稳定运行我建议大家都来用Try Catch语句（）绝不建议在循环语句写如下的语句

Foreach (DataRow row in tabl select( ProductID )……………Dim DS new Dataset 记住此乃写代码之大忌;Dim DT new Databable… ………… Next 还有一种写法Dim DS new Dataset Dim DT new Databable…Foreach (DataRow row in tabl select( ProductID )DS=GetDataseDT=GetDatatable…………… ………… Next

　　正确的写法是

Dim DS new Dataset Dim DT new Databable…TryForeach (DataRow row in tabl select( ProductID )DS=nothing 每次使用都先把内存空间释放出来DT=nothing 每次使用都先把内存空间释放出来DS=GetDataseDT=GetDatatable…………… ………… Next Catch ex As ExceptionThrow exFinallyDS disposeDT disposeEnd Try 另外提醒大家一点记得用 For Each 语句替代For i= to Rowcount 这样的效率改善也是明显的;

　　调试（Debug）模式下编译就用于应用环境中篇

　　大家看下面的图片

知识大全 引以为戒 .NET开发者常犯的错误

知识大全引以为戒 .NET开发者常犯的错误