| Connection.asp |
Explications |
<html>
<head>
<title>Connection</title>
</head>
<body> |
En tête HTML |
| <%Set OBJdbConnection =
Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "test"
SQLQuery = "SELECT * FROM Annuaire"
Set RS =
OBJdbConnection.Execute(SQLQuery)%> |
Déclaration d'une variable OBJdbConnection qui connecte la
base Reprise de la variable OBJdbConnection suivi de .Open
qui "ouvre" la base de données
"test"
Déclaration d'une variable
SQLQuery qui fait un filtre sur la base : "SELECT ( selectionne) * (tout) FROM (de
la table) Annuaire"
Déclaration d'une variable
RS qui correspond à l'appel
complet à la base |
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="300"> |
Déclaration du tableau |
| <tr> |
Saut de ligne dans un tableau |
| <td align="center">Nom</td> <td align="center">Prénom</td>
<td
align="center">Société</td> |
Cellule d'en tête du tableau |
| </tr> |
Saut de ligne dans un
tableau |
| <%Do While Not
RS.EOF%> |
Début du test : DO While.... Loop : Répète un bloc d'instructions tant
qu'une condition est vrai.
Ici nous allons répéter l'instruction NOT RS.EOF qui
veut dire : tant que nous ne sommes pas en fin de fichier (End
Of File) on boucle. |
| <tr> |
Saut de ligne dans un
tableau |
<td><%=rs("Nom")%></td>
<td><%=rs("Prenom")%></td>
<td><%=rs("Societe")%></td> |
Exécution de la variable RS qui
appelle la cellule de la colonne Nom |
| </tr> |
Saut de ligne dans un tableau |
<%RS.MoveNext
Loop
%> |
Exécution de la varaible RS avec .MoveNext qui correspond à un passage à la ligne dans la
base de données |
</table>
</center></div>
</body>
</html> |
Fin de déclaration du tableau Fin de page |
Téléchargez le code
Téléchargez la base
(attention à la déclaration) |