Ajout dans BDD depuis datagridview en VB.net
Fermé
poupou61
Messages postés
61
Date d'inscription
vendredi 17 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013
-
17 févr. 2012 à 15:37
Utilisateur anonyme - 24 févr. 2012 à 19:22
Utilisateur anonyme - 24 févr. 2012 à 19:22
A voir également:
- Ajout dans BDD depuis datagridview en VB.net
- Ajout rapide snap ✓ - Forum Snapchat
- Ajout snap sans rien - Forum Snapchat
- Ajout snapchat inconnu - Forum Snapchat
- Ajout perso instagram introuvable ✓ - Forum Instagram
- Telecharger vb.net - Télécharger - Langages
4 réponses
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 :
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
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
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
poupou61
Messages postés
61
Date d'inscription
vendredi 17 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013
20 févr. 2012 à 10:43
20 févr. 2012 à 10:43
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)
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
poupou61
Messages postés
61
Date d'inscription
vendredi 17 février 2012
Statut
Membre
Dernière intervention
18 janvier 2013
21 févr. 2012 à 14:07
21 févr. 2012 à 14:07
oui sa intéresserait.
En tout cas merci, pour ton aide.
En tout cas merci, pour ton aide.