AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2023-04-25 13:24:16 +02:00
parent 98fd711ea0
commit dd4a4aad95
2 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Database/Adapters/MSSQLServer.vb
View File

@ -346,7 +346,7 @@ Public Class MSSQLServer
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
Logger.Warn("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject) Logger.Warn("GetDatatableWithConnectionObject: Error in GetDatatableWithConnection while executing command: [{0}]", pSqlCommandObject.CommandText)
Throw ex Throw ex
Finally Finally
MaybeCommitTransaction(oTransaction, pTransactionMode) MaybeCommitTransaction(oTransaction, pTransactionMode)

46
Windream/Helpers.vb
View File

@ -63,46 +63,50 @@ Public Class Helpers
End Select End Select
End Function End Function
Friend Shared Function ConvertIndexValue(Type As Integer, Value As String) As Object Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object
' Leerzeichen an Anfang und Ende entfernen ' Leerzeichen an Anfang und Ende entfernen
Value = Value.Trim() pValue = pValue.Trim()
Select Case Type Select Case Type
Case INDEX_TYPE_HASH Case INDEX_TYPE_HASH
Return Value Return pValue
Case INDEX_TYPE_STRING Case INDEX_TYPE_STRING
Return Value Return pValue
Case INDEX_TYPE_VECTOR_STRING Case INDEX_TYPE_VECTOR_STRING
Return Value Return pValue
Case INDEX_TYPE_INTEGER Case INDEX_TYPE_INTEGER
Value = Value.Replace(" ", String.Empty) pValue = pValue.Replace(" ", String.Empty)
Return Convert.ToInt32(Value) Return Convert.ToInt32(pValue)
Case INDEX_TYPE_VECTOR_INTEGER Case INDEX_TYPE_VECTOR_INTEGER
Value = Value.Replace(" ", String.Empty) pValue = pValue.Replace(" ", String.Empty)
Return Convert.ToInt32(Value) Return Convert.ToInt32(pValue)
Case INDEX_TYPE_VECTOR_INTEGER_64BIT Case INDEX_TYPE_VECTOR_INTEGER_64BIT
Value = Value.Replace(" ", String.Empty) pValue = pValue.Replace(" ", String.Empty)
Return Convert.ToInt64(Value) Return Convert.ToInt64(pValue)
Case INDEX_TYPE_VECTOR_BOOLEAN Case INDEX_TYPE_VECTOR_BOOLEAN
Return Convert.ToBoolean(Value) Return Convert.ToBoolean(pValue)
Case INDEX_TYPE_BOOLEAN Case INDEX_TYPE_BOOLEAN
Return Convert.ToBoolean(Value) Return Convert.ToBoolean(pValue)
Case INDEX_TYPE_DATE Case INDEX_TYPE_DATE
Return Convert.ToDateTime(Value) Return Convert.ToDateTime(pValue)
Case INDEX_TYPE_DATE_TIME Case INDEX_TYPE_DATE_TIME
Return Convert.ToDateTime(Value) Return Convert.ToDateTime(pValue)
Case INDEX_TYPE_TIME Case INDEX_TYPE_TIME
Return Convert.ToDateTime(Value) Return Convert.ToDateTime(pValue)
Case INDEX_TYPE_VECTOR_DATE_TIME Case INDEX_TYPE_VECTOR_DATE_TIME
Return Convert.ToDateTime(Value) Return Convert.ToDateTime(pValue)
Case INDEX_TYPE_VECTOR_DATE Case INDEX_TYPE_VECTOR_DATE
Return Convert.ToDateTime(Value) Return Convert.ToDateTime(pValue)
Case INDEX_TYPE_FLOAT Case INDEX_TYPE_FLOAT
Return Convert.ToDouble(Value) Return Convert.ToDouble(pValue)
Case INDEX_TYPE_VECTOR_FLOAT Case INDEX_TYPE_VECTOR_FLOAT
Return Convert.ToDouble(Value) Return Convert.ToDouble(pValue)
Case INDEX_TYPE_CURRENCY
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(pValue))
Return pValue
Case Else Case Else
Return Value Return pValue
End Select End Select
End Function End Function