Gehe zu deutscher Webseite

ViaThinkSoft CodeLib

This article is in:
CodeLibProgramming aidsVisual Basic for Applications (VBA)

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