Visa databasstruktur

<%
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)

Jag har tidigare fått hjälp med just detta från vår SQLguru LarsG.
Vänta bara.

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

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscadoapireference.asp

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

If table.Type = "TABLE" and table.Name = "news" then
  ...

går det att sortera utskriften på något sätt?
columnerna skrivs ut i bokstavsordning och inte i den ordning dom ligger i databas-tabellen

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()

Tråden flyttas från Webbutveckling - Övrigt.

mvh Palle
Moderator webForum