Using ADO to retrieve field captions

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
LVL 3
SuperMarioAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
jitgangulyConnect With a Mentor Commented:
Yes, I deserve points here :-)
0
 
SuperMarioAuthor Commented:
I wish they had a way to include <FONT FACE="Fixedsys">fixed-width</FONT> font styles.
0
 
John844Commented:
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
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
raizonCommented:
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
 
jitgangulyCommented:
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
 
AccessHelpNetCommented:
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
 
SuperMarioAuthor Commented:
Thanks Access...
That's precisely what I need.

Who do you guys think deserves the points?

-Dan
0
 
AccessHelpNetCommented:
My vote is for jitganguly

regards,

Dave Kawliche
http://AccessHelp.net
http://1ClickDB.com
0
 
hongjunCommented:
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
All Courses

From novice to tech pro — start learning today.