vB net bHelper.doc

vB net DbHelper Imports System Imports System.Collections Imports System.Collections.Specialized Imports System.Data Imports System.Data.SqlClient Imports System.Configuration Imports System.Data.Common Imports System.Collections.Generic Namespace Tianli.DBUtility 修改成實際項目的命名空間名稱 summary 資料訪問基礎類(基於Oracle) 可以用戶可以修改滿足自己專案的需要。 /summary Public MustInherit Class DbHelperSQL Protected Shared connectionString As String = ConfigurationSettings.AppSettings(conectiongstring) Protected Shared connectionString As String = PubConstant.ConnectionString Public Sub New() End Sub #Region 公用方法 Public Shared Function Exists(ByVal strSql As String, ByVal ParamArray cmdParms As SqlParameter()) As Boolean Dim obj As Object = Getsingle(strSql, cmdParms) Dim cmdresult As Integer If ([Object].Equals(obj, Nothing)) OrElse ([Object].Equals(obj, System.DBNull.Value)) Then cmdresult = 0 Else cmdresult = Integer.Parse(obj.ToString()) End If If cmdresult = 0 Then Return False Else Return True End If End Function Public Shared Function Exists(ByVal strSql As String) As Boolean Dim obj As Object = Getsingle(strSql) Dim cmdresult As Integer If ([Object].Equals(obj, Nothing)) OrElse ([Object].Equals(obj, System.DBNull.Value)) Then cmdresult = 0 Else cmdresult = Integer.Parse(obj.ToString()) End If If cmdresult = 0 Then Return False Else Return True End If End Function #End Region #Region 執行簡單SQL語句 summary 执行sql语句，返回影响的记录数 /summary param name=Sqlstringsql语句/param returns影响记录数据/returns remarks/remarks Public Shared Function Execute