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
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Exécuter requete en temps réel combobox
- Renommer plusieurs fichiers en même temps - Guide
- Maps satellite en temps réel - Guide
- Temps pour soi iphone - Guide
- Metre taille reel - Guide
- Google maps trafic en temps réel - Guide