Discussion :

[Gbedjanhoungbo Jean]

Bonjour
Je sollicite l’aide de tout le monde pour trouver une solution à un problème qui me bloque dans l’évolution de mon application.
Pour faire court, j’ai un formulaire Form4 qui sert à faire des opérations sur la table CATEGORIEPRODUIT .Dans le formulaire il y a une liste déroulante CboRechCat qui est alimentée par ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ListeRechCat()
        Dim mondataset As DataSet
        mondataset = New DataSet()
        Dim dta As New SqlDataAdapter("select * from CATEGORIEPRODUIT", cnnBase)
        dta.Fill(mondataset, "CATEGORIEPRODUIT")
        With CboRechCat
            .DataSource = mondataset.Tables("CATEGORIEPRODUIT")
            .DisplayMember = "NOMCATPRODUIT"
            .ValueMember = "CODECATPRODUIT"
        End With
    End Sub

L’appelle à la procédure se fait par :

Code :

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

1
2
3
4
5
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyClass.Load
        cnnBase.ConnectionString = "Data Source=JEANNICOLAS-PC ;Initial Catalog=Facturation;Integrated Security=True"
        cnnBase.Open()
        Call ListeRechCat()
End Sub

Tous les autres codes fonctionnent bien seulement, si je clic sur la liste déroulante il s’affiche un message d’erreur : « Aucun mappage n’existe à partir du type d’objet System.Data.DataRowView vers un type connu de fournisseur natif managé »
Le message s'affiche au chargement du formulaire ou quand je clic sur la liste déroulante.
J’ai aussi essayé le code suivant, mais c’est le même message qui s’affiche.

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
19
Sub InitListe()
        Try
            Dim cmdRechCat As New SqlCommand, adptRechCat As New SqlDataAdapter,
            dsRechCat As New DataSet
            dsRechCat.Clear()
            cmdRechCat.Connection = cnnBase
            cmdRechCat.CommandType = CommandType.StoredProcedure
            cmdRechCat.CommandText = "dbo.SelectCategorieProduit2"
            adptRechCat.SelectCommand = cmdRechCat
            adptRechCat.Fill(dsRechCat)
            CboRechCat.DataSource = dsRechCat.Tables(0)
            CboRechCat.DisplayMember = "AFFICHER"
            CboRechCat.ValueMember = "CODECATPRODUIT"
            cmdRechCat = Nothing
            adptRechCat = Nothing
            dsRechCat = Nothing
        Catch objException As Exception
            MsgBox(objException.Message)
End Sub

Ma question est de savoir ce qui est à la base de ce message et comment résoudre le problème.
Merci pour tous les apports
Jean

[GuruuMeditation]

Regarde la solution 2 ici, c'est peut-être le même problème : http://www.codeproject.com/Questions...-system-data-d

[Gbedjanhoungbo Jean]

Bonjour
Merci pour votre apport mais ce n'est visiblement pas le même problème. Mais je vais y réfléchir en profondeur et l'anglais ne facilite pas ma compréhension.
D'autres suggestions sont attendues.
Merci

[abd75web]

Bonjour

tu peux utiliser un "DataReader"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
      Dim Cmd As New SqlCommand("select * from CATEGORIEPRODUIT", cnnBase)
        Dim DR As SqlDataReader = Cmd.ExecuteReader()
        Try
            If DR.HasRows Then
                While DR.Read
                    CboRechCat.Items.Add(DR("CODECATPRODUIT"))
                End While
            End If
            DR.Close()
        Catch ex As Exception
 
        End Try

A+

[MABROUKI]

bonjour
Tu es certain que dans cette ligne,il n' y a pas d'erreur de frappe:

Code :

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

1
2
3
 
 
CboRechCat.ValueMember = "CODECATPRODUIT"

& que le nom du champ entre guillements est orthographié correctement comme il est en base SQL....
Car ce message signe que le nom de champ donne dans ValueMember à la DataRowView (ligne) de la DataView(DataView est la datatable) et celui en Base SQL dans la table SQL ne coincident pas(mapping c'est la correspondance entre datable et table en base)...
Bon code...

[Gbedjanhoungbo Jean]

Bonjour
Pour répondre à MABROUKI, je dirai que j'ai vérifié et il n'y a pas d'erreur sur la ligne.
A abd75web, je vais essayer ce code.

Entière reconnaissance pour les apports jusqu'à la résolution du problème.
Merci

[Gbedjanhoungbo Jean]

Bonjour

J'ai essayer le code de abd75web mais chaque ligne sélectionnée dans liste s'ajoute une ou plusieurs dans la liste.
ce qui crée des doublons dans la liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Cmd As New SqlCommand("select * from CATEGORIEPRODUIT", cnnBase)
        Dim DR As SqlDataReader = Cmd.ExecuteReader()
        Try
            If DR.HasRows Then
                While DR.Read
                    CboRechCat.Items.Add(DR("CODECATPRODUIT"))
                End While
            End If
            DR.Close()
        Catch ex As Exception

je n'ai toujours pas trouvé l'origine du problème
Merci pour les apports