Key-Spalte aus DB lesen

' übergibt eine Key-Spalte
'keyName: Die zurückzuliefernde Schlüsselspalte (Default:ID)
'whereClause: Optionale WHERE-Klausel
'returns: List(Of String)

Public Function DBGetKeys(ByVal table As String, Optional ByVal keyName As String = "ID", Optional ByVal whereClause As String = "") As List(Of String)

Dim sqlStatement As String
sqlStatement = "SELECT " & keyName & " FROM [" & table & "] " & whereClause
Dim result As List(Of String)
result = doSql(sqlStatement, QueryReturns.Keys)
If result Is Nothing Then
log.Fault("DBGetKeys", "Es konnten keine Keys aus Tabelle " & table & " gelesen werden.")
Return Nothing
End If
Return result
End Function