CRÉATION D'UNE LISTE DE CHOIX, DONT LES OPTIONS SONT ISSUES D'UNE BASE DE DONNÉES. liste, choix, base, données, Source N°109

Information sur la source

Catégorie :ASP Classé sous : liste, choix, base, données Niveau : Débutant Date de création : 21/10/1999 Vu : 14 301

Auteur : Kdo

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

7,41 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

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&eacute;lectionnez une cat&eacute;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

Toutes les sources de la catégorie ASP

Sources en rapport avec celle ci

Commentaires

Commentaire de JoBleu le 24/07/2003 15:17:36

Salut,

J'essaie de me rappeler comment on manipule une base de données à l'aide d'un formulaire Internet, alors j'ai l'impression que cette page a vocation à être la bonne adresse.

Un souci toutefois : je n'ai pas trouvé Form2.asp

Doit-il être généré automatiquement ?

J'ai juste copié le code ci-dessus dans un fichier TestForm.htm, corrigé le nom de la base et la requête ainsi que le nom de champ pour faire référence à une base existante, et puis lancé ça dans l'explorateur.

Sur le formulaire je vois une liste déroulante qui présente un guillemet et un >, un bouton "Lancer la recherche", et puis c'est tout. Quand je clique, j'obtiens une erreur 404.

Ou bien ton code n'est pas destiné aux débutants ?
Commentaire de thamani le 19/09/2005 21:39:42

bonjour
j'ai créer une application an vb6 avec une bese de données sous sql server j'aimerais bien inviter l'utilusateur à se connecter tous seul comme ça si le nom du serveur change il pourra comme meme se connecter j'ai juste l'idée mais je ne sais pas comment la réalise quelle objet j'utiluserais.....? aider moi s'il vous plais c'esr urgent
Commentaire de ibou83 le 07/05/2007 12:52:51

bonjour
J'ai crée une base de données mais je n'arrive pas à exporter mes propriétes dans la base car je n'arrive pas à installer msdn je ne sais pas quoi faire