ADO.NET SANS DOULEUR

Signaler
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
Messages postés
28
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
9 août 2015
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51639-ado-net-sans-douleur

Messages postés
28
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
9 août 2015

@PCPC et @ ARCEF
Si vous connaissez un tuto pour approfondir / changer / améliorer ce type de code, merci de me donner le lien car j'ai cherché 2 heures sur google mais sans grand succès.. c'est soit hors de ma portée (trop technique) soit cela ne répond pas vraiment à ma recherche (VB.net POO, gestion BDD avec relations entre tables)

@ cs_Patrice99. Je pense commander ce bouquin, a moins que, depuis, tu n'ai eu connaissance de quelque chose de plus intéressant (en 5 ans, il s'en passe des choses..

Merci a tous.
Messages postés
14464
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
5 juillet 2020
420 >
Messages postés
28
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
9 août 2015

Bonjour je me suis permis d'éditer ton 2eme message pour préciser le langage dans la coloration syntaxique.
Concernant Link, ça ne marche pas avec Acces.
Messages postés
28
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
9 août 2015
>
Messages postés
14464
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
5 juillet 2020

Salut Whismeril, Merci pour la correction de coloration, c'est beaucoup mieux comme ça, je ferai attention la prochaine fois.
Concernant LINK, effectivement j'ai lu ça quelque part, par contre, je code également en My-Sql pour un autre projet et là, cela doit pouvoir fonctionner, je n'ai pour l'instant, pas encore essayé. connais tu un tuto bien fait sur Link//My-sql ? (platform WampServer)

Amicalement,
Messages postés
28
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
9 août 2015

Salut Bouv.
bon, dès fois, faut juste essayer... et ca marche.
Je n'ai pas eu à refaire une classe de liaison car les liaisons fonctionnent avec 2 lignes de code :-)
j'ai procédé comme suit:
    Private Sub FillLV()

        With LV
            'On efface tous les éléments de la LV'
            .Items.Clear()

            'On créé l objet TAB_Products'
            Dim MyProducts As New OLEDB.Table.TAB_PRODUCTS

            'Michel : j ajoute ici l objet TAB_UNIT.'
            Dim myUnit As New OLEDB.Table.TAB_UNIT

            'On liste tout les enregistrements de la table'
            Dim iproducts As List(Of Integer) = MyProducts.EnumRecords

            'On remplit la LV'
            For Each i As Integer In iproducts

                'On récupère les infos complètes de l enregistrement'
                MyProducts.Index = i
                MyProducts.Read()

                'On ajoute l enregistrement'
                With .Items.Add(MyProducts.Index)
                    myUnit.Index = MyProducts.ProdIdUnit
                    myUnit.Read()

                   'Ce programme est en deux langues (Thai et Anglais, c est pour un' 
                    'pote cuisto qui a du mal avec l anglais mais qui essaye :-)'
                    If Main.Lang = 0 Then ' EN THAI'
                        .SubItems.Add(MyProducts.THProductName)
                        .SubItems.Add(MyProducts.ProdIdUnit)
                        .SubItems.Add(myUnit.THNameUnit)
                        .SubItems.Add(MyProducts.ProdPrice)
                        .SubItems.Add(MyProducts.ProdDate)
                        .SubItems.Add(MyProducts.ENProductName)
                    Else 'EN ANGLAIS'
                        .SubItems.Add(MyProducts.ENProductName)
                        .SubItems.Add(MyProducts.ProdIdUnit)
                        .SubItems.Add(myUnit.ENNameUnit)
                        .SubItems.Add(MyProducts.ProdDate)
                        .SubItems.Add(MyProducts.ProdPrice)
                        .SubItems.Add(MyProducts.THProductName)
                    End If
         'les colones 2, 5 et 6 du LV sont cachées, elles ne servent que '
        'pour la modification du produit afin de ne pas avoir a refaire une requette'
                End With
            Next i
        End With
    End Sub

Marche nickel... je ne le dirai jamais assez : MERCIIIIIII
Bien entendu, si il y a une meilleure méthode, je suis preneur...
Afficher les 11 commentaires