Discussion :

[LAIDAROS]

Bonjour a tous
Svp .. j'ai besoin d'aide pour resoudre ce probleme
J'ai comboBox1 alimentee par les noms des clients par ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Sub Fill_ComboBox_Clients_Name()
        ComboBox1.Items.Clear()
        Dim Adp As New SqlClient.SqlDataAdapter("SELECT CLIENTS_Name From TBL_CLIENTS", Conne)
        Dim Ds As New DataSet
        Adp.Fill(Ds)
        Dim Dt = Ds.Tables(0)
        For I = 0 To Dt.Rows.Count - 1
            ComboBox1.Items.Add(Dt.Rows(I).Item("CLIENTS_Name"))
        Next
    End Sub

j'ai une autre Table nommee ( TBL_DETTE ) .. avec plusieurs champs ( CLIENTS_Name ) de type NvarChar et ( CLIENTS_Credit ) de type Decimal
je veux lorsque je choisis un client par ComboBox1 alors s'affichera automatiquement dans TextBox1 sa somme globale de tous le champs ( CLIENTS_Credit )
Merci d'avance pour l'aide
Cordialement
LAIDAROS

[Phil Rob]

Bonjour,

Le code suivant, à placer la procédure événementielle du changement de sélection dans le ComboBox, devrait te mettre sur la piste :

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
 
' ... ... ...
    Dim MaConnexion As New SqlConnection	
    Dim MaCommande As New SqlCommand
' ... ... ...
    MaConnexion.ConnectionString = " .....la chaine de connexion ..........   "
    MaConnexion.Open()					
' ... ... ...
    MaCommande = MaConnexion.CreateCommand()	
    MaCommande.CommandType = CommandType.Text	
    MaCommande.CommandText = "SELECT SUM(CLIENTS_Credit) From TBL_CLIENTS WHERE CLIENTS_Name = '" & ComboBox1.Text & "'"
' ... ... ...
    Dim CreditDuClient AS Integer
    CreditDuClient = MaCommande.ExecuteScalar()			
    TextBox1.Text = CreditDuClient
' ... ... ...

J'espère que ça t'aidera ...

[LAIDAROS]

Bonjour Phil Rob
Oui c'est exactement ce que je veux faire
Merci beaucoup pour l' impeccable aide
Tres gentil de votre part
Bien resolu
Merci