Accueil > > > CRÉATION D'UNE LISTE DE CHOIX, DONT LES OPTIONS SONT ISSUES D'UNE BASE DE DONNÉES.
CRÉATION D'UNE LISTE DE CHOIX, DONT LES OPTIONS SONT ISSUES D'UNE BASE DE DONNÉES.
Information sur la source
Description
Liste de choix : sélection d'une catégorie de site internet.
Source
- <%
- ' Declaration de la connexion base de donnees
- Dim DSN_BASE
- DSN_BASE = "DBQ=" & Server.Mappath(".Nom_Base.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
- Set CONNFavoris = Server.CreateObject("ADODB.Connection")
- CONNFavoris.ConnectionTimeout = 30
- CONNFavoris.CommandTimeout = 30
- CONNFavoris.Open DSN_BASE
-
-
- ' Construction de la requete SQL
-
- RequeteSQL = "SELECT DISTINCT Genre FROM Nom_Table"
-
- ' Recup des donnees dans la base
- Set objRecordset = Server.CreateObject("ADODB.Recordset")
- objRecordset.Open RequeteSQL,CONNFavoris
- %>
- <html>
- <head>
- <title>Selection</title>
- </head>
-
- <body>
- <H4>Sélectionnez une catégorie</h4>
- <form name="Choix" Action="find2.asp" method="post">
- <select name="Selection" size="1">
- <%
- objRecordset.MoveFirst
-
- Do While Not objRecordset.EOF
- %>
- <option value="<%=objRecordset("Genre")%>"><% =objRecordset("Genre")%></option>
- <%
- objRecordset.MoveNext
- Loop
- %>
- </select>
- <input name="Lancer" Type="submit" Value="Lancer la recherche">
- </form>
-
-
- </body>
- </html>
<%
' Declaration de la connexion base de donnees
Dim DSN_BASE
DSN_BASE = "DBQ=" & Server.Mappath(".Nom_Base.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set CONNFavoris = Server.CreateObject("ADODB.Connection")
CONNFavoris.ConnectionTimeout = 30
CONNFavoris.CommandTimeout = 30
CONNFavoris.Open DSN_BASE
' Construction de la requete SQL
RequeteSQL = "SELECT DISTINCT Genre FROM Nom_Table"
' Recup des donnees dans la base
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open RequeteSQL,CONNFavoris
%>
<html>
<head>
<title>Selection</title>
</head>
<body>
<H4>Sélectionnez une catégorie</h4>
<form name="Choix" Action="find2.asp" method="post">
<select name="Selection" size="1">
<%
objRecordset.MoveFirst
Do While Not objRecordset.EOF
%>
<option value="<%=objRecordset("Genre")%>"><% =objRecordset("Genre")%></option>
<%
objRecordset.MoveNext
Loop
%>
</select>
<input name="Lancer" Type="submit" Value="Lancer la recherche">
</form>
</body>
</html>
Conclusion
Une fois la sélection faite, le fichier FIND2.ASP affiche les sites internet correspondant à votre choix de catégorie.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Comment avoir la liste de tous les fichiers d'un CD dans une base de données [ par latour ]
Oui je débute...J'amerai savoir comment faire pour avoir une liste complétedes fichiers dans plusieurs répértoire ainsi que leur chemin...(dans un mêm
VB.net : liste box et base de données [ par fabts ]
Bonjour à tous,J'essaye de remplir une liste box avec une base de données...seulement je n'y arrive pas !! Alors comment fait-on ? Sachant que j'ai pl
Base de données et combobox [ par tchoo83 ]
Bonjour voila mon problème :J'ai une base de données Access 2000 et j'ai une table avec un champ numerique qui renvoie à une autre table, avec ce meme
Choix d'une table dans un data [ par Omega15 ]
Bonjour,jaimerai savoir, comment peut-on selectionner par une ligne de commande, la table d'une base de donné utilisé dans un data.Je m'expl
Choix de structure de ma base de données [ par moustik510 ]
Bonjour, j'aurais besoin d'aide pour mon stage: L'entreprise veut un affichage dynamique de ses produits, j'ai choisi PHP + mysql. Je n'ai pas de que
Choix de structure de ma base de données [ par moustik510 ]
Bonjour, j'aurais besoin d'aide pour mon stage: L'entreprise veut un affichage dynamique de ses produits, j'ai choisi PHP + mysql. Je n'ai pas de que
Actualisation d'une base de données [ par sebast105 ]
Bonjour,Je développe actuellement un projet dans lequel j'ai une base de données sous Access. Dans un de mes formulaires j'utilise une zone
construire une liste a partir d'une base de données [ par damiendu56 ]
Bonjour à tous,je travaille actuellement sur une application en vb5 qui est en relation avec une base de données access. Dans cette base j'a
Liste des tables de ma base de données SQL [ par picinounours51 ]
Bonjour, je suis actuellement à la recherche d'un moyen afin de pouvoir récupéré le nom de mes tables d'une base de données.E
infos base de données [ par typa ]
Bonjour je viens de créer une base de données de réservation de train sous Access , et j'ai quelques problèmes : est-ce que quelqu'un saurait créer d
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|