Output database fieldnames

Language: ASP

A bit of code to output the field names from a MS Access table. Useful for quickly building the code to assign field values to variables where there are a lot of fields.

<%

DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("database.mdb") & ";"

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open(DSN)
Set RS = OBJdbConnection.Execute(SQLQuery)

    if not RS.EOF then
   
    for each x in rs.Fields
       fieldName= x.name
       fieldValue = x.value
       response.Write(fieldName & "=" & "RS('" & fieldName & "')<br>")
    next
   
    end if

RS.Close
Set RS = Nothing
OBJdbConnection.Close
Set OBJdbConnection = Nothing
%>

< Back

Stuff

General

Home

Drunkandnutty.com

Code

ASP

General

JavaScript

PHP

Links

Affiliates

Blogs

Forums

Resources

Software

YouTube Dogs

YouTube Music

Output database fieldnames

Language: ASP

Stuff

General

Photos