| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Suggested use: \par \par Dim rstTestData as ADODB.Recordset 'Recordset object \par Dim lngRecords as Long 'Long variable to return \par 'recordcount \par \par Set rstTestData as New ADODB.Recordset \par \par rstTestData.Open "SELECT * FROM Customers", ADOConnection \par \par If HaveRecords(rstTestData) Then \par ... \par End If \par \par rstTestData.Close \par Set rstTestData = Nothing \par \par 'Code: \par Public Function HaveRecords(rstData As ADODB.Recordset, Optional ByRef lngRecordCount As Long) As Boolean \par '******************************************************************************* \par '* Name: HaveRecords \par '* Description: This function will return true if the recordset has records and optionally return the amount of records \par '************************************************************** \par \par On Error GoTo HaveRecords_ERR \par \par HaveRecords = False \par \par If Not rstData Is Nothing Then \par If rstData.State = adStateOpen Then \par If (Not rstData.EOF) And (Not rstData.BOF) Then \par rstData.MoveFirst \par lngRecordCount = rstData.RecordCount \par HaveRecords = True \par End If \par Else \par HaveRecords = False \par End If \par Else \par HaveRecords = False \par End If \par \par Exit Function \par \par HaveRecords_ERR: \par MsgBox "[" & Err.Number & "] " & Err.Description, vbInformation, "HaveRecords - Error" \par \par End Function \par } |
Determine if an ADO Recordset Has Records |
India web developer web development India | India web development company India ecommerce web developer