Zeile aus DB löschen

''' <summary>
''' Löscht die Zeile der angegebenen ID aus der DB
''' </summary>
''' <param name="tableName">Aus welcher Tabelle ist zu löschen?</param>
''' <param name="ID">Wie lautet der Wert der ID?</param>
''' <returns>Erfolgsmitteilung (wahr oder falsch).</returns>
''' <remarks>Eventuelles CASCADE beachten!</remarks>

Public Function DBDeleteRow(ByVal table As String, ByVal ID As String) As Boolean
If ID = "" Then
log.Fault("", "Parameter ID darf nicht leer sein.")
Exit Function
End If

Dim sqlStatement As String = "DELETE FROM " & table & " WHERE ID ='" & ID & "'"
Dim result As Integer = doSql(sqlStatement, QueryReturns.Count)

If result <> 1 Then
log.Fault("DBDeleteRow", "Es konnte keine Zeile gelöscht werden werden."")
Return False
End If
Return True
End Function