Discussion :

[mat76]

Bonjour,

Je suis Grand débutant en VB et j' ai besoin d' un petit renseignement.

Voila je voudrais dans un formulaire créer plusieurs listes déroulantes qui récuperent leurs valeurs dans une base de donnée access.

Oui mais voila comment faire...

Après avoir fouiller sur le web et "bidouillé" je n' y arrive pas.

J' ai bien compris le principe de connexion à la base de donnée via BindingSource qui si j' ai bien tout compris me crée un DataSet mais ensuite pour mettre en relation ma ListBox avec les champs que je désire et bah je n' y arrive pas... Je suppose encore que je dois renseigner dans les propriétés de ma ListBox les champs contenus dans DataBindings mais je ne sais quoi renseigner.

Bref je nage dans le flou total, je pense que de générer le code doit etre plus simple mais la encore ..... je débute.

Y aurait il une ame charitable pour me montrer la voie?

[Pol63]

j'y connais rien en bindings et autre trucs automatiques
mais en manuel ca donnerait à peu près ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim connexion as oledbconnexion ("chaine de connexion")
dim command as oledbcommand ("select * from table",connexion)
dim reader as oledbreader
connexion.open
reader = command.executereader
 
while reader.Read
  listbox1.add(reader.item(O))
while end
reader.close
connexion .close

enfin c'est à adapter mais le nombre de ligne doit pas etre loin de ca
(et avec un petit try catch)

[Kropernic]

Perso, vu que le monsieur a un DataSet apparemment qui contient ces données, j'aurais plutot fait qqch du genre :

Code :

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

1
2
3
MonControl.DataSource = MonDataSet.Tables(0)
MonControl.DisplayMember = MonDataSet.Tables(0).Item("macolonneA")
MonControl.ValueMember = MonDataSet.Tables(0).Item("macolonneB")

Où MonDataSet est le DataSet renvoyé par la requête et MonControle, le composant où il veut que les valeurs s'affichent.

La propriété DataSource spécifie où puiser l'information (la source quoi^^).
La propriété DisplayMember spécifie la colonne où le composant va chercher les valeurs à afficher.
La propriété ValueMember spécifie la colonne où le composant va chercher la valeur rattachée à ce qui est affiché.

Exemple à la con :

Imaginons que nous ayons une table qui reprend les différents status qu'un objet x peut avoir. Disons que dans la table on a 2 colonnes. Un id et un nom.

Si on fait un "select * from MaTableDesStatus" et qu'on place tout ça dans ds (DataSet), après, avec une combobox, je peux faire :

Code :

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

1
2
3
combobox1.DataSource = ds.Tables(0)
combobox1.DisplayMember = ds.Tables(0).Item("nom")
combobox1.ValueMember = ds.Tables(0).Item("id")

Ce qui fera que la combo affichera la liste des noms des différents status mais quand on sélectionne un, derrière, c'est l'id qui est sélectionné.

Si j'suis pas clair, référez-vous au cours de Philippe Lasserre. Il est extrêment bien fait !

Griftou.

[mat76]

J' essaierai vos codes ce soir mais merci d' avoir été aussi réactif en tout cas

Si j'suis pas clair, référez-vous au cours de Philippe Lasserre. Il est extrêment bien fait !

Griftou.

C' est ce cour dont tu parles griftou? http://plasserre.developpez.com/vsommair.htm

[Pol63]

oui, ce site explique beaucoup de choses sur vb.net
on y est tous passé un jour ou l'autre

[Kropernic]

Oui oui, c'était bien celui là ^^

Griftou.

[mat76]

J' ai donc abandonné de tenter d' afficher mes données à partir du l'onglet propriétés de ma listbox....

J' ai donc pas mal potasser le cour de Mr lasserre et j' en avais plein la tête (bah oui ca peut pas rentrer en un jour :p ) alors j' ai décider de mettre à pratique ce que j' avais vu et ce que vous m' avais conseillé.

J' ai donc fais un dataset qui pointe directement sur un champ "marque" ensuite voial ce que j' ai fais

Code :

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

1
2
3
4
5
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox1.DataSource = marque.Tables(0)
        ListBox1.DisplayMember = marque.Tables(0)("Marque")
        ListBox1.ValueMember = marque.Tables(0).Item("id")
    End Sub

Inspiré pour pas dire copier ce qu' avais posté griftou.

Cependant voila que vb m' averti :

Code :

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

Erreur	1	La classe 'System.Data.DataTable' ne peut pas être indexée, car elle n'a pas de propriété par défaut.	C:\Users\Mathieu\Desktop\CESI\VB\RESERVATION_INFORMATIQUE\RESERVATION_INFORMATIQUE\FRM_Réservation.vb	15	34	RESERVATION_INFORMATIQUE

et la je dit help.

M'y suis je mal pris pour faire mon dataset? Es ce plus simple de s'en passer et de taper du code sql?

[Kropernic]

On peut voir le bout de code où tu crées ton dataset ?

Enfin si tu fais ça en automatique, ce qu'il faut connaitre c'est le nom du dataset. Là avec cette erreur, on dirait que "marque" n'est pas le dataset mais un datatable du dataset.

Griftou.

[mat76]

Tu avais raison, j' ai tout repris depuis le début pour y voir plus clair.

Voial comment j' ai procèdé :



Je me connecte à ma base de donnée via l' outils BindingSource, je lui indique le chemin de mon .mdb ensuite je sélectionne les tables et les champs que je veux utiliser, la en l' occurrence je sélectionne tout.

Ce qui me donne un dataSet qui se nomme Rerservation_InformatiqueDataSet

Ensuite pour ma listbox voila ce que j' ai fait :

Code :

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

1
2
3
4
5
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ListBox1.DataSource = Rerservation_InformatiqueDataSet.Portable(0)
        ListBox1.DisplayMember = Rerservation_InformatiqueDataSet.Portable(0)("N° portable")
        ListBox1.ValueMember = Rerservation_InformatiqueDataSet.Portable(0).Item("id")
    End Sub

Et la effectivement plus de messages d' erreur par contre ma listbox bah elle liste rien ^^ j' ai un jolie carré balnc à la place de mes marques

[Kropernic]

Pourquoi tu mets ce code dans l'évent SelectedIndexChanged ?

Ces instructions ne sont effectuées que lorsque tu changes d'éléments dans ta listbox. Essaie plutot dans le FormLoad ou qqch du genre.

Griftou.

[mat76]

En fait je crée la liste box à partir de la barre d' outils et ensuite je double clik dessus ce qui me met en mode "code" pour lui attribuer le code que tu m' a donner.

SelectedIndexChanged a été généré lors de la création de la listbox sans quoi que je fasse.

j' ai coller le code entre les deux.

Apparement les outils graphiques sont plus une contrainte que de développer qu' en code.

Je sens que je vais m' amuser

[Kropernic]

Non c'est tout à fait logique. Lorsque tu double-cliques sur un contôle, tu accèdes à l'évènement le plus couramment utilisé pour ce contrôle.

Si tu double-cliques sur un bouton, tu arriveras dans l'évènement Click du bouton afin de pouvoir affecter du code à cet évènement.
Idem pour ta listbox. L'évènement "par défaut" est celui qui se produit lorsque l'utilisateur choisit un élément dedans. C'est donc lorsque l'index sélectionné change et c'est bien l'évènement dans lequel tu rentres quand tu double-cliques dessus.

Tu dois donc double-cliquer sur le contrôle Form et mettre ton code là.

Sais pas du tout si j'suis clair ^^.

Griftou.

[mat76]

Si si, donc ce n' est pas entre le sub / End Sub du bouton qu' il faut que je code mais au démarrage , pour le formulaire.

Je vais essayer ca, merci



[edit]

Mmm maintenant j' ai ca comme erreur au lancement du formulaire

Code :

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

1
2
3
4
5
6
<System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
        Public Default ReadOnly Property Item(ByVal index As Integer) As PortableRow
            Get
                Return CType(Me.Rows(index),PortableRow)
            End Get
        End Property

et j' ai fais ca

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
Public Class FRMreservation
 
    Private Sub basededonnée_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles basededonnée.CurrentChanged
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
    End Sub
 
    Private Sub FRMreservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.DataSource = Rerservation_InformatiqueDataSet.Portable(0)
        ListBox1.DisplayMember = Rerservation_InformatiqueDataSet.Portable(0)("Marque")
        ListBox1.ValueMember = Rerservation_InformatiqueDataSet.Portable(0).Item("N° portable")
    End Sub
End Class

[Kropernic]

J'ai jamais vu cette erreur ^^.

Par contre, si j'ai bien suivi ce que tu as fait, dans :

Code :

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

1
2
3
4
5
    Private Sub FRMreservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.DataSource = Rerservation_InformatiqueDataSet.Portable(0)
        ListBox1.DisplayMember = Rerservation_InformatiqueDataSet.Portable(0)("Marque")
        ListBox1.ValueMember = Rerservation_InformatiqueDataSet.Portable(0).Item("N° portable")
    End Sub

Portable est le nom d'une table de ton dataset ? Si oui, il faut enlever le "(0)" car cela veut dire que tu prends la ligne à l'index 0. Or ce n'est pas du tout ce que tu veux faire. S'il y a plusieurs tables dans ton dataset, enlève le "(0)". S'il n'y a qu'une seule table, remplace "Portable" part "Tables". Tu prendras alors la tables à l'index 0.

Suis-je clair ?

Griftou.

[mat76]

Portable est bien le nom d' une table et j' en ai 4 dans mon dataset.

j' enlève (0) donc?

[Kropernic]

Si tu veux accéder à la table qui s'appelle "Portable" alors oui.