[Débutant] recuperer a partir d'un combobox

recuperer a partir d'un combobox

je travaille en vb.net visualbasic2008
j'ai une combobox (cmbtype) remplir a partir d'une base de données (datatable "DL")
DL contient l'exécution de la requête suivant :

Code:

select * from Typemateriel

puis je fait
Code:

1 2 3 cmbtype.datasource=DL cmbtype.displaymenber="NomType" cmb.valuemember="CodeType"
cela fonctionne correctement et la cmbtype rempli

mais le problème si je veux récupérer l'tem en faisant cmbtype.selected item.tostring() cela me rendre (system.data.datarowview) la méme pour cmb.type.selectedvalue.tostring

aider moi mes amis svp et merci d'avance

Peux-tu afficher le code de manière plus complète (et avec la balise CODE) et préciser l'erreur (exception?) s'il te plait ?

tout d'abord merci pour votre ecoute

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Shared Sub ouvrirRequete(ByVal req As String, ByRef d As DataTable)
        Try
            Dim cd As OleDbCommand
            cd = New OleDbCommand(req, cn)
            Dim da As New OleDbDataAdapter
            da = New OleDbDataAdapter(cd)
            d = New DataTable
            da.Fill(d)
        Catch ex As Exception
            MsgBox("erreur lors de l'ouverture de la requete" & req & " : " & ex.Message, MsgBoxStyle.Critical, "erreur")
        End Try
    End Sub

puis

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Sub remplirtype()
        Dim req As String = ""
        Dim dl As DataTable = Nothing
 
        req = " select * from TypeMateriel order by CodeType"
 
        ouvrirRequete(req, dl)
        CmbtypeP1.DataSource = dl
        CmbtypeP1.ValueMember = "CodeType"
        CmbtypeP1.DisplayMember = "NomType"
    End Sub

cela fonctionne correctement la combobox rempli correctement

mais si je fait

Code:

1
2
3
4
5
Dim lcombo As String
lcombo = CmbtypeP1.selecteditem
If lcombo = "Ordinateur" Then
         msgbox("c'est ordinateur")
 End If

une exeption ce produit a la ligne

Code:

lcombo = CmbtypeP1.selecteditem

l'erreur est:

Citation:

L'argument 'Prompt' ne peut pas être converti en type 'String'.

merci d'avane

En faisant juste
Code:

1 2 3 4 5 6 7 If CmbtypeP1.selecteditem is DbNull.value then else If CmbtypeP1.selecteditem = "Ordinateur" Then msgbox("c'est ordinateur") End If End if
Ne pas oublier le marqueur résolu.(Voir vos anciens Post)

merci amigos

mais elle produit cette erreur suivant :

Citation:

La résolution de surcharge a échoué, car aucun '=' Public ne peut être appelé avec ces arguments : 'Public Shared Operator =(a As String, b As String) As Boolean': L'argument qui correspond au paramètre 'a' ne peut pas être converti de 'DataRowView' en 'String'.

Pour la comparaison de String, il faut prendre l'habitude de procéder ainsi :

(Je mets en C#, je vous laisse convertir en VB avec les bons objets)
Code:

1 2 3 4 if ("MyString".Equals(myObject.StringValue, StringComparison.CurrentCultureIgnoreCase)) { ... }
(ou CurrentCulture si la casse est importante)

ça ne marche pas

si je fait plus simple
Code:

1 2 3 4 5 Private Sub Cmbtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbtype.SelectedIndexChanged msgbox(cmbtype.selectedvalue) end sub
l'erreur suivant se produit

Citation:

L'argument 'Prompt' ne peut pas être converti en type 'String'.

merciiiiii

Bonjour,
à tester :

Code:

1
2
3
4
5
    Private Sub cmbtype_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbtype.SelectionChangeCommitted
        If cmbtype.SelectedIndex <> -1 Then
            MessageBox.Show(cmbtype.SelectedValue.ToString)
        End If
    End Sub

Code:

1
2
3
4
5
Private Sub Cmbtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbtype.SelectedIndexChanged
if  cmbtype.selectedvalue isnot DbNull.value then
msgbox(cmbtype.selectedvalue)
 end if
end sub

bonjour

il m'affiche 3 fois une messageBox
le deux premier contient "system.data.dataRowView"
la Troisieme contient la valeur "1" vrai

donc si je veux utiliser cette resultat en une fonction listercaracteristique

Code:

Public Sub listercaracteristique(ByVal type As Integer)

a l'appel de cette fonction
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CmbtypeP1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbtypeP1.SelectedIndexChanged If CmbtypeP1.SelectedIndex <> -1 Then MessageBox.Show(CmbtypeP1.SelectedValue().ToString) listercaracteristique(CType(CmbtypeP1.SelectedValue.ToString, Integer)) End If End Sub
l'erreur suivant ce prodduit :

Citation:

La conversion de la chaîne "System.Data.DataRowView" en type 'Integer' n'est pas valide.

merciiiiiii

Citation:

Envoyé par marouprod

bonjour
il m'affiche 3 fois une messageBox
le deux premier contient "system.data.dataRowView"
la Troisieme contient la valeur "1" vrai

C'est pour cela que je proposais SelectionChangeCommitted

Citation:

SelectionChangeCommitted est déclenché uniquement lorsque l'utilisateur modifie la sélection de la zone de liste déroulante. N'utilisez pas SelectedIndexChanged ou SelectedValueChanged pour capturer les modifications d'utilisateur, parce que ces événements sont également déclenchés lorsque la sélection change par programme.

Merci mes amis

C'est ce que je recherchais.

Code:

Cmbtype.SelectionChangeCommitted