Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in der Kategorie:
CodeLib → Programmierhilfen → Visual Basic for Applications (VBA)

CodeLib Visual Basic for Applications (VBA): RecordCount für ADO
In den ADO-Komponenten gibt es einen Bug, der ADODB.RecordCount unzuverlässig macht.
Folgende Funktion schafft Abhilfe:

Function RecordCount(data As ADODB.Recordset)
    If data.BOF And data.EOF Then
        RecordCount = 0
    Else
        i = 0
    
        data.MoveFirst
        Do Until data.EOF
            i = i + 1
            data.MoveNext
        Loop
        
        RecordCount = i
    End If
End Function

siehe auch http://www.adopenstatic.com/faq/recordcounterror.asp
Daniel Marschall
ViaThinkSoft Mitbegründer
Autor: Daniel Marschall
Datum: 26. Dezember 2017; Revision: 7. März 2018
Gelesen: 13.800 Mal