RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic Classic (6 and earlier)
Expertise: Beginner
Jul 14, 2009

Determine Whether a Field Exists in an ADODB.Recordset

Sometimes, you may need to perform conditional logic based on whether a field does or does not exist in a recordset. To check for the existence of a field, simply loop through the ADODB.Recordset Fields collection, looking for the specified field name:

Private Function FieldExistsInRS( _
   ByRef rs As adodb.Recordset, _
   ByVal fieldName As String)
   Dim fld As adodb.Field
   fieldName = UCase(fieldName)
   For Each fld In rs.Fields
      If UCase(fld.Name) = fieldName Then
         FieldExistsInRS = True
         Exit Function
      End If
   FieldExistsInRS = False
End Function
Usage: ... If FieldExistsInRS(MyRecordset, "FieldName") Then ' Do something if field exists Else ' Do something else if field doesn't exist End if
Shawn Dorman
Close Icon
Thanks for your registration, follow us on our social networks to keep up-to-date