|
ASP / Afficher
le contenu d'une table d'une bases de données Access
Nous
allons créer une page Web Dynamique avec laquelle, nous afficherons le
contenu d'une table d'une bases de données Access
Pour cela, nous devons créer une base de données avec Access que l'on
nommera ami.mdb. Dans celle-ci, nous allons créer une table que l'on nommera
Liste et dans cette table, nous allons créer les champs qui suivent :
| CHAMP
|
Type |
|
| ID |
NuméroAuto |
|
| Nom |
Texte |
50 |
| Prenom |
Texte |
50 |
| Age |
Numérique |
3 |
| Ville |
Texte |
50 |
| Tel |
Numérique |
10 |
Une fois la table crée, saisissez quelques enregistrements dedans.
Puis nous créons UN DSN système que nous nommerons ami
Maintenant, nous allons créer notre page ASP que nous nommerons affiche.asp
Dans cette page, nous commencerons par créer la connexion avec la base
ami.
Voici le script commenté :
<% Set CB=Server.CreateObject("ADODB.Connection")
'Utilisation de la méthode CreateObject de l'objet Server pour créer une
instance de l'objet Connection dans l'objet CB
CB.open "Ami"
'Ouverture de la connexion avec la base ami grace a la méthode Open de
l'objet Connection pour pouvoir accéder au données de la base ami
SQL = "Select * From liste order by ID"
'Création de la variable SQL et affectation de la chaine de caracteres
qui est la requete SQL
Set rs=CB.execute(SQL)
'Affectation du résultat le l'éxecution de la requete SQL dans l'objet
nommé rs
%>
Maintenant que nous avons crée la connexion et récupéré le résultat de
la requete dans l'objet rs, noua allons l'afficher a l'écran
<HTML>
<HEAD>
<TITLE>Affiche le contenu de la base ami</TITLE>
</HEAD>
<BODY>
<% do while not rs.EOF
'Parcours de l'objet rs avec la boucle do ... loop tant que rs n'est pas
arrivé a la fin%>
<%=rs("Nom")
'Affichage de la valeur du champ Nom de la table liste
%><BR>
<%=rs("Prenom")
'Affichage de la valeur du champ Prenom de la table liste
%><BR>
<%=rs("Age")
'Affichage de la valeur du champ Age de la table liste
%><BR>
<%=rs("Ville")
'Affichage de la valeur du champ Ville de la table liste
%><BR>
<%=rs("Tel")
'Affichage de la valeur du champ Tel de la table liste
%><BR>
<%rs.movenext
'Passage a l'enregistrement suivant de l'objet rs
%>
<%Loop
'Fin de la boucle
%>
<%Set rs=Nothing
'
Suppression de la référence a l'objet rs
%>
</BODY>
</HTML>
Voici le Script Final :
<% Set CB=Server.CreateObject("ADODB.Connection")
CB.open "Ami"
SQL = "Select * From liste order by ID"
Set rs=CB.execute(SQL)
%>
<HTML>
<HEAD>
<TITLE>Affiche le contenu de la base ami</TITLE>
</HEAD>
<BODY>
<% do while not rs.EOF%>
<%=rs("Nom")%><BR>
<%=rs("Prenom")%><BR>
<%=rs("Age")%><BR>
<%=rs("Ville")%><BR>
<%=rs("Tel")%><BR>
<%rs.movenext%>
<%Loop%>
<%Set rs=Nothing%>
</BODY>
</HTML>
|
