Solved

Data type of a table field

Posted on 2011-09-07
6
274 Views
Last Modified: 2012-05-12
Is there any way to find out the data type of a field of a table?

in the following code, how can I find out the data type of rs.fields(1).

Set cn = CurrentProject.Connection
    rs.CursorLocation = adUseClient
    
    sql = "SELECT * FROM Master WHERE ID>100 ORDER BY ID"
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    With rs
        ......
        ......
        ......
        ......
    end with

Open in new window

0
Comment
Question by:MnInShdw
  • 2
  • 2
  • 2
6 Comments
 
LVL 39

Accepted Solution

by:
Pratima Pharande earned 500 total points
ID: 36500888
try this

refer

http://bytes.com/topic/access/answers/601180-find-field-data-type-vba
http://allenbrowne.com/func-06.html

 
Dim intNumberofFields As Integer, intFieldType As Integer, strTypeName As String 
  
Dim fld As Field, intCounter As Integer, strFieldName As String 
  
intNumberofFields = CurrentDb.TableDefs("tblEmployee").Fields.Count 
  
For intCounter = 0 To intNumberofFields - 1 
  strFieldName = CurrentDb.TableDefs("tblEmployee").Fields(intCounter).Name 
  intFieldType = CurrentDb.TableDefs("tblEmployee").Fields(intCounter).Type 
    Select Case intFieldType 
      Case 2    'Byte 
        strTypeName = "Byte" 
      Case 3    'Integer 
        strTypeName = "Integer" 
      Case 4    'Long 
        strTypeName = "Long" 
      Case 6    'Single 
        strTypeName = "Single" 
      Case 7    'Double 
        strTypeName = "Double" 
      Case Else 'Not a Number 
        strTypeName = "N/A" 
    End Select 
     Debug.Print Format(intCounter + 1, "00") & ") " & strFieldName & " - " & strTypeName 
Next intCounter

Open in new window

0
 
LVL 75
ID: 36500945
How about this:

Dim cn, sql, rs As ADODB.Recordset
Dim tType
Set cn = CurrentProject.Connection
    rs.CursorLocation = adUseClient
   
    sql = "SELECT * FROM Master WHERE ID>100 ORDER BY ID"
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic

    With rs
       tType = Choose(.Fields(1).Type, "Yes/N0", "Byte", "Integer", "Long", "Currency", "Single", "Double", "Date/Time", "Binary", "Text", "OLE Object", "Memo")
       Debug.Print tType
    End With

mx
0
 
LVL 1

Author Comment

by:MnInShdw
ID: 36501140
mx:
your suggested code behaves strange:
.Fields(1).Type for Text Data types returns 202.

More over the indexes in Choose statement are shifted. I believe it's because the items in choose doesn't follow the following list.

Still I can't understand what this 202 is.

The code suggested by pratima_mcs works perfect.
Since I prefer to work with recordset., I'll wait for some more suggestions.
Otherwise I will accept pratima_mcs' code.


thank you
vbEmpty 0 (uninitialized) 
vbNull 1(no valid data) 
vbInteger 2 
vbLong 3
vbSingle 4 
vbDouble 5 
vbCurrency 6
vbDate 7 
vbString 8 
vbObject 9 
vbError 10
vbBoolean 11 
vbVariant 12 
vbDataObject 13 
vbDecimal 14 
vbByte 17 
vbLongLong 20 
vbUserDefinedType 36 
vbArray 8192

Open in new window

0
Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

 
LVL 39

Expert Comment

by:Pratima Pharande
ID: 36501388
Glad to help you
0
 
LVL 1

Author Closing Comment

by:MnInShdw
ID: 36501560
Million Thanks
0
 
LVL 75
ID: 36503820
I got the Types from the image below - on Allen's site.  If you are using the solution above, then you are missing several data types, including Text!  The Indexes in the Choose statement directly correspond to the Types shown in the image below.

mx
Capture1.gif
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

815 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now