Access: Spaltennamen auslesen

[legolas41]

Kommando zurück!

Hab die Lösung selbst gefunden, hier ist sie, falls es jemand interessiert:

<%
strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ="
strConnection = strConnection & Server.MapPath("../db/shop.mdb")
strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"

strSQL = "SELECT * FROM lager_shop"

Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject ("ADODB.Recordset")
rs.Open strSQL, conn

If Not rs.EOF and Not rs.BOF Then
        avarRecords = rs.GetRows()
Else
        bNoRecords = True
End If

'-------------------------
'Hier ist der Zusatz
for each feld in rs.fields
Response.Write feld.name
next
'-------------------------

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

If Not bNoRecords Then

nRecords = UBound(avarRecords,2)
    For intRecord = 0 To nRecords
         strIdField   = avarRecords(0,intRecord)
         strArtikel   = avarRecords(1,intRecord)
    Next
End If
%>

Sorry, wollte nicht spammen.

legolas