Hej!

Jag ska göra en presentationssida där det är tänkt att användaren ska få ange i form av kryssrutor vad den vill se från databasen. Frågan är då hur man på ett enkelt sätt kan skriva ut tabellens Kolumnnamn.
Alltså bara hämta alla namnen från tabellen och skriv ut de på en sida där användaren sedan kryssar i vilka fält han vill se.

Typ:
<code>
Visa = "SELECT *Kolumnnamn FROM TAB_FEL"

RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

MyArray = RecSet.GetRows()
RecSet.Close
Connect.Close
Kolumner = Ubound(MyArray, 1)
Rader = Ubound(MyArray, 2)

SkrivUt(MyArray, Rader, Kolumner)
</code>
Här är det då tänkt att jag i Tabellform ska skriva ut alla Kolumnnamnen från min tabell och användaren ska få välja vad den vill se genom att bocka av kryssrutorna.

Hur väljer jag det i SELECT satsen??

Tacksam för svar!

Skippa SQL satsen och använd istället OpenSchema metoden på Connection objektet i ADO. Vilket är en bra metod för att ta reda på information om databasen oavsett vilken proveder du har.

<code>
Dim RecSet
Dim Connect
Const adSchemaColumns = 4

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "..."

Set RecSet = Connect.OpenSchema(adSchemaColumns, "TABLE_NAME = 'TAB_FEL'")

Do Until RecSet.EOF
Response.Write RecSet("COLUMN_NAME").Value & "<br>" & vbCrLf
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
</code>