Solved

Data type of a table field

Posted on 2011-09-07
6
295 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

737 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