Hier ein kleines besispiel
<%
dim i, a, cn
cn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath("/testmydata.mdb") & ";"
a = Tables(cn)
for i = 0 to ubound(a) - 1
response.write a(i) & "<BR>"
next
%>
Private Function Tables(byval connstring)
Dim adox, i, strTables
Set adox = Server.CreateObject("ADOX.Catalog")
adox.ActiveConnection = connstring
for i = 0 to adox.tables.count - 1
if UCase( adox.tables(i).type ) = "TABLE" then
strTables = strTables & adox.tables(i).name &
vbCrLf
end if
next
Set adox = nothing
Tables = split( strTables, vbCrLf )
End Function
%>
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
-----Original Message-----
From: Ente [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 04, 2002 9:45 PM
To: ASP Datenbankprogrammierung
Subject: [aspdedatabase] Tabellenstruktur auslesen und bearbeiten
Hallo,
ist es m�glich die Tabellenstruktur (gesamt) einer AccessDB und die
Struktur einzelner Tabellen (Spaltenname, Datentyp) auszulesen und sie
vielleicht sogar zu bearbeiten?
Sch�nen Gruss
Sebastian
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
