FlowFact - Entwicklungstools

zurück

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