Discussion :

[thomyvp]

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 :

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
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

[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

[thomyvp]

en ce qui concerne le champs caché ça roule

Code :

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

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 :

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

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

Code :

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

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

[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
des idées?
Merci

[thomyvp]

voila ce pourquoi j'ai opté

Code :

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

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