[Visual basic 2005] Comment récupérer des champs d' une base access

Version imprimable

06/11/2007, 11h11
mat76

[Visual basic 2005] Comment récupérer des champs d' une base access

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?

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

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)

06/11/2007, 12h32
Kropernic
Perso, vu que le monsieur a un DataSet apparemment qui contient ces données, j'aurais plutot fait qqch du genre :
Code:

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:

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.
06/11/2007, 13h29
mat76

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

Citation:

Envoyé par griftou

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
06/11/2007, 13h36
Pol63

oui, ce site explique beaucoup de choses sur vb.net
on y est tous passé un jour ou l'autre :D
06/11/2007, 13h47
Kropernic

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

Griftou.

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:

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:

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?

06/11/2007, 18h42
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.

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:

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

07/11/2007, 08h17
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.
07/11/2007, 11h48
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 :aie:
07/11/2007, 11h54
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.

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:

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:

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

J'ai jamais vu cette erreur ^^.

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

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.

07/11/2007, 14h02
mat76

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

j' enlève (0) donc?
07/11/2007, 14h08
Kropernic

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