Ajout dans BDD depuis datagridview en VB.net

Bonjour,

Vite comme cela, je ne peux te répondre, il y a trop longtemps
que je n'ai utilisé un ( dr.Read ).

À première vue, tu tente d'utiliser un DataReader sur un DataGridView

For Each dr.Read In DGVProd

C'est avec Oracle que j'ai utilisé cette instruction

sous Access j'utilise toujours :

        Try  
            Dim reqSQL As String = Video_REQ.ObtenirSQL_Liste_Video(Critere)  

            MonAdapteur = New OleDbDataAdapter(reqSQL, Connexion)  
            MonAdapteur.Fill(MonDataSet, "TableVideo")  
            MonDataTable = MonDataSet.Tables("TableVideo")  

            For Each DataRowLocal In MonDataTable.Rows  
                MonEntite = CreerInstance(DataRowLocal, pChemin)  
                MaCollection.Add(MonEntite)  
            Next  


        Catch ex As Exception  
            Debug.WriteLine("Erreur - Video_SQL - Obtenir_Liste_Videos")  
            MaCollection = Nothing  
        Finally  
            Connexion.Close()  
        End Try  

Pour ton besoin, si tu veux balayer la liste du DataGridView ?

Dim Indice As Int32 = Me.DGVProd.RowCount

For Boucle As Int32 = 0 To Indice

DGVProd.Rows(Boucle).Cells(0).Value = "xyz"

...

Sinon, je testerai bientôt l'accès à une BD avec un DataReader
si ça t'intéresse, je te tiens au courant, je devrais faire cela
Vendredi prochain.

p.s. sur l'hyperlien de l'autre fil, capture les 2 versions
Modele_108.zip et Modele_109.zip

Je partirai de Modela_109.zip pour l'accès à MySQL.

Cdt

Lupin

Bonjour,

Il existe plusieurs façons :

J'en ai proposé une ici :

https://forums.commentcamarche.net/forum/affich-24435458-programmation-vb-sur-bdd

télécherger http://membre.oricom.ca/lupin/xfr/Modele_107.zip

bien que complexe, elle s'appuit sur une structure utlisé dans l'insdustrie.

rien n'est parfait :-)

Cdt

Lupin

Bonjour,

Premièrement merci de m'avoir répondu.

Mais j'ai quelques Questions car je pense n'avoir pas tout compris.

Tout d'abord j'ai une erreur dans le for each sur le dr.read ("cette expression est une valeur et ne peut donc pas être la cible d'une assignation")

Je vous met un exemple de ma fonction ConvertirDrListe. Pourriez vous me dire ce qui ne va pas svp ??? (DGVProd = DataGridViewProduit)

Function ConvertirDrList(ByVal dr As IDataReader) As List(Of Produit)
        Dim Liste As ListProduit
        Dim entite As Produit

        For Each dr.Read In DGVProd
            entite = New Produit
            entite.Nom = dr(0)

        Next

        Return Liste
    End Function

oui sa intéresserait.

En tout cas merci, pour ton aide.