Discussion :

[Julia Namor]

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

TreeViewToolBox

en utilisation ce code ci -dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 texte

trace avec 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.

Code :

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
 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 roblè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

[popo]

Cette clé que tu attribue au nœud est elle stockée en base ?

Si oui :
Je te suggère de mettre autre chose que la concaténation date + heure car tu risques de te retrouver avec des doublons (un GUID serait plus sécure)

Si non :
Il est normal que tu ne la récupère pas.

Dans les deux cas :
Il faut réaffecter la valeur de "nom" dans ta procédure "AddNode"

[Julia Namor]

Bonjour Popo

Merci pour ta réponse ,

Cette clé que tu attribues au nœud est elle stockée en base ? Si oui :Je te suggère de mettre autre chose que la concaténation date + heure car tu risques de te retrouver avec des doublons (un GUID serait plus sécure)

Oui effectivement cette clé est sauvegardée dans la BDD . je vais la changer en utilisant un GUID.

Dans les deux cas :
Il faut réaffecter la valeur de "nom" dans ta procédure "AddNode" [/I]

Peux tu me m'aiguiller sur un bout de code ?

Merci beaucoup

Cordialement

[popo]

Bonjour Popo
Peux tu me m'aiguiller sur un bout de code ?

Pour cela, il faudrait que tu me montre le code de ta routine AddNode
Mais dans l'diée, il faudrait y inclure ce que tu as déjà mis plus haut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

New TreeNode With {.nom = IdIssuDeLaBaseDeDonnee, .Text = StatusDate}