Discussion :

[marouprod]

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

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

select * from Typemateriel

puis je fait

Code :

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

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

[Er3van]

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 ?

[marouprod]

tout d'abord merci pour votre ecoute

Code :

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

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 :

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

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 :

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

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 :

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

lcombo = CmbtypeP1.selecteditem

l'erreur est:

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

merci d'avane

[hugoclo]

En faisant juste

Code :

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

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)

[marouprod]

merci amigos

mais elle produit cette erreur suivant :

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

[Er3van]

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 C# :

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

1
2
3
4
 
if ("MyString".Equals(myObject.StringValue, StringComparison.CurrentCultureIgnoreCase)) {
     ...
}

(ou CurrentCulture si la casse est importante)