champs multiples mais caché dans un ComboBox

Version imprimable

Bonjour @ tous,

je travail avec mysql et et suis revenu à vb express 2005 depuis

voila mon probléme
je voudrais afficher dans ma fenêtre un control du style ComboBox mais avec un champ caché qui contiendrait (l'id des enreg de ma table)
j'ai essayé de voir s'il y avait possibilité de modifier l'index mais non

quelqu'un à une idée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub InitCbListContact()
        Dim myCommand As MySqlCommand = myConnection.CreateCommand
        myCommand.CommandText = "SELECT * FROM tblcontact"
        Dim myReader As MySqlDataReader = myCommand.ExecuteReader
 
        Do While myReader.Read()
            Dim StringCbListContact As String
 
            If myReader.GetValue(1) Is DBNull.Value Then
                StringCbListContact = myReader.GetValue(2) & " " & myReader.GetValue(3) 'affiche le nom et prénom dans le cas d'une personne physique
            Else
                StringCbListContact = myReader.GetValue(1) 'affiche le nom du siège social dans les autres cas
            End If
            CbListContact.Items.Add(StringCbListContact)
        Loop
        myReader.Close()
    End Sub

23/05/2007, 17h03
dubidon

Dans une combobox tu as les paramètres ValueMember et Displaymember

Combobox.ValueMember = "ton_identifiant"
CMBnomint.DisplayMember = "Ta_donnée_a_afficher"

j'èspère avoir répondu à ta question

@++
dubidon

en ce qui concerne le champs caché ça roule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub InitCbListContact() Dim myCommand As String myCommand = "SELECT IdContact, NomSiege,CONCAT(NomContact,PrenomContact) AS Nom FROM tblcontact" myAdapter.SelectCommand = New MySqlCommand(myCommand, myConnection) myAdapter.Fill(myDataSet, "tblcontact") Dim myDataTable As DataTable myDataTable = myDataSet.Tables("tblcontact") CbListContact.DataSource = myDataTable CbListContact.DisplayMember = "NomSiege" CbListContact.ValueMember = "IdContact" End Sub
je savais comment testé la valeur null d'un champs sur un DataReader
ce qui me permettait d'afficher soit le siège social quand il s'agisaait d'une personne morale, soit le nom et prénom de la personne quand il s'agissait d'une personne physique
un truc du style
Code:

1 2 3 4 5 If myDataTable.? Is DBNull.Value Then CbListContact.DisplayMember = "Nom" Else CbListContact.DisplayMember = "NomSiege" End If
Code:

1 2 If myReader.GetValue(1) Is DBNull.Value Then End If
mais ici avec le DataSet je bloc
pour palier à cela j'ai bien essayé de concaténer les trois champs dans la requête SQL mais alors il n'affiche rien (ptet parceque un des champ à une valeur Null)

Quelqu'un a une idée
Merci

24/05/2007, 12h05
thomyvp

Bonjour,

pour utilisé les propriétés DisplayMember et ValueMember faut-il absolument travaillé avec un DataSource

mon problème est que je dois parcourir chaque row de mon dataset pour voir si le deuxième champ est null et garnir le Display Member en fonction

je bloc:cry:
des idées?
Merci

voila ce pourquoi j'ai opté

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub InitCbListContact()
        Dim myCommand As String
        myCommand = "SELECT IdContact,CONCAT(CONCAT(NomSiege,'    ',NomContact),'  ',PrenomContact) AS Nom FROM tblcontact"
        myAdapter.SelectCommand = New MySqlCommand(myCommand, myConnection)
        myAdapter.Fill(myDataSet, "tblcontact")
        Dim myDataTable As New DataTable
        myDataTable = myDataSet.Tables("tblcontact")
        CbListContact.DataSource = myDataTable
        CbListContact.DisplayMember = "Nom"
        CbListContact.ValueMember = "IdContact"
    End Sub