Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in:
CodeLibProgrammierhilfenSonstige Programmiersprachen

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, Security Management
ViaThinkSoft Co-Founder, Security Management