Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Get the Number of Returned Records

Sub GetCount()    Dim conn As ADODB.Connection    Dim myRecordset As ADODB.Recordset    Dim myarray As Variant    Dim returnedRows As Integer    Dim r As Integer 'record counter    Dim f As Integer 'field counter    Set conn = CurrentProject.Connection    Set myRecordset = New ADODB.Recordset    myRecordset.Open "SELECT * FROM Employees", _       conn, adOpenForwardOnly, adLockReadOnly, adCmdText    myarray = myRecordset.GetRows()    returnedRows = UBound(myarray, 2) + 1    MsgBox "Total number of records: " & returnedRows    myRecordset.Close    Set myRecordset = Nothing    conn.Close    Set conn = Nothing End Sub