。net開發(fā)者常會忽略的幾個錯誤(完整版)
【正文】 ataTable0005 Dim Sql As String = 0006 Dim clsOraDb As New clsOraClienDb0007 Dim strConn As String = (ConnectionString).ConnectionString0008 (strConn) 注釋：這里Open后，后面看不到 0009 Sql = SELECT FRUNO FROM SATBMMBRND WHERE = :MATNO0010 Dim params() As OracleParameter = {New OracleParameter(MATNO, psPN)}0011 If (Sql, dtResult, params) = False Then0012 Return clsResult0013 End If0014 If dtResult Is Nothing Then0015 Return clsResult0016 End If0017 If 0 Then0018 OEMPN = (0)(FRUNO).ToString()0019 Else0020 OEMPN = 0021 End If0022 = 10088 注釋：后面看到 0023 Return clsResult0024 Catch ex As Exception0099 注釋：程序異常也看到 0025 = 10026 Return clsResult0028 Throw ex0027 End TryEnd Function注意上面的兩句代碼:0088行和0099行。他們會遇到什么樣的問題，我不妨總結給大家：1. 數(shù)據(jù)庫連接超時2. 創(chuàng)建的對象只管用，不管釋放3. 調(diào)試(Debug)模式下編譯后，就用于應用環(huán)境中了4. 實際作業(yè)模式分享上面的問題就像毒瘤，積累到一定程度就爆發(fā),且影響深遠。 一、數(shù)據(jù)庫連接超時篇若要知道數(shù)據(jù)庫連接超時問題,先看下面一段代碼:[Sample01]:Public Shared Function getOEMPN(ByVal psPN As String, ByRef OEMPN As String) As BSResult0001 Dim clsResult As New BSResult0002 Try0003 = 10004 Dim dtResult As New DataTable0005 Dim Sql As String = 0006 Dim clsOraDb As New clsOraClienDb0007 Dim strConn As String = (ConnectionString).ConnectionString0008 (strConn) ‘這里Open后，后面看不到 0009 Sql = SELECT FRUNO FROM SATBMMBRND WHERE = :MATNO0010 Dim params() As OracleParameter = {New OracleParameter(MATNO, psPN)}0011 If (Sql, dtResult, params) = False Then0012 Return clsResult0013 End If0014 If dtResult Is
研究報告相關推薦
鄂ICP備17016276號-1