Exécuter requete en temps réel combobox
sistaroro
-
majon Messages postés 6 Statut Membre -
majon Messages postés 6 Statut Membre -
Bonjour, j'ai un petit souci!
En fait j'ai une combobox qui contient le nom de personnes qui sont dans ma base de données.
J'arrive a charger le nom de toutes ces personnes de facon dynamique avec la base de données Access. Mais je veux qu'en tapant les premières lettres, elle affiche seulement les noms des personnes commencant par ces lettres.
Voici le code qui affiche tous les noms dans la combobox
'Vider la liste'
listenom.Items.Clear()
'Déclaration de la connexion à la base de données'
Dim MaConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=librairie.mdb")
'Déclaration de la variable commande qui va contenir la requête'
Dim Macommande As OleDbCommand = MaConnexion.CreateCommand()
'Commande avec la requete'
Macommande.CommandText = "SELECT DISTINCT nom_client FROM client ORDER BY nom_client;"
'Ouverture de la connexion'
MaConnexion.Open()
'Déclaration du lecteur de résultats de la requete'
Dim myReader As OleDbDataReader = Macommande.ExecuteReader()
'Tant qu'il y a des résultats ,afficher dans la liste box'
Do While myReader.Read()
' On ajoute dans la liste déroulante de la fenetre modifier client'
listenom.Items.Add(myReader (0) )
Loop
myReader.Close()
MaConnexion.Close()
Je vous remercie d'avance de votre aide
En fait j'ai une combobox qui contient le nom de personnes qui sont dans ma base de données.
J'arrive a charger le nom de toutes ces personnes de facon dynamique avec la base de données Access. Mais je veux qu'en tapant les premières lettres, elle affiche seulement les noms des personnes commencant par ces lettres.
Voici le code qui affiche tous les noms dans la combobox
'Vider la liste'
listenom.Items.Clear()
'Déclaration de la connexion à la base de données'
Dim MaConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=librairie.mdb")
'Déclaration de la variable commande qui va contenir la requête'
Dim Macommande As OleDbCommand = MaConnexion.CreateCommand()
'Commande avec la requete'
Macommande.CommandText = "SELECT DISTINCT nom_client FROM client ORDER BY nom_client;"
'Ouverture de la connexion'
MaConnexion.Open()
'Déclaration du lecteur de résultats de la requete'
Dim myReader As OleDbDataReader = Macommande.ExecuteReader()
'Tant qu'il y a des résultats ,afficher dans la liste box'
Do While myReader.Read()
' On ajoute dans la liste déroulante de la fenetre modifier client'
listenom.Items.Add(myReader (0) )
Loop
myReader.Close()
MaConnexion.Close()
Je vous remercie d'avance de votre aide
A voir également:
- Exécuter requete en temps réel combobox
- Maps satellite en temps réel - Guide
- Google maps trafic en temps réel - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Partager sa position en temps réel - Guide
- Excel trier plusieurs colonnes en même temps - Guide