From the February 2014 Issue of Prestwood eMag

ASP Classic Language Basics: Get Count of Field Types in a Table By Mike Prestwood

Posted 18 years ago on 12/28/2006 Take Away: Code sample to get a count of the number of fields in a table of a particular field type (a particular DataTypeEnum). KB100432

When writing a generic data layer, you will create many reusable routines for handling the displaying of data. When displaying data, you sometimes need to know how many fields of a particular type are in a table. For example, if a table contains 1 or 2 memo fields, you might display both of them; otherwise, you may choose to display none or just the first one, etc.

The following code gets a count of the number of fields in a table of a particular type.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' DB_GetMemoCount
'
' Common Field Types... 
' -adDate: Date
' -adInteger: Integer
' -adLongVarWChar: Memo
' -adVarWChar: Character field
'
' MSDN Link - DataTypeEnum Complete listing

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function DB_GetFieldTypeCount(ARecordSet, ADataTypeEnum)
 Dim TableField
 Dim MemoCount
 
 MemoCount = 0
 
 For TableField = 0 to ARecordSet.Fields.Count - 1
  If ARecordSet.Fields.Item(TableField).Type = ADataTypeEnum Then
   MemoCount = MemoCount + 1
  End If
  Next
 
 DB_GetMemoCount = MemoCount
End Function

Using DB_GetFieldTypeCount

Here is a simple example of calling this function:

Dim RS

'''Open RS with something like RS.Open ... 

Response.Write "Number of memos in tables: " & DB_GetFieldTypeCount(RS, adLongVarWChar)

PS_3477

Comment 1 of 1 When I start working in this field I face problems regarding tables and other functions too. I learn these things with time from australia writing and they did great work with the written guides. Posted 43 months ago

KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205. Visit Profile