Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 402 fois - Téléchargée 36 fois
<% ' 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>
Si t'as une idee...
Sinon code sympa, merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.