Wert aus DB lesen

''' <summary>
''' Liest ungeprüft den Wert eines Datenfeldes aus der DB
''' </summary>
''' <param name="table">Aus welcher Tabelle ist zu lesen?</param>

''' <param name="ID">Wie lautet die ID?</param>
''' <param name="field">Welches Datenfeld ist zu lesen?</param>
''' <returns>Gelesener Wert oder Nothing</returns>

''' <remarks>Nur für Tabellen, die ID enthalten, wird die Zeilenangabe ausgewertet; ID muß angegeben werden.
''' Bei ID="" wird die erste Zeile gelesen.</remarks>
Public Function DBGetValue(ByVal table As TMserverDBTables, ByVal field As String, Optional ByVal ID As String = "") As Object
Dim tableName As String = NameOfTable(table)


Dim sqlStatement As String
If ID = "" Then
sqlStatement = "SELECT TOP 1 " & field & "a> FROM " & tableName & "a> "
Else
sqlStatement = "SELECT " &amp;amp; field & "a> FROM " & tableName & "a> WHERE ID = '" & ID & "'"
End If

Dim result As Object
result = doSql(sqlStatement, QueryReturns.Value)

If result Is Nothing Then
log.Fault("DBGetValue", "Es konnte kein korrekter Wert aus der Datenbank gelesen werden." &amp;amp; vbCrLf _
& "Tabelle: " & tableName & " ID: " & ID & " Feld: " & field & " Rückgabe: " & result)
Return Nothing
End If
Return result
End Function