nicht angemeldet
Hallo!
Wie kann ich Spaltennamen einer Access Datenbank auslesen? Ich habe hier folgendes kleines Script und möchte es gerne so modifizieren, dass ich auch die Namen der Spalten auslesen kann. Kann mir bitte jemand helfen?
------------------------------------------
<%
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
Response.Write rs.BOF
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
%>
------------------------------------------
Greetings
legolas