Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic Classic (6 and earlier)
Expertise: Beginner
Jul 13, 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
   Next
    
   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
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap