Solved

Using ADO to retrieve field captions

Posted on 2001-08-21
9
355 Views
Last Modified: 2012-06-21
Some code:

<%

Dim rs, conn
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

conn.Open

rs.Open "SELECT * FROM MyTable", conn, 2, 3

' If I wanted to retrieve the field NAMES I would do this

For Each fld In rs.Fields
   Response.Write fld.Name & "<br>" & vbCr
Next

' But I want to retrieve the field's
' caption or description!
%>

So in design view my database looks like this:

Field ------ Type ------ Description
Username --- Text ------ The username on this account
Password --- Text ------ The password matching username

I want my for loop to output "The username on this account" and "The password matching username" instead of Username and Password.

Thanks in advance.

Dan
0
Comment
Question by:SuperMario
  • 2
  • 2
  • 2
  • +3
9 Comments
 
LVL 3

Author Comment

by:SuperMario
ID: 6410760
I wish they had a way to include <FONT FACE="Fixedsys">fixed-width</FONT> font styles.
0
 
LVL 7

Expert Comment

by:John844
ID: 6410830
This feature in access in not supported in all other databases.  I don't think ado has any builtin capabilities to read this property of a field.  You might look into dao which is more access specific, but not optimized for web usage.

John
0
 
LVL 5

Expert Comment

by:raizon
ID: 6411130
Use this.

<%

Dim rs, conn
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")

conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

conn.Open

rs.Open "SELECT * FROM MyTable", conn, 2, 3

Set Fields = rs.Fields

' If I wanted to retrieve the field NAMES I would do this

For Each fld In Fields
  Response.Write fld.Name & "<br>" & vbCr
Next

' But I want to retrieve the field's
' caption or description!
%>
0
Technology Partners: 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 20

Expert Comment

by:jitganguly
ID: 6411132
Actually it is do-able. I was answering a same question in SQLServer, but mgfranz came up with his briliant idea of using Ole db. Check this
Use COLUMN_SIZE,with COLUMN_NAME and TABLE_NAME

<%    
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 15
conn.CommandTimeout =  10
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("data/database.mdb")
   Set rstSchema1 = conn.OpenSchema(4)
   Do Until rstSchema1.EOF
   Response.Write "<BR>Table name : " & rstSchema1("TABLE_NAME") _
& vbCrLf & ", Column Name : " & rstSchema1("COLUMN_NAME") & vbCrLf
   rstSchema1.MoveNext
   Loop
   rstSchema1.Close
conn.Close
%>
0
 
LVL 2

Expert Comment

by:AccessHelpNet
ID: 6416051
jitjanguy is right and should get points, however he neglected to put in his code the statement I think you are most interested in:

Response.write rstSchema1("DESCRIPTION")

As far as I have seen this only works in Access.  Populating the DESCRIPTION is optional for OLEDB providers, however, both OLEDB for ODBC and native JETOLEDB drivers seem to support it just fine.

regards,

Dave Kawliche
http://AccessHelp.net
http://1ClickDB.com
0
 
LVL 3

Author Comment

by:SuperMario
ID: 6423610
Thanks Access...
That's precisely what I need.

Who do you guys think deserves the points?

-Dan
0
 
LVL 2

Expert Comment

by:AccessHelpNet
ID: 6423635
My vote is for jitganguly

regards,

Dave Kawliche
http://AccessHelp.net
http://1ClickDB.com
0
 
LVL 20

Accepted Solution

by:
jitganguly earned 50 total points
ID: 6423653
Yes, I deserve points here :-)
0
 
LVL 33

Expert Comment

by:hongjun
ID: 8630943
AccessHelpNet or robbert, how about the "Caption"? I can't get the caption. "COLUMN_NAME" gives me the column name and not the caption. I found this question using search.

hongjun
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

679 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