Base Access + VBS
Fermé
angy21
Messages postés
39
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
26 juin 2007
-
29 sept. 2005 à 06:05
rachid - 29 sept. 2005 à 22:46
rachid - 29 sept. 2005 à 22:46
3 réponses
salama,
il est tout a fait possible de manipuler une base de donnée par le biais de vbscript, essaie d'expliquer d'avantage ton probleme.
il est tout a fait possible de manipuler une base de donnée par le biais de vbscript, essaie d'expliquer d'avantage ton probleme.
angy21
Messages postés
39
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
26 juin 2007
1
29 sept. 2005 à 20:15
29 sept. 2005 à 20:15
Bonjour,
Merci tout dabord pour ton aide.
Alors pour résumé :
J'ai une TABLE TOTO avec Nom et Prénom et j'ai une autre TABLE TITI avec Ville et Pays.
Je souhaiterai pouvoir tout dabord lire le contenu des tables et pouvoir ensuite écrire dedans (en rajoutant des enregistrements)
Merci pour ton aide
Merci tout dabord pour ton aide.
Alors pour résumé :
J'ai une TABLE TOTO avec Nom et Prénom et j'ai une autre TABLE TITI avec Ville et Pays.
Je souhaiterai pouvoir tout dabord lire le contenu des tables et pouvoir ensuite écrire dedans (en rajoutant des enregistrements)
Merci pour ton aide
salam,
voici un lien qui te sera tres utiles pour debuter la programation asp,
http://www.asp-irine.com/
pour ton cas je vais te te créer le code qui te permetteras qui permettera l'affichage des données dans un tableau avec la mise en forme tu vas remarquer que le code n'est pas tres claire vue que tu es dedutante mais tu devras par la suite visiter le lien que je t'ai donner pour pouvoir le dechiffrer.
copie le code ci dessous et met le dans un fichier texte que tu vas le renommer en lister.asp puis tu vas mettre ce fichier ainsi que la base de données qui contient les enregistrement (je l'ai nommé base fait autant toi meme pour que ce code fonctionne) tu vas mettre le tous dans la racine du site web, puis tu vas tapper 127.0.0.1/lister.asp
<%'-------déclaration de la base-----------------------------------------------------
'---------(opération qu'il suffit de faire une seule fois en début de fichier)-------
DSN_BASE = "DBQ=" & Server.Mappath("base.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<html>
<head>
<title>lister les informations contenu dans la table toto</title>
<meta name="generator" content="Namo WebEditor v5.0">
</head>
<body bgcolor="black" link="yellow" vlink="lime" alink="yellow">
<%'-------création de la connection et du recordset--------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")%>
<%'-------selectionner les champs de la table TOTO---------
rs.Open "Select * from TOTO " , Conn%>
<%'-------gestion d'une éventuelle table vide--------------------------------
if rs.eof=true then%>
<br><font face="Arial" color="yellow"><span style="font-size:12pt;"><b>pour le moment, aucun enregistrement dans la base de données</b>!</span></font>
<%else%>
<br><font face="Arial" color="yellow"><span style="font-size:12pt;"><b>liste des enregistrements</b></span></font>
<%'-------------------affichage des résultats dans un tableau---------------------%>
<div align="center">
<br>
<table width="324" cellspacing="0" cellpadding="4" bordercolor="red" border="1">
<tr>
<td width="162"><font color="yellow"><b><span style="font-size:14pt;">Nom</span></b></font></td>
<td width="140"><font color="yellow"><b><span style="font-size:14pt;">Prénom</span></b></font></td>
</tr>
<%rs.MoveFirst
'tant qu'il y a des enregistrement
do while not rs.eof
%>
<tr>
<td width="162"><font face="Arial" color=white><b><%=rs("Nom")%></b></font></td>
<td width="140"><font face="Arial" color=white><b><%=rs("Prenom")%></b></font></td>
</tr>
<% end if %>
<%rs.MoveNext
loop%>
</table>
</div>
<p align="left"> </p>
<%'-------fin de la gestion de la table vide----------------------------------%>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
voici un lien qui te sera tres utiles pour debuter la programation asp,
http://www.asp-irine.com/
pour ton cas je vais te te créer le code qui te permetteras qui permettera l'affichage des données dans un tableau avec la mise en forme tu vas remarquer que le code n'est pas tres claire vue que tu es dedutante mais tu devras par la suite visiter le lien que je t'ai donner pour pouvoir le dechiffrer.
copie le code ci dessous et met le dans un fichier texte que tu vas le renommer en lister.asp puis tu vas mettre ce fichier ainsi que la base de données qui contient les enregistrement (je l'ai nommé base fait autant toi meme pour que ce code fonctionne) tu vas mettre le tous dans la racine du site web, puis tu vas tapper 127.0.0.1/lister.asp
<%'-------déclaration de la base-----------------------------------------------------
'---------(opération qu'il suffit de faire une seule fois en début de fichier)-------
DSN_BASE = "DBQ=" & Server.Mappath("base.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<html>
<head>
<title>lister les informations contenu dans la table toto</title>
<meta name="generator" content="Namo WebEditor v5.0">
</head>
<body bgcolor="black" link="yellow" vlink="lime" alink="yellow">
<%'-------création de la connection et du recordset--------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")%>
<%'-------selectionner les champs de la table TOTO---------
rs.Open "Select * from TOTO " , Conn%>
<%'-------gestion d'une éventuelle table vide--------------------------------
if rs.eof=true then%>
<br><font face="Arial" color="yellow"><span style="font-size:12pt;"><b>pour le moment, aucun enregistrement dans la base de données</b>!</span></font>
<%else%>
<br><font face="Arial" color="yellow"><span style="font-size:12pt;"><b>liste des enregistrements</b></span></font>
<%'-------------------affichage des résultats dans un tableau---------------------%>
<div align="center">
<br>
<table width="324" cellspacing="0" cellpadding="4" bordercolor="red" border="1">
<tr>
<td width="162"><font color="yellow"><b><span style="font-size:14pt;">Nom</span></b></font></td>
<td width="140"><font color="yellow"><b><span style="font-size:14pt;">Prénom</span></b></font></td>
</tr>
<%rs.MoveFirst
'tant qu'il y a des enregistrement
do while not rs.eof
%>
<tr>
<td width="162"><font face="Arial" color=white><b><%=rs("Nom")%></b></font></td>
<td width="140"><font face="Arial" color=white><b><%=rs("Prenom")%></b></font></td>
</tr>
<% end if %>
<%rs.MoveNext
loop%>
</table>
</div>
<p align="left"> </p>
<%'-------fin de la gestion de la table vide----------------------------------%>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
