Bonjour,
J'utilise la structure suivante :
Code VB : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
   Public Structure Categorie
        Public code_categorie As String
        Public code_sscategorie As String
        Public libelle As String
    End Structure
 
    Public les_categories As New List(Of Categorie)
    Public les_categories_a_creer As New List(Of Categorie)

J'utilise la requette sql suivante pour récupérer toutes les catégories de niveau 1 ( sans code_sous_catégorie).
Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
select caption,supplierid,xx_code   from itemfamily   where coalesce(xx_code,0)<>0

Mon problème est que je voudrais filtrer les catégories dont le xx_code n'existe pas dans la base de données.
la liste "les_categories " est remplis avec toutes les catégorie qui sont présent dans un fichier qui m'est envoyer toutes les jours.
Le xx_code correspond au code_categorie de la structure.
j'utilise le code suivant, mais il ne fonctionne pas il me crée des catégories qui existent déjà.
Avez-vous une idée de comment faire pour que je ne crée que les catégories qui n'existent pas dans la base de données ?
les catégories a créé seront stocker dans une autre structure afin de faire un autre trie dedans.

Code VB.net : 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
20
21
22
23
24
25
26
27
 
If result_sql.Count > 0 Then
            Dim code_categorie As String
            Dim une_categorie_a_creer As New Categorie
 
            For Each row As DataRowView In result_sql
                code_categorie = row("xx_code")
                For i = 0 To les_categories.Count - 1
                    ajout = True
 
                    If les_categories.Item(i).code_categorie = code_categorie And les_categories.Item(i).code_sscategorie = "" Then
                        ajout = False
                    End If
 
                    If ajout Then
                        une_categorie_a_creer.code_categorie = code_categorie
                        une_categorie_a_creer.code_sscategorie = les_categories.Item(i).code_sscategorie
                        une_categorie_a_creer.libelle = les_categories.Item(i).libelle
                        les_categories_a_creer.Add(une_categorie_a_creer)
                        une_categorie_a_creer = Nothing
                        Exit For
                    End If
                Next
 
 
            Next
end if