IT SOLUTIONS
Your full service technology partner! 
-Collapse +Expand
ASP Classic
Search ASP Classic Group:

Advanced
-Collapse +Expand ASP Classic Store

Prestwood eMagazine

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

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)

Comments

0 Comments.
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 = P1202A1
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
8438
Since 4/2/2008
Go ahead!   Use Us! Call: 916-726-5675  Or visit our new sales site: 
www.prestwood.com


©1995-2019 Prestwood IT Solutions.   [Security & Privacy]