FlowFact - Entwicklungstools v19.881 FLOWFACT 2017 R2 - Function - SQL_DeleteAll

Alle Datensätze löschen

Diese Funktion löscht alle im Recordset enthaltenen Datensätze aus der Tabelle
Function SQL_DeleteAll(ByVal rs As ADODB.Recordset) As Boolean
Public Function SQL_DeleteAll(ByVal rs As ADODB.Recordset) As Boolean
    If rs.EOF = False Then
        On Error Resume Next
        rs.MoveFirst
        On Error GoTo 0
        While rs.EOF = False
            rs.Delete
            rs.MoveNext
        Wend
        FF_UpdateRecordset rs
        SQL_DeleteAll = True
    Else
        SQL_DeleteAll = False
    End If
End Function