Comment remplir une zone de liste déroulante vb avec les données de la table de base de données

Vous pouvez remplir une boîte VB combo à partir d`une table de base de données.

Dans Visual Basic, zones de liste déroulante sont souvent utilisés dans les programmes de saisie de données et lors de la présentation des informations via des formulaires en ligne. Par exemple, vous pourriez avoir besoin de choisir parmi une liste d`états ou de codes postaux et en cliquant sur une liste déroulante vous présente les différentes sélections. Une zone de liste déroulante est remplie avec les éléments définis par l`utilisateur qui sont généralement ajoutés par le programmeur lors de la conception, mais vous pouvez également remplir une zone de liste déroulante avec des éléments d`une table de base de données en utilisant seulement quelques lignes de code.

Choses que vous devez

installé Visual Basic

fichier de base de données

Lancez Visual Basic en cliquant sur le "Démarrer" bouton et sélection "Programmes," "Microsoft Visual Studio" et alors "Microsoft Visual Basic [numéro de version]."
Sélectionner "EXE standard" sous le "Nouveau projet" boite de dialogue. Cliquez "Ouvrir" pour ouvrir une nouvelle forme.
Clique sur le "Boîte combo" le contrôle de la boîte à outils sur la gauche et le faire glisser vers le formulaire de centre. Définissez ses propriétés dans la fenêtre Propriétés sur la droite.
Ajouter un "ADO" contrôler dans le formulaire. Définissez sa "Visible" immeuble à "Faux."
Clique le "Afficher le code" bouton sur le dessus de la fenêtre Explorateur de projet pour commencer à ajouter du code. Dans l`exemple ci-dessous, les 50 états américains seront ajoutés dans la zone de liste déroulante à partir d`une table de base de données. Lorsque le formulaire est chargé lors de l`exécution, la zone de liste déroulante est remplie automatiquement. Allez à la "Form_Load" événement et entrez le code similaire à ce qui suit:
conn Dim As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = DBEngine.OpenDatabase (App.Path & " dbDatabase.mdb")
Set rs = conn.OpenRecordset ("tblStates")
Si rs.RecordCount gt; 0 Then
Do While Not rs.EOF
Avec Combo1
.AddItem rs.Fields ("USStateName")
Terminer par
.MoveNext
Boucle
Fin si
appuie sur le "F5" touche de votre clavier pour exécuter votre programme.
Enregistrez votre projet Visual Basic en cliquant "Fichier" et alors "Enregistrer le projet sous" dans le menu.