Connection.asp |
Explications |
<html>
<head>
<title>Connection Excel </title>
</head>
<body> |
En tête HTML |
<%Set OBJdbConnection =
Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "test"
SQLQuery = "SELECT * FROM
Table1"
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) Table1"
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">Age</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("Age")%></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 (la base est inclue) |
- Vous noterez que cette explication est très similaire de
l'intéraction avec une base de données ACCESS. Ceci est voulue pour vous montrer la
souplesse d'utilisation des différents supports.
- Si vous désidrez effectuez une connection DNSLes (sans untilisaton
d'un DNS) remplacez la ligne :
- OBJdbConnection.Open "test"
par
OBJdbConnection.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" &
Server.MapPath("/tutorial/Excel") & "\base.xls;"
pour une base nommé "base.xls" présente dans le même répertoire
"tutorial/excel" par rapport à la racine de votre site.
- ATTENTION : Une connection Excel ne peut-être utilisé au même
titre qu'une bse ACCESS, faites très attention à la montée en charge d'accès au
fichier !!!!
|