Cascade deux combobox à partir de deux tableaux SQL

Version imprimable

Voir 40 message(s) de cette discussion en une page

24/04/2015, 15h44
bt-med

3 pièce(s) jointe(s)

Bonjour

Merci pour votre Réponse et j'ai compris votre explication , mais lorsque je change

Code:

'" & C1.SelectedIndex & "'"

vers

Code:

'" & C1.Text & "'"

voire le message que je trouve lorsque je choisie un client

Par ce que j'ai déclaré dans la table SQL comme ce dessous

MErci
25/04/2015, 09h06
Abbé Assy

Il va te falloir revoir les types de variable que tu assignes à tes variables.De là vient le problème.
Pour commencer,change la variable client en type text ou varchar.

Citation:

Envoyé par Abbé Assy

Dans tes deux tables, y a t-il un élément commun?
J'ai pour habitude d'utiliser des informations d'une même table.Alors,je vais chercher sur deux tables.

Il suffit de regarder le shema du post 3

Citation:

Envoyé par Abbé Assy

car ce n'est pas l'index qu'il doit choisir mais la valeur (Text) insérée dans C1.

Faux c'est l'id correspondant à la valeur text

Citation:

Envoyé par Abbé Assy

Pour commencer,change la variable client en type text ou varchar.

Surement pas, la table n'a pas à être modifiée pour adapter au code (client est une cle étrangère de la table travaux)

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.

voir du coté de DisplayMember, ValueMember, DataSource. (avec un objet métier ou un dataset)

Je pense qe la lecture du Cours VB.NET de Philippe Lasserre qui est une mine d'information, très bien pour apprendre, vous sera utile a tous les deux.

Un exemple : avec objet métier (simplifié)
La classe représentant un client
Code:

1 2 3 4 5 6 7 8 Class client Property Id As Integer Property Nom As String Sub New(UnId As Integer, UnNom As String) Id = UnId Nom = UnNom End Sub End Class
Def de la liste client

Code:

Dim clients As List(Of client) = New List(Of client)

Alimentation de la combobox
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub chargeClient() clients.Add(New client(1, "Paul")) ' remplacer par les éléments lu par la requête sur les clients (qui ramene l'id et le nom) clients.Add(New client(2, "Philippe")) clients.Add(New client(2, "Louis")) cboClient.DisplayMember = "Nom" cboClient.ValueMember = "Id" cboClient.DataSource = clients End Sub
visu id du client choisit

Code:

MessageBox.Show(DirectCast(cboClient.SelectedItem, client).Id)

25/04/2015, 11h13
Abbé Assy

Ok,merci pour l'information.Tout de même,je veuille bien comprendre que tu me dises que mon code n'utilise pas la meilleure manière.Mais de là à me dire que mon code est faux,je ne pense pas que cela soit juste du moment où ce code fonctionne bien chez moi.Pour rappel,j'utilise mysql worbrench.
25/04/2015, 13h26
rv26t

1 pièce(s) jointe(s)

Citation:

Envoyé par Abbé Assy

Ok,merci pour l'information.Tout de même,je veuille bien comprendre que tu me dises que mon code n'utilise pas la meilleure manière.Mais de là à me dire que mon code est faux,je ne pense pas que cela soit juste du moment où ce code fonctionne bien chez moi.Pour rappel,j'utilise mysql worbrench.

l'id de la table client est de type integer, la clé étrangère du client dans la table travaux est de type integer (mal nommé je le concéde), on ne recherche donc pas le nom dans la table travaux mais l'id. Ce que ne donne pas la propriété text du textbox donc le code que tu donne pour bt-med est faux même s'il fonctionne chez toi parceque le principe qu'il utilise n'est pas le même

Donc cette ligne de code que tu donne

Citation:

Envoyé par Abbé Assy

Ecrit plutôt :

Code:

query = "select affaire from traveaux where client = '" & C1.Text & "'"

car ce n'est pas l'index qu'il doit choisir mais la valeur (Text) insérée dans C1.

est fause (voir schema table ci joint)

C'est gentil de vouloir aider mais il faut maîtriser sinon on embrouille son interlocuteur
25/04/2015, 13h39
bt-med

Merci "rv26t" pour ton aide , et je sais que il y a une petite erreur , car si je change

Code:

'" & C1.Text & "'"

par

Code:

'" & C1.SelectedIndex & "'"

la combobox de l'affaire fonctionne mais me donne une liste des affaires quelconque , pas suivant la choix de la 1er combobox . Mais je ne sais est ce que mon erreur au niveau de les tables SQL ou au niveau de la code .ainsi si je change

Code:

'" & C1.Text & "'"

par un numéro de l'id de client par exemple je mes '2' , la comobobx N2 de la affaire me donne la liste correcte des affaires suivant la client avec id =2 .

s'il te plais aider moi quelle est mon erreur pour résoudre cette problème

et Merci d'avance
25/04/2015, 13h41
rv26t

Il ne faut pas utiliser l'index (qui est la position dans la liste) mais adapter le code que je vous ai donné qui fournira l'id client
25/04/2015, 14h05
bt-med

Citation:

Envoyé par rv26t

Il ne faut pas utiliser l'index (qui est la position dans la liste) mais adapter le code que je vous ai donné qui fournira l'id client

Mr;la travaille dans les tableaux SQL est correcte ou non ? je veux travailler avec l'id de client au lieu de nom de client ,

sérieusement , je ne sais pas quelle est mon erreur pour adapter le code , prière me idée SVP :mur::mur::mur:

1 pièce(s) jointe(s)

J'avais quelques urgences à traiter,
Mais voici le principe
La classe (allégée) client

Code:

1
2
3
4
5
6
7
8
Class client
    Property Id As Integer
    Property Nom As String
    Sub New(UnId As Integer, UnNom As String)
        Id = UnId
        Nom = UnNom
    End Sub
End Class

La lecture de la table client, ou l'on récupère l'id et le nom. Grace auquel on construit la liste des clients (id, nom)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim clients As List(Of client) = New List(Of client) ' défini la liste des clients et la cré
    Sub chargeListeClient()
        Using cn As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=d:\data\personnes\personnes.accdb"), _
                                        cmd As New OleDbCommand("select idclient, client_ste from client", cn)
            Try
                cn.Open()
                Using reader As OleDbDataReader = cmd.ExecuteReader()
                    If reader.HasRows Then
                        Do While reader.Read()
                            clients.Add(New client(reader.GetInt32(0), reader.GetString(1))) ' insére un nouveau client à la liste des clients (id et nom)
                        Loop
                    Else
                        MessageBox.Show("aucun client.")
                    End If
                    reader.Close()
                End Using
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Using
 
    End Sub

Placer la bonne connexion à la place de "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=d:\data\personnes\personnes.accdb".
Remplacer les oledb... par les sql... (OleDbConnection, OleDbCommand, OleDbDataReader)

Lier la liste client à la combobox (dans la classe client nous avons défini les propriété Id et Nom qui représente le client)

Code:

1
2
3
4
5
    Sub SetComboClient()
        cboClient.DisplayMember = "Nom"
        cboClient.ValueMember = "Id"
        cboClient.DataSource = clients
    End Sub

dans le load

Code:

1
2
        chargeListeClient() 'charge la liste
        SetComboClient() 'lien combo - liste

A la sélection utilisation de l'id

Code:

MessageBox.Show(DirectCast(cboClient.SelectedItem, client).Id) ' donne l'id par rapport client sélectionné

Sur selection de Nicolas vous avez bien l'id 2

[Edit] Si vous bloquez montrez le code. (eventuellement indiquez l'erreur s'il y a)

Bonjour Mr : Abbé Assy

Code:

query = "select affaire from traveaux where client = '" & C1.Text & "'"

Ce code faut il changer par :

Code:

query = "select affaire from traveaux where client = '" & C1.selectedValue & "'"

parce que la liaison entre table cliens et affaires c'est IdClient pour faire un filtre, par example :
le client avec nom Nicolas a un ID=2 et pour afficher les affaire de ce cleint il faut chercher sur Table traveaux dans la colonne Client qu'on 2 pour afficher ses affaires (CD00001/15 ; CD0124/15 ; CD455/14 ; CD758/14 ).
vola mon code:
'pour charger la combobox Client
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try cXn.Open() Dim cmd As New SqlCommand("select IdClient,client_ste from cliens ", cXn) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet da.Fill(ds, "t") cmbclient.DataSource = ds.Tables("t") cmbclient.DisplayMember = "client_ste " cmbclient.ValueMember = "IdClient" Catch ex As Exception MsgBox(ex.Message) Finally cXn.Close() End Try End Sub
'Une fois qu'un client est selectionné dans combobox1,on affiche la liste de tous ses affaires de ce client dans combobox2.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub cmbRegion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbRegion.SelectedIndexChanged Try Dim ds2 As New DataSet cn.Open() Dim cmd2 As New SqlCommand("select IdAffaire,Affaire from trraveaux WHERE Client=" & cmbClient.SelectedValue & " ", cn) Dim da2 As New SqlDataAdapter(cmd2) da2.Fill(ds2, "t2") CmbAffaire.DataSource = ds2.Tables("t2") CmbAffaire.DisplayMember = "Affaire " CmbAffaire.ValueMember = "IdAffaire" Catch ex As Exception MsgBox(ex.Message) Finally cn.Close() End Try
mais la seul problème que je rencontre c'est il m'affiche ce message d'erreur :

Code:

"L'opérateur '&' n'est pas défini pour chaîne "select IdVille,Designation from " et type 'DataRowView"

Merci de m'aider de corriger cet erreur .

Voir 40 message(s) de cette discussion en une page