.net 中统一处理 Nothing DbNull Empty

 

1. Namespace DynamicSoft.Common.Data
2.     Public Class DbNull
3.         '**********************************************************************************************************
4.         '判断数据是否为 Nothing DbNull Empty 返回值如果是返回 True 否则 返回 False
5.         '**********************************************************************************************************
6.         Public Shared Function IsNothingDbNullEmpty(ByVal objValue As Object) As Boolean
7.             If objValue Is Nothing Then
8.                 Return True
9.             End If
10.             If IsDBNull(objValue) Then
11.                 Return True
12.             End If
13.             If objValue Is String.Empty Then
14.                 Return True
15.             End If
16.             Return False
17.         End Function
19.         '**********************************************************************************************************
20.         '判断数据是否为 Nothing DbNull Empty 返回值如果是返回 True 否则 返回 False
21.         '**********************************************************************************************************
22.         Public Shared Function GetObjectValue(ByVal objValue As Object, ByVal objReturnValue As Object) As Object
23.             If objValue Is Nothing Then
24.                 Return objReturnValue
25.             End If
26.             If IsDBNull(objValue) Then
27.                 Return objReturnValue
28.             End If
29.             Return objValue
30.         End Function
32. #Region "处理变量返回的值"
33.         '**********************************************************************************************************
34.         '处理字符串数据类型
35.         '**********************************************************************************************************
36.         Public Shared Function GetStringValue(ByVal objValue As Object, Optional ByVal DefaultString As String = "") As String
37.             If Not IsNothingDbNullEmpty(objValue) Then
38.                 Return objValue
39.             Else
40.                 Return DefaultString
41.             End If
42.         End Function
44.         '**********************************************************************************************************
45.         '处理日期数据类型
46.         '**********************************************************************************************************
47.         Public Shared Function GetDateValue(ByVal objValue As Object, Optional ByVal DefaultDate As Date = #1/1/1900#) As Date
48.             Dim MinDate As Date = #1/1/1900#
49.             If IsDate(objValue) AndAlso objValue > MinDate Then
50.                 Return objValue
51.             Else
52.                 Return Format(DefaultDate, "yyyy-MM-dd")
53.             End If
54.         End Function
56.         '**********************************************************************************************************
57.         '处理数字类型
58.         '**********************************************************************************************************
59.         Public Shared Function GetNumericValue(ByVal objValue As Object, Optional ByVal DefaultNumeric As Int64 = 0) As Int64
60.             If IsNumeric(objValue) Then
61.                 Dim MaxValue As String = 0
62.                 Dim MinValue As String = 0
63.                 Select Case objValue.GetType.ToString
64.                     Case Is = "System.Int16"
65.                         MaxValue = Int16.MaxValue : MinValue = Int16.MinValue
66.                     Case Is = "System.Int32"
67.                         MaxValue = Int32.MaxValue : MinValue = Int32.MinValue
68.                     Case Is = "System.Int64"
69.                         MaxValue = Int64.MaxValue : MinValue = Int64.MinValue
70.                     Case Is = "System.Decimal"
71.                         MaxValue = Decimal.MaxValue : MinValue = Decimal.MinValue
72.                     Case Is = "System.Double"
73.                         MaxValue = Double.MaxValue : MinValue = Double.MinValue
74.                     Case Is = "System.Single"
75.                         MaxValue = Single.MaxValue : MinValue = Single.MinValue
76.                     Case Is = "System.Byte"
77.                         MaxValue = Byte.MaxValue : MinValue = Byte.MinValue
78.                     Case Is = "System.SByte"
79.                         MaxValue = SByte.MaxValue : MinValue = SByte.MinValue
80.                     Case Is = "System.String"
81.                         If IsNumeric(objValue) Then
82.                             Return objValue
83.                         End If
84.                 End Select
85.                 If objValue < MaxValue AndAlso objValue > MinValue Then
86.                     Return objValue
87.                 Else
88.                     Return DefaultNumeric
89.                 End If
90.             Else
91.                 Return DefaultNumeric
92.             End If
93.         End Function
94. #End Region
96.     End Class
97. End Namespace

调用例子

 

1.         '**********************************************************************************************************
2.         '功  能：获取一条职位内容
3.         '参  数：JobID - 职位的JobID
4.         '返回值：Null
5.         '**********************************************************************************************************
6.         Public Overrides Function GetJob(ByVal JobID As String) As JobInfo
7.             Dim dr As DataRow = Common.GetRecordDetails(Table, DetailsReturnField, PrimaryKeyField, JobID)
8.             Dim jInfo As JobInfo
9.             jInfo = New JobInfo(DbNull.GetStringValue(dr("JobID")), _
10.                                 DbNull.GetStringValue(dr("Job")), _
11.                                 DbNull.GetStringValue(dr("Department")), _
12.                                 DbNull.GetNumericValue(dr("Number")), _
13.                                 DbNull.GetStringValue(dr("City")), _
14.                                 DbNull.GetDateValue(dr("ValidityDate")), _
15.                                 DbNull.GetStringValue(dr("EmailInbox")), _
16.                                 DbNull.GetStringValue(dr("Details")), _
17.                                 DbNull.GetNumericValue(dr("Language")), _
18.                                 DbNull.GetDateValue(dr("ModifiedDate")))
20.             Return jInfo
21.         End Function