Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 02:40:58

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

RE : PROBLEME VB6 par xanasx

PROBLEME VB6 par xanasx

SALUT par hachem100

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

+ de logiciels à télécharger

1 467 621 membres
39 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 665 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉATION D'UNE LISTE DE CHOIX, DONT LES OPTIONS SONT ISSUES D'UNE BASE DE DONNÉES.

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 702

Auteur : Kdo

Site perso

Ecrire un message privé

Ce membre participe au partage de revenus publicitaires

Note :

7,41 / 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

[VB 8][.NET 2]APPELER UN FICHIER DISTANT AVEC LES MÉTHODES P... par FREMYCOMPANY

RAPIDO par mimiZanzan

CRYPTER DES PAGES ASP par Yoyo2B

DIRECTX TUTO 9 : DIRECTINPUT LA SOURIS .... par ciberrique

SSA (SCRIPT SERVEUR ACTIF) COMME ASP POUR VOS SERVEURS HTTP par DeadlyPredator

Toutes les sources de la catégorie ASP

Sources en rapport avec celle ci

GESTION DE BASE DE DONNÉE ACCESS COMPLÈTE AVEC ORIENTÉ OBJET par ThoT49

GESTION D'UN CONCOURS DE PÊCHE SANS BASE DE DONNÉES par theboogymaster

QUICK_EXP : BASE DE DONNÉES par Exploreur

BASE DE DONNÉES EN ADO POUR DÉBUTANT par Exploreur

LISTE DES SERVEURS SQL par exterminatix

Commentaires et avis

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

Ajouter un commentaire

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