<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("frexuz.mdb")
Set objADOX = Server.CreateObject("ADOX.Catalog")
objADOX.ActiveConnection = Connect
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
response.write table.Name & "<br />"
End If
Next
%>
Här har jag en kod som visar alla TABELLER i min databas, men har inte lyckats hitta hur man hämtar alla COLUMNER från varje tabell, nån som vet?
(Kom ihåg att det är access och inte mysql)
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
response.write table.Name & "<br />"
for each col in table.columns
response.write col.name & " "
next
response.write "<br />"
End If
Next
tack, det funkar!
hur visar jag alla kolumner från en enda tabell då?
om jag vill ha en bestämd tabell
jag tänkte göra ett dynamiskt admin system där jag först skriver ut alla tabeller som är länkar, tex default.asp?table=news
sen vill jag hämta alla columner från det som står i länken
strTabellNamn = "tabellens_namn"
set rs = server.createobject("adodb.recordset")
set rs = objdbconnection.execute("select * from "& strTabellNamn &"")
for i = 0 to rs.Fields.Count - 1
Response.write("kolumn: " & rs.Fields(i).Name & "<br>")
next
rs.close()
