Treeview nodes. cléRésolu

Question

Bonjour,

Mon objectif est de créer un nœud enfant avec une clé spécifique en sélectionnant le nœud parent dans mon treeviewTreeViewToolBox en utilisation ce code ci -dessous:

 Dim StatusDate As String
                StatusDate = InputBox("Saisir le Nom du dossier que vous voulez créer dans " & fils.Text)
                If StatusDate = "" Then
                    MsgBox("Vous devez saisir un Nom.")
                    Exit Sub
                Else        
                Dim trace As String = System.DateTime.Now.ToString("ddMMyyyy" & "HHmmss")
                ' Add(Of String, String)
                Dim newNode As New TreeNode With {.nom = trace, .Text = StatusDate}         
                TreeViewToolBox.SelectedNode.Nodes.Add(newNode)
                Me.Textkey.Text = newNode.nom

End If
            End If


Dans mon code j'attribue une clé spécifique (trace) à chaque nœud enfant créé.
Ce procédé fonctionne sur le coup  car quand je sélectionne le nœud enfant que je viens de créer j'obtiens bien le text traceavec ce code MsgBox(TreeViewToolBox.SelectedNode.nom).

Jusqu'ici pas de souci .
Mon treeview est stocké dans une base qui se charge à l'ouverture du Form.

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim conn = New SQLiteConnection("Data Source=BDD.s3db;Version=3")
        Try
            Using (conn)
                conn.Open()
                Dim sql = "Select * FROM ARBORESCENCE"
                Dim cmdDataGrid As SQLiteCommand = New SQLiteCommand(sql, conn)
                Dim da As New SQLiteDataAdapter
                da.SelectCommand = cmdDataGrid
                Dim dta As New DataTable
                da.Fill(dta)
                dgvDataArbo.DataSource = dta
                TreeViewToolBox.Nodes.Clear()
                For Each dr As DataRow In dta.Rows
                    AddNode(dr("PARENT").ToString, dr("FILS").ToString)
                Next
end if 

Problème :Problème

Après l’ouverture de la Form , j'ai toujours le nœud enfant créé mais sa clé (trace) a disparu !!!

Est ce un souci de stockage dans la BDD , si oui pourriez vous m'aider à créer la clé et conserver la spécifique pour chaque nœud créé?

Merci d'avance

vb95 · Answer

Bonjour 
Tu dis : Après l’ouverture de la Form , j'ai toujours le nœud enfant créé mais sa clé (trace) a disparu !!!
Cette clé est-elle sauvegardé dans la base de données avec le nœud correspondant ?

julia Namor · Answer

Bonjour VB95
Merci pour ta réponse 
C'est bien ça mon problème . je ne sais pas comment  ou plutôt ou sauvegarder cette clé dans la BDD.
J'avais pensé créer une colonne nommée Key sur ma BDD mais comment la charger avec le nœud correspondant?

Whismeril · Answer

Bonjour Julia

tu ne montres pas le code qui enregistre dans la base de données.
On ne peut pas te dire ce qu'il faut y modifier.....

julia Namor · Answer

Bonjour 
je te jojns ci dessous le code 
  Dim ARBORESCENCE As New m_ARBORESCENCE(0)                If SelID = 0 Then Ajouter2()        Dim conn = New SQLiteConnection("Data Source=BDD.s3db;Version=3")        Using (conn)            conn.Open()            Dim sql = "SELECT * FROM ARBORESCENCE"            Dim cmdDataGrid As SQLiteCommand = New SQLiteCommand(sql, conn)            Dim da As New SQLiteDataAdapter            da.SelectCommand = cmdDataGrid            Dim dt As New DataTable            da.Fill(dt)            dgvDataArbo.DataSource = dt        End Using        TreeViewToolBox.ExpandAll()        MsgBox("enregistré")


Private Sub Ajouter2()        Dim ARBORESCENCE = New m_ARBORESCENCE(DBNewIndexARBORESCENCE)        ARBORESCENCE.FILS = fils.Text        ARBORESCENCE.INDEXFILS = filsindex.Text        ARBORESCENCE.PARENT = parent.Text        ARBORESCENCE.INDEXPARENT = parentindex.Text        ARBORESCENCE.key = Textkey.Text        DBaddARBORESCENCE(ARBORESCENCE)    End Sub

 Public Sub DBaddARBORESCENCE(ByVal ARBORESCENCE As m_ARBORESCENCE)        Try            Dim strSQL As String = "INSERT INTO ARBORESCENCE VALUES (@Id,@FILS,@INDEXFILS,@PARENT,@INDEXPARENT,@key)"            Dim cmd = New SQLiteCommand(strSQL, CON)            cmd.Parameters.AddWithValue("@ID", ARBORESCENCE.ID)            cmd.Parameters.AddWithValue("@FILS", ARBORESCENCE.FILS)            cmd.Parameters.AddWithValue("@INDEXFILS", ARBORESCENCE.INDEXFILS)            cmd.Parameters.AddWithValue("@PARENT", ARBORESCENCE.PARENT)            cmd.Parameters.AddWithValue("@INDEXPARENT", ARBORESCENCE.INDEXPARENT)            cmd.Parameters.AddWithValue("@key", ARBORESCENCE.key)            cmd.ExecuteNonQuery()            cmd.Dispose()        Catch ex As Exception            MessageBox.Show(ex.Message)        End Try    End Sub

vb95 · Answer

Bonjour 
Dans ton premier message tu as bien utilisé la coloration syntaxique . Pourquoi ne pas l'avoir utilisé dans ton dernier message ?
De plus dans tout code un minimum de commentaires est plus que bénéfique . Cela permet de savoir ce que le code fait et de plus dans quelques temps si tu reviens sur ce code ces indications te seront précieuses .
Tertio dans le premier bloc de code la procédure n'est pas complète . Du coup difficile pour nous de comprendre exactement le rôle de chaque procédure .

Whismeril · Answer

Ici, il te faut un champ supplémentaire dans la base de données et y enregistrer la valeur de trace

Public Sub DBaddARBORESCENCE(ByVal ARBORESCENCE As m_ARBORESCENCE)
        Try
            Dim strSQL As String = "INSERT INTO ARBORESCENCE VALUES (@Id,@FILS,@INDEXFILS,@PARENT,@INDEXPARENT,@key)"
            Dim cmd = New SQLiteCommand(strSQL, CON)
            cmd.Parameters.AddWithValue("@ID", ARBORESCENCE.ID)
            cmd.Parameters.AddWithValue("@FILS", ARBORESCENCE.FILS)
            cmd.Parameters.AddWithValue("@INDEXFILS", ARBORESCENCE.INDEXFILS)
            cmd.Parameters.AddWithValue("@PARENT", ARBORESCENCE.PARENT)
            cmd.Parameters.AddWithValue("@INDEXPARENT", ARBORESCENCE.INDEXPARENT)
            cmd.Parameters.AddWithValue("@key", ARBORESCENCE.key)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

End Sub

Whismeril · Answer

Bonjour

dans la procédure   sub DBaddARBORESCENCE (ByVal ARBORESCENCE As m_ARBORESCENCE) tu enregistres des objets de types m_ARBORESCENCE qui à priori viennent de tes noeuds de treeview.

Mais le code de lecture de base de données charge un datagridview (pas de trevieew) sans créer d'instances de m_ARBORESCENCE.
Donc soit tu n'as pas montré le bon code, soit c'est pas cohérent.

Si tu veux enregistre des serviettes, il faut lire des serviettes, pas des torchons.

Whismeril · Answer

Mais dans un sens il y a des  m_ARBORESCENCE et dans l'autre des lignes.

Ça ne "couche" pas ensemble, il faut des m_ARBORESCENCE dans les 2 sens, ou peu importe le type mais le même.

Whismeril · Answer

Je ne peux pas essayer ton code car, il en manque des morceaux utiles (AddNode par exemple) et surtout je n'ai pas trouvé d'où sortent les classes SQLiteConnection, SQLiteCommand et SQLiteDataAdapter J'ai donc essayé de te faire un exemple avec un csv. J'ai imaginé que ta classe métier dérive de TreeNode. Imports System.Windows.Forms Class NoeudJulia Inherits TreeNode Public Property ID As Integer Public Property IdParent As Integer Public Property IdEnfant As Integer Public Property Enfant As NoeudJulia End Class Y'a qu'un enfant par noeud pour simplifier l'exemple J'ai un formulaire avec 3 boutons, un datagridview et un treeview. Le 1er bouton crée une liste de 4 noeuds, qu'on pourra ensuite enregistrer en CSV avec le bouton adéquat. Le dernier bouton lit charge fichier csv dans la liste. Que la liste soit créée par le bouton ou lue dans le csv, elle est affichée dans le datagridview et le treeview Imports System Imports System.Collections.Generic Imports System.Data Imports System.IO Imports System.Linq Imports System.Windows.Forms Public Partial Class frmJulia Inherits Form Private fichierCsv As String = "noeudsJulia.csv" Public Sub New() InitializeComponent() 'si le fichier existe déjà, il faut le lire If File.Exists(fichierCsv) Then butCreerListe.Enabled = False butLire.Enabled = Not butCreerListe.Enabled End Sub Private noeuds As List(Of NoeudJulia) '''

'''Création de la liste "neuve" '''

''' ''' Private Sub butCreerListe_Click(ByVal sender As Object, ByVal e As EventArgs) noeuds = New List(Of NoeudJulia) From { New NoeudJulia With { .ID = 1, .IdEnfant = 2, .IdParent = 0, .Name = "Nom 1", .Text = "Nom 1" }, New NoeudJulia With { .ID = 2, .IdEnfant = 3, .IdParent = 1, .Name = "Nom 2", .Text = "Nom 2" }, New NoeudJulia With { .ID = 3, .IdEnfant = 4, .IdParent = 2, .Name = "Nom 3", .Text = "Nom 3" }, New NoeudJulia With { .ID = 4, .IdEnfant = 0, .IdParent = 3, .Name = "Nom 4", .Text = "Nom 4" } } AfficheNoeuds() End Sub '''

''' Affiche la liste en cours '''

Private Sub AfficheNoeuds() dataGridView1.DataSource = Nothing dataGridView1.DataSource = noeuds treeView1.Nodes.Clear() For Each n As NoeudJulia In noeuds n.Enfant = noeuds.SingleOrDefault(Function(x) x.ID = n.IdEnfant) If n.IdParent = 0 Then treeView1.Nodes.Add(n) Else treeView1.SelectedNode.Nodes.Add(n) End If treeView1.SelectedNode = n Next End Sub '''

''' Enregistrement dans le fichier CSV '''

''' ''' Private Sub butEnregistrer_Click(ByVal sender As Object, ByVal e As EventArgs) File.WriteAllLines(fichierCsv, noeuds.[Select](Function(n) String.Format("{0};{1};{2};{3}", n.ID, n.IdParent, n.IdEnfant, n.Name))) butCreerListe.Enabled = False butLire.Enabled = True End Sub Private Sub butLire_Click(ByVal sender As Object, ByVal e As EventArgs) noeuds = (From ligne In File.ReadAllLines(fichierCsv) Let tab = ligne.Split(";"c) Select New NoeudJulia With { .ID = Convert.ToInt32(tab(0)), .IdParent = Convert.ToInt32(tab(1)), .IdEnfant = Convert.ToInt32(tab(2)), .Name = tab(3), .Text = tab(3) }).ToList() AfficheNoeuds() End Sub End Class Peux tu tester ça dans un projet à part et me dire si cela ressemble à ce que tu cherches à faire?

Whismeril · Answer

Mon exemple avait pour but de te montrer que si j'enregistre des instances de Machin, pour récupérer toutes les données, à la lecture il faut créer des instances de Machin.

Tu montres, encore et toujours un code qui crée des Nodes et des lignes de datagridview alors que tu as enregistré des instances de m_ARBORESCENCE

La propriété Name ne doit pas être un identifiant unique.
C'est bien pour cela que l'objet que j'ai écrit comme exemple (NoeudJulia) dispose d'une propriété dédiée ID et 2 propriétés IdParent, et IdEnfant (en pratique on devrait pouvoir se débrouiller, juste avec IdParent).

Pour pouvoir t'aider au mieux, il nous faut avant tout cerner ton besoin, il nous manque

le code de AddNode (ça je l'ai déjà écrit)
le code de m_ARBORESCENCE
d'où viennent tes classes de connexion (ça aussi je l'ai déjà écrit)
peut il y avoir plusieurs enfants par parent ?

Whismeril · Answer

Bonjour Julia,

le code de m_Arborescence c'est celui-ci

Public Structure m_ARBORESCENCE

Dim ID As Integer
        Dim FILS As String
        Dim INDEXFILS As String
        Dim PARENT As String
        Dim INDEXPARENT As String

Public Sub New(ByVal Idx1 As Integer)
            ID = Idx1
            FILS = ""
            INDEXFILS = 0

End Sub
    End Structure 

C'est une structure, admettons, c'est pas trop .Net et gourmand en mémoire, mais ça marche.
Par contre tu dis peut il y avoir plusieurs enfants par parent ?
oui bien sur et le membre Fils est juste une string. Il serait plus logique que ce soit une collection de m_Arborescence (une liste par exemple).

Quand je te demande d'où viennent tes classes connexions, je parle de SQLiteCommand et SQLiteDataAdapter. Celles que j'ai trouvées sur le net ne correspondent pas à ton code.

Whismeril · Answer

Tu te sers de cette librairie?
https://system.data.sqlite.org/index.html/doc/trunk/www/downloads.wiki

Whismeril · Answer

Je n'ai pas ouvert ton projet, j'ai écrit le mien. D'abord avec un éditeur de bdd sqlite, j'ai créé une base de test, mon éditeur ne gère pas l'extension que tu as utilisée, alors je l'ai appelée BDD.db Voici sa structure, Il est impératif que ID soit unique et auto incrément Voici les données de départ Voici 2 classes (je t'expliquerai plus tard si ce code te convient pourquoi il ne faut pas que ce soit des structures) La premiere c'est ma version de m_arborescence, la seconde dérive de TreeNode et contient un m_arborescence (comme ça c'est toujours lié) Imports System Imports System.Collections.Generic Imports System.Data Imports System.Data.SQLite Imports System.Linq Imports System.Windows.Forms '''

''' Classe métier '''

Public Class m_ARBORESCENCE '''

''' Construction d'une instance à partir d'une ligne de bdd '''

Public Sub New(ByVal DR As DataRow) Nom = DR("Nom").ToString() ID = Convert.ToInt32(DR("ID")) IdParent = Convert.ToInt32(DR("IdParent")) End Sub '''

''' Construction d'une instance à partir des données saisies '''

Public Sub New(ByVal LeNom As String, ByVal LIdParent As Integer, ByVal CON As SQLiteConnection) Nom = LeNom IdParent = LIdParent InsertBdd(CON) End Sub '''

''' Insère cette nouvelle valeur dans la BDD et récupère l'ID '''

''' Private Sub InsertBdd(ByVal CON As SQLiteConnection) Try Dim strSQL As String = "INSERT INTO ARBORESCENCE VALUES (@ID,@Nom,@IdParent)" Dim cmd = New SQLiteCommand(strSQL, CON) cmd.Parameters.AddWithValue("@IdParent", IdParent) cmd.Parameters.AddWithValue("@Nom", Nom) cmd.Parameters.AddWithValue("@ID", Nothing) 'pour que l'auto incrément s'active cmd.ExecuteNonQuery() cmd.Dispose() Dim sql As String = "Select last_insert_rowid() FROM ARBORESCENCE" cmd = New SQLiteCommand(sql, CON) ID = Convert.ToInt32(cmd.ExecuteScalar()) 'on récupère l'id créé cmd.Dispose() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Public Property Nom As String Public Property ID As Integer Public Property IdParent As Integer End Class '''

''' Classe qui associe une donnée de la BDD et son apparence en TreeNode '''

Public Class NoeudJulia Inherits TreeNode '''

''' Construction d'une instance de NoeudJulia, à partir d'une ligne de la BDD '''

''' ''' Public Sub New(ByVal DR As DataRow, ByVal LesNoeuds As List(Of NoeudJulia)) MyBase.New() Valeur = New m_ARBORESCENCE(DR) Text = Valeur.Nom If Valeur.IdParent = 0 Then LesNoeuds.Clear() Else Dim pere As NoeudJulia = LesNoeuds.SingleOrDefault(Function(nj) nj.Valeur.ID = Valeur.IdParent) If pere Is Nothing Then Throw New Exception("Parent introuvable") pere.Nodes.Add(Me) End If LesNoeuds.Add(Me) End Sub '''

''' Création d'un NoeudJulia à partir des données saisies '''

''' ''' ''' Public Sub New(ByVal Nom As String, ByVal Parent As NoeudJulia, ByVal LesNoeuds As List(Of NoeudJulia), ByVal CON As SQLiteConnection) MyBase.New(Nom) Valeur = New m_ARBORESCENCE(Nom, Parent.Valeur.ID, CON) Parent.Nodes.Add(Me) LesNoeuds.Add(Me) End Sub Public Property Valeur As m_ARBORESCENCE End Class Et voilà un formulaire avec un treeview, un datagridview et un bouton Imports System Imports System.Collections.Generic Imports System.Data Imports System.Linq Imports System.Windows.Forms Imports System.Data.SQLite Public Partial Class frmJulia Inherits Form Private Database As String Private CON As SQLiteConnection = New SQLiteConnection() Private Sub OpenDataBase() Try Database = String.Format("{0}\BDD.db", Application.StartupPath) CON.ConnectionString = "Data Source=" & Database CON.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Public Sub New() InitializeComponent() End Sub 'liste qui va accueuillir les noeuds Private lesNoeuds As List(Of NoeudJulia) = New List(Of NoeudJulia)() Private Sub ChargeBdd() Dim conn As SQLiteConnection = New SQLiteConnection("Data Source=BDD.db;Version=3") Try Using (conn) conn.Open() Dim sql As String = "Select * FROM ARBORESCENCE ORDER BY IdParent" 'il est impératif pour la suite que le datareader soit trié de la sorte Dim cmdDataGrid As SQLiteCommand = New SQLiteCommand(sql, conn) Dim da As SQLiteDataAdapter = New SQLiteDataAdapter() da.SelectCommand = cmdDataGrid Dim dta As DataTable = New DataTable() da.Fill(dta) 'lecture des données et création de la liste de NoeudJulia For Each dr As DataRow In dta.Rows New NoeudJulia(dr, lesNoeuds) Next End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '''

''' Affiche les données, ordonnées par leur ID '''

Private Sub AfficheDatas() treeView1.Nodes.Clear() treeView1.Nodes.Add(lesNoeuds(0)) Dim lesValeur = lesNoeuds.[Select](Function(nj) nj.Valeur).OrderBy(Function(v) v.ID) dataGridView1.DataSource = Nothing dataGridView1.DataSource = lesValeur.ToList() End Sub Private Sub frmJulia_Load(ByVal sender As Object, ByVal e As EventArgs) OpenDataBase() ChargeBdd() AfficheDatas() End Sub '''

''' Ajoute une valeur au noeud sélectionné, le nom est la date et l'heure '''

''' ''' Private Sub butAjouter_Click(ByVal sender As Object, ByVal e As EventArgs) Dim parent As NoeudJulia = CType(treeView1.SelectedNode, NoeudJulia) Dim nouveau As NoeudJulia = New NoeudJulia(DateTime.Now.ToString("yyyy-MM-dd_HH-mm-ss"), parent, lesNoeuds, CON) AfficheDatas() End Sub End Class

julia Namor · Answer

Le texte de l'erreur 

L'exception System.NullReferenceException n'a pas été gérée
  HResult=-2147467261
  Message=La référence d'objet n'est pas définie à une instance d'un objet.

Whismeril · Answer

Ok,
en fait, je ne code pas en vb.net, mais en C# et je passe par un convertisseur.
Dans 99.9% des cas ça marche bien et donc avec le temps j'ai perdu l'habitude de tester le code converti.

On est tombé dans le cas où il y a une subtilité que le convertisseur n'a pas géré.

Remplace la boucle par celle-ci

For Each dr As DataRow In dta.Rows
                    Dim nouveau As New NoeudJulia(dr, lesNoeuds)
                Next

julia Namor · Answer

J'obtiens une erreur sur la connexion CON
Public Sub New(ByVal Nom As String, ByVal Parent As NoeudJulia, ByVal LesNoeuds As List(Of NoeudJulia), ByVal CON As SQLiteConnection)
        MyBase.New(Nom)
        Valeur = New m_ARBORESCENCE(Nom, Parent.Valeur.ID, CON)
        Parent.Nodes.Add(Me)
        LesNoeuds.Add(Me)
    End Sub

l'erreur c'est : L'exception System.NullReferenceException n'a pas été gérée
  HResult=-2147467261
  Message=La référence d'objet n'est pas définie à une instance d'un objet.

julia Namor · Answer

J'avoue que je n'ai pas trop bien compris 
j'ai fait ça
Private Sub frmJulia_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load

Dim parent As NoeudJulia = CType(TreeView1.SelectedNode, NoeudJulia)
        Dim nouveau As NoeudJulia = New NoeudJulia(DateTime.Now.ToString("yyyy-MM-dd_HH-mm-ss"), parent, lesNoeuds, CON)
        AfficheDatas()

End Sub

toujours même erreur
peux tu m'envoyer l'ensemble de la solution de ton exemple ?

vb95 · Answer

Bonjour Julia et Whismeril Pour Julia il faut reprendre pour le code de ta Form principale le code que t'as donné Whismeril au message 20 il te manque juste les Handles qui vont raccrocher les Sub aux évènements FormJulia_Load et butAjouter_Click voici le code complet de la Form avec les 2 Handles manquants Imports System Imports System.Collections.Generic Imports System.Data Imports System.Linq Imports System.Windows.Forms Imports System.Data.SQLite Public Partial Class frmJulia Inherits Form Private Database As String Private CON As SQLiteConnection = New SQLiteConnection() Private Sub OpenDataBase() Try Database = String.Format("{0}\BDD.db", Application.StartupPath) CON.ConnectionString = "Data Source=" & Database CON.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Public Sub New() InitializeComponent() End Sub 'liste qui va accueuillir les noeuds Private lesNoeuds As List(Of NoeudJulia) = New List(Of NoeudJulia)() Private Sub ChargeBdd() Dim conn As SQLiteConnection = New SQLiteConnection("Data Source=BDD.db;Version=3") Try Using (conn) conn.Open() Dim sql As String = "Select * FROM ARBORESCENCE ORDER BY IdParent" 'il est impératif pour la suite que le datareader soit trié de la sorte Dim cmdDataGrid As SQLiteCommand = New SQLiteCommand(sql, conn) Dim da As SQLiteDataAdapter = New SQLiteDataAdapter() da.SelectCommand = cmdDataGrid Dim dta As DataTable = New DataTable() da.Fill(dta) 'lecture des données et création de la liste de NoeudJulia For Each dr As DataRow In dta.Rows New NoeudJulia(dr, lesNoeuds) Next End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub '''

''' Affiche les données, ordonnées par leur ID '''

Private Sub AfficheDatas() treeView1.Nodes.Clear() treeView1.Nodes.Add(lesNoeuds(0)) Dim lesValeur = lesNoeuds.[Select](Function(nj) nj.Valeur).OrderBy(Function(v) v.ID) dataGridView1.DataSource = Nothing dataGridView1.DataSource = lesValeur.ToList() End Sub Private Sub frmJulia_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load OpenDataBase() ChargeBdd() AfficheDatas() End Sub '''

''' Ajoute une valeur au noeud sélectionné, le nom est la date et l'heure '''

''' ''' Private Sub butAjouter_Click(ByVal sender As Object, ByVal e As EventArgs) Handles butAjouter.Click Dim parent As NoeudJulia = CType(treeView1.SelectedNode, NoeudJulia) Dim nouveau As NoeudJulia = New NoeudJulia(DateTime.Now.ToString("yyyy-MM-dd_HH-mm-ss"), parent, lesNoeuds, CON) AfficheDatas() End Sub End Class

Whismeril · Answer

Voici un projet fonctionnel.
https://www.cjoint.com/c/JKwqz7xDkr1

Cela dit, tu n'as jamais répondu à la question de savoir quelle bibliothèque tu utilises dans le tien pour te connecter à SQlite.
J'ai supposé qu'il s'agit de celle-ci https://system.data.sqlite.org/index.html/doc/trunk/www/index.wiki si ça n'est pas le cas ça peut expliquer des écarts.
Cette bibliothèque s'installe comme package Nuggets avec ses dépendances (6 packages en tout) c'est trop gros pour cjoint, donc dans le zip il n'y pas pas tout le package mais juste le strict nécessaire (les dll)

Whismeril · Answer

Bonsoir, je viens de m'apercevoir d'une autre erreur du convertisseur.
Il a mis des By Val dans toutes les signatures de méthode.

Pour certaine, ça ne porte pas trop à conséquence (perte de temps d'exécution et utilisation inutile de la mémoire) mais pour d'autres, il y a perte d'informations.

Il faut donc supprimer tous les By Val du projet que je t'ai envoyé.

Treeview nodes. clé

31 réponses

Votre réponse