Diese Methode kann den Tabellennamen von ACCESS-Daten, ihre Struktur, Datentyp usw. ermitteln. Das Programm filtert mehrere versteckte Tabellen mehrerer ACCESS-Datenbanken (dies kann der Grund dafür sein, dass die ACCESS-Datenbank nach dem Löschen der Daten größer wird).
<html>
<Kopf>
<title>ACCESS-Datenbanktabellenname_www.vevb.com abrufen</title>
</head>
<body style=text-align:left;margin-left:50px;font-family:'arial';font-size:12px>
<form style=padding:5px;margin:5px;margin-left:0px name=get action= method=post>
Datenbankpfad:<Eingabetyp=Textname=Pfadwert=Größe=50 />
<input type=hidden name=ari value=1 />
<input type=submit value=View/>
</form>
<hr>
<%
wenn request.form(ari)=1 und request.form(path)<> dann
dim conn,connstr,i,sql,rs
Bei Fehler als nächstes fortfahren
Connstr=DRIVER=Microsoft Access Driver (*.mdb);DBQ=+server.mappath(request.form(path))
Setze Conn=Server.CreateObject(ADODB.Connection)
conn.Open connstr
Wenn Sie sich irren, dann
ähm.Klar
SetConn=Nichts
Response.Write-Datenbankverbindungsfehler, bitte überprüfen Sie die Verbindungszeichenfolge.
Antwort.Ende
Ende wenn
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
Tischanzahl dimmen
Tabellenanzahl=0
Setze shm = conn.OpenSchema(20)
shm.MoveFirst
Do While Not shm.EOF
Wenn shm(TABLE_TYPE) = TABLE, dann
If Left(shm(table_name), 1) <> ~ Then 'Versteckte Tabellen hier herausfiltern
j=j+1
Rufen Sie GetFileds(shm(table_name)) auf
Ende wenn
Ende wenn
shm.MoveNext
Schleife
Response.write Es gibt insgesamt &j& Datentabellen!
anders
Response.write <h3>Bitte geben Sie den relativen Pfad zur Datenbank ein, um den spezifischen Inhalt anzuzeigen!</h3>
Ende wenn
%>
</body>
</html>
<%
Funktion GetFileds(TableName)
Setze rs = server.createobject(adodb.recordset)
Schwaches SQL
SQL = * aus & TableName auswählen
rs.Open SQL, conn, 1, 1
DimCont
Cont = rs.Fields.Count
Response.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee>&vbcrlf
Die Response.write-Tabelle <font color=red><b>&TableName&</b></font> enthält &Cont&-Felder wie folgt:<br>&vbcrlf
Für i = 0 bis Cont - 1
dimfiltype
Wählen Sie den Fall rs.fields(i).type aus
Fall 3
filtype=automatische Zahl(Zahl)
Fall 202
filtype=Zeichen
Fall 203
filtype=bemerkungen
Fall 125
Filtertyp=Datum
Fall 11
filtype=true/false(ja/nein)
Ende auswählen
Response.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Nächste
Response.write </div>&vbcrlf
rs.Schließen
setze rs=nichts
Funktion beenden
%>