I.T. Discussion Community!
-Collapse +Expand
ASP Classic
Search ASP Classic Group:

-Collapse +Expand ASP Classic Store

Prestwood eMagazine

April Edition
Subscribe now! It's Free!
Enter your email:

   ► KBWebsite Scri...ASP ClassicLanguage Basics   Print This     
  From the February 2014 Issue of Prestwood eMag
ASP Classic Language Basics:
Get Count of Field Types in a Table
Posted 13 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).


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
 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)


Share a thought or comment...
Write a Comment...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.

Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1207A1
Enter key:
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

 KB Article #100432 Counter
Since 4/2/2008
   Contact Us!
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

138 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...

©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech