Discussion :

[pools]

Bonjour Bonjour,

Je suis actuellement en stage dans une entreprise qui me demande de lui développer une application VB.Net de gestion de client, materiel, devis, facture etc... ce qui implique donc une DB (DataBase).

Alors, mon problème est que je voudrais afficher dans une listeBox tous les noms des clients de la base de données pour que l'utilisateur puisse commencer à entrer un nom et qu'il s'affiche ensuite (ex : la barre d'adresse d'Internet explorer quand on commence à taper une Url présent dans l'historique).

Je pense qu'il y avoir un requete SQL la-dessous du genre SELECT CliNom FROM Client...

Comment dois-je me debrouiller pour faire cela ?

[Hinault Romaric]

Dans ta procédure de lecture dans la BD avec un datareader tu va insérer dans ton listebox en faisant un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listbox.Items.Add("donnée de la BD")

Dans ton code de lecture dans la BD tu insère juste ce bout de code au niveau de la boucle de lecture

[lola06]

Bonjour,

Tu as un excellent cours ici, regarde donc au niveau des listes de choix, des datasources, ...

Sinon pour ta requête SQL, si il n'y a pas de doublons dans la base de données et/ou de conditions lors de l'affichage des clients dans la listbox alors celle-ci est correcte.

J'espère qu'avec ce cours tu pourras avancer.
Lola

[pools]

Merci bcp, je vais étudier tout ça ^^

[Hinault Romaric]

Pas de soucis et si tu a une préoccupation tu peu toujours revenir

[pools]

C'est bon tout marche ^^ thank you ^^

[lola06]

Tant mieux pour toi
Met ton code définitf cela pourra aider d'autres personnes qui en aurait besoin...
Lola

[pools]

alors j'ai juste changé ma ListBox par un ComboBox
Voici mon code définitif :

Tout d'abord la connexion à la base (pour que se soit clair en nous ^^)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
	Dim adap As   System.Data.OleDb.OleDbDataAdapter
	Dim ds As System.Data.DataSet
	Dim tbl As System.Data.DataTable
	Dim lig As Integer 'numeros de la ligne courant dans la ds
 
		'declaration des variables de connexion à la BDD
		Dim i As Integer
		Dim sql As String
		Dim chemin As String
		Dim cs As String
		Dim cnx As System.Data.OleDb.OleDbConnection
		Dim cmd As System.Data.OleDb.OleDbCommand
		Dim dtr As System.Data.DataRow
		Dim nl As Integer
		Dim cmdbld As System.Data.OleDb.OleDbCommandBuilder
                          'creation du DataSet
		ds=New System.Data.DataSet()
 
		'chemin du fichier .mdb
		chemin=System.AppDomain.CurrentDomain.BaseDirectory() & "bdd.mdb"
 
		'chaine de connexion
		cs="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & chemin
 
		'la connexion
		cnx=New System.Data.OleDb.OleDbConnection
		cnx.ConnectionString=cs
		cnx.Open()
 
		'la commande
		cmd=New System.Data.OleDb.OleDbCommand
 
		'la requete
		sql="select * from Contact"
		cmd.CommandText=sql
 
		'creation d'un adaptateur
		adap= New System.Data.OleDb.OleDbDataAdapter(cmd)
		cmd.Connection=cnx
		adap.Fill(ds, "Contact") 'remplissage du DS à partir de la table "Contact"
		tbl=ds.Tables("Contact") 'objet table Contact
 
		MsgBox("Connexion à la base de données effectuée")

Ensuite le codage de mon ComboBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   'Indiquer au ComboBox d'afficher la table "Contact" (indiquer la source)
		cbStruct_Cont.DataSource=ds.Tables("Contact")
		'Indiquer quelle colonne affiche 
                          cbStruct_Cont.DisplayMember="Struct_Cont"