Cette méthode peut obtenir le nom de la table des données ACCESS, sa structure, son type de données, etc... Le programme filtre plusieurs tables cachées de plusieurs bases de données ACCESS (cela peut être la raison pour laquelle la base de données ACCESS deviendra plus grande après la suppression des données)
<html>
<tête>
<title>Obtenir le nom de la table de base de données ACCESS_www.vevb.com</title>
</tête>
<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>
Chemin de la base de données :<input type=text name=path value= size=50 />
<input type=hidden name=ari value=1 />
<input type=submit value=View/>
</form>
<hr>
<%
si request.form(ari)=1 et request.form(path)<> alors
dim conn,connstr,i,sql,rs
en cas d'erreur, reprendre ensuite
Connstr=DRIVER=Pilote Microsoft Access (*.mdb);DBQ=+server.mappath(request.form(path))
Définir Conn=Server.CreateObject(ADODB.Connection)
conn.Ouvrir connstr
Si erreur alors
err.Effacer
SetConn=Rien
Erreur de connexion à la base de données Response.Write, veuillez vérifier la chaîne de connexion.
Réponse.Fin
Fin si
%>
<font color=red><%=conn.connectionstring%></font><hr>
<%
j=0
faible nombre de tables
nombre de tables = 0
Définir shm = conn.OpenSchema(20)
shm.MoveFirst
Faire sans shm.EOF
Si shm(TABLE_TYPE) = TABLE Alors
If Left(shm(table_name), 1) <> ~ Then 'Filtrer les tables cachées ici
j=j+1
appelez GetFileds(shm(table_name))
Fin si
Fin si
shm.MoveNext
Boucle
réponse.write Il y a &j& tables de données au total !
autre
réponse.write <h3>Veuillez entrer le chemin relatif vers la base de données pour afficher le contenu spécifique !</h3>
finir si
%>
</corps>
</html>
<%
Fonction GetFileds(TableName)
Définir rs = server.createobject (adodb.recordset)
Faible SQL
SQL = sélectionner * dans & TableName
rs.Open SQL, connexion, 1, 1
DimCont
Cont = rs.Fields.Count
réponse.write <div style=margin-bottom:10px;padding:5px;border:1px #dddddd solid;background:#eeeeee>&vbcrlf
La table réponse.write <font color=red><b>&TableName&</b></font> contient les champs &Cont&, comme suit :<br>&vbcrlf
Pour i = 0 Pour Cont - 1
type de filtre
sélectionnez le cas rs.fields(i).type
cas 3
filtype=numéro automatique (numéro)
cas 202
filtype=caractère
cas 203
filtype=remarques
cas 125
type de fil=date
cas 11
filtype=vrai/faux(oui/non)
fin de la sélection
réponse.write <font color=red>&i&</font>--<font color=green><b>&rs.fields(i).name&</b></font>--&filtype&;<br />&vbcrlf
Suivant
réponse.écrire </div>&vbcrlf
rs.Fermer
définir rs = rien
Fonction de fin
%>