Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

This article is in:
CodeLib → Programming aids → 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 Co-Founder
Autor: Daniel Marschall
Datum: 26 December 2017; Revision: 7 March 2018
Gelesen: 13,800 Mal