You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
132 lines
3.0 KiB
132 lines
3.0 KiB
'''<summary>Diese klasse beinhaltet Methoden, welche im gesamten Edoka über alle Layers verwendet werden</summary>
|
|
Public Class Tools
|
|
|
|
Public Shared Function CToInt16(ByVal o As Object) As Int16
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Int16 Then
|
|
Return CShort(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToInt32(ByVal o As Object) As Int32
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Int32 Then
|
|
Return CInt(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToInt64(ByVal o As Object) As Int64
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Int64 Then
|
|
Return CLng(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
|
|
Public Shared Function CToSingle(ByVal o As Object) As Single
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Single Then
|
|
Return CSng(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToDouble(ByVal o As Object) As Double
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Double Then
|
|
Return CDbl(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToDecimal(ByVal o As Object) As Decimal
|
|
If o Is System.DBNull.Value Then
|
|
Return 0
|
|
Else
|
|
If TypeOf o Is Decimal Then
|
|
Return CDec(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToByte(ByVal o As Object) As Byte
|
|
If o Is System.DBNull.Value Then
|
|
Return New Byte()
|
|
Else
|
|
If TypeOf o Is Byte Then
|
|
Return CByte(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToByteArr(ByVal o As Object) As Byte()
|
|
If o Is System.DBNull.Value Then
|
|
Return New Byte() {}
|
|
Else
|
|
If TypeOf o Is Byte() Then
|
|
Return CType(o, Byte())
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToString(ByVal o As Object) As String
|
|
If o Is System.DBNull.Value Then
|
|
Return ""
|
|
Else
|
|
If TypeOf o Is String Then
|
|
Return CStr(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToBool(ByVal o As Object) As Boolean
|
|
If o Is System.DBNull.Value Then
|
|
Return False
|
|
Else
|
|
If TypeOf o Is Boolean Then
|
|
Return CBool(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
Public Shared Function CToDateTime(ByVal o As Object) As DateTime
|
|
If o Is System.DBNull.Value Then
|
|
Return DateTime.MinValue
|
|
Else
|
|
If TypeOf o Is DateTime Then
|
|
Return CDate(o)
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
'''<summary>Überprüft TableCount und RowCount eines DataSet</summary>
|
|
'''<param name="ds"></param>
|
|
'''<returns>True wenn table- und rowcount > 0</returns>
|
|
Public Shared Function ValidateDS(ByVal ds As DataSet) As Boolean
|
|
Try
|
|
If ds.Tables.Count > 0 Then
|
|
If ds.Tables(0).Rows.Count > 0 Then
|
|
Return True
|
|
End If
|
|
End If
|
|
Return False
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.Common.Tools.ValidateDS", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|