Conseil sur code

**Anaxagore** · 24/03/2009, 13h13

Bonjour,

Je suis de nouveau sur un pb de code.
Je désire obtenir un treeview a partir de 3 chekedlistbox. Chaque checkedlist box me retourne une valeur qui me donne a la fin le tree à composer.
1er checklistbox = info à montrer ds le root
2eme checklistbox = info à montrer dans le nœud 1
3eme checklistbox = info a montrer dans le nœud 11

Définition des nœud :

Code :

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

1
2
3
Root
  + Node 1
     + Node 11

La 1ere solution que j'utilise en ce moment est la suivante :
Je fais appel a une sub ou je passe les différents valeurs pour Root, Node1 et Node11.
Ensuite dans le sub je fait un chainage de select. Je vous montre le resultat :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
        Select Case root
            Case "Valeur1"
                Select Case Node1
                    Case "Node1_Valeur1"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                    Case "Node1_Valeur2"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                    Case "Node1_Valeur3"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                End Select
            Case "valeur2"
                Select Case Node1
                    Case "Node1_Valeur1"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                    Case "Node1_Valeur2"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                    Case "Node1_Valeur3"
                        Select Case node11
                            Case "Node11_Valeur1"
                            Case "Node11_Valeur2"
                            Case "Node11_Valeur3"
                        End Select
                End Select
        End Select

ce qui devient compliqué à maintenir...
Sachant que les donnée sont extraites d'une base, donc la structure de l'affichage de chaque nœud suivant la valeur n'est pas la même.
Il n'y a aucun pb pour le root. cela le devient pour le Noeud1.

Donc ma question est la suivante : Suis je obligé de passer par des select de façon bête et méchante ou alors existe t il une autre solution de code?

J'espère que cela n'est pas trop confus.... suis pas énormément habitué a coder.

Merci déjà d'avoir pris le tps de me lire

Anax

**Pol63** · 24/03/2009, 14h11

on saurait ce qu'il y a dans les cases ca aiderait peut etre

m'enfin c'est sur qu'il y a un autre moyen de faire ca !

au lieu de décrire ce que tu cherches à coder qui n'a pas l'air d'être le bon choix, décris basiquement ce que tu cherches à faire genre d'où viennent les données et comment tu veux les afficher

**Anaxagore** · 24/03/2009, 20h22

Merci pour ta réponse.
je vais maintenant essayer de répondre a tes questions :

décris basiquement ce que tu cherches à faire

Je ne sais pas si ma description a été assez claire

Je désire obtenir un treeview a partir de 3 chekedlistbox. Chaque checkedlist box me retourne une valeur qui me donne a la fin le tree à composer.
1er checklistbox = info à montrer ds le root
2eme checklistbox = info à montrer dans le nœud 1
3eme checklistbox = info a montrer dans le nœud 11

donc voici ce que ca donne en exple (voir piece jointe).
maintenant voici le code que j'ai commencé à construire :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
 
        Dim RqSql_Root As String = Nothing
        Dim RqSql_Node1 As String = Nothing
        Dim RqSql_Node11 As String = Nothing
 
        Select Case Root
            Case "Branch"
                RqSql_Root = "SELECT  PK_Location, Location_Name " & _
                            "FROM Location " & _
                            "ORDER BY Location_Name"
                Select Case Node1
                    Case "Branch"
                        'Pas possible
                    Case "Project Name"
                        RqSql_Node1 = "SELECT PK_Project, Project_Name, FK_Location " & _
                                        "FROM Project " & _
                                        "ORDER BY Project_Name"
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                                RqSql_Node11 = "SELECT PK_Server, Server_Name, Server_IPr, Server_IPn, PK_Project " & _
                                                    "FROM (Location INNER JOIN Server ON Location.PK_Location = Server.FK_Branch) INNER JOIN Project ON Location.PK_Location = Project.FK_Location"
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Server Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Issuing date"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Reference"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                End Select
            Case "Project Name"
                RqSql_Root = "SELECT  PK_Project, Project_Name " & _
                            "FROM Project " & _
                            "ORDER BY Project_Name"
                Select Case Node1
                    Case "Branch"
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Project Name"
                        'Not Possible
                    Case "Server Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Issuing date"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Reference"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                End Select
            Case "Server Name"
                RqSql_Root = "SELECT PK_Server, Server_Name, Server_IPr, Server_IPn " & _
                            "FROM Server " & _
                            "ORDER BY Server_Name"
                Select Case Node1
                    Case "Branch"
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Project Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                        End Select
                    Case "Server Name"
                        'Not Possible
                    Case "Issuing date"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Reference"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                End Select
            Case "Issuing date"
                RqSql_Root = "SELECT PK_EACB_Dflow, D_Dde, I_Dde " & _
                            "FROM EACB_flow " & _
                             "ORDER BY D_Dde"
                Select Case Node1
                    Case "Branch"
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Project Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Server Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                        End Select
                    Case "Issuing date"
                        'Not Possible
                    Case "Reference"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                                'Not Possible
                        End Select
                End Select
            Case "Reference" 'Numéro d'EACB
                RqSql_Root = "SELECT PK_EACB_Dflow,Ref , I_Dde, D_Dde " & _
                            "FROM EACB_flow " & _
                            "ORDER BY Ref"
                Select Case Node1
                    Case "Branch"
                        Select Case Node11
                            Case "Branch"
                                'Not Possible
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                    Case "Project Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                                'Not Possible
                            Case "Server Name"
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                    Case "Server Name"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                                'Not Possible
                            Case "Issuing date"
                            Case "Reference"
                                'Not Possible
                        End Select
                    Case "Issuing date"
                        RqSql_Node1 = "Node1 - " & Node1
                        Select Case Node11
                            Case "Branch"
                            Case "Project Name"
                            Case "Server Name"
                            Case "Issuing date"
                                'Not Possible
                            Case "Reference"
                                'Not Possible
                        End Select
                    Case "Reference"
                        'Not Possible
                End Select
        End Select
 
        Dim MycommandRoot As OleDbCommand = oCnx.CreateCommand()
        Dim MycommandNode1 As OleDbCommand = oCnx.CreateCommand()
        Dim MycommandNode11 As OleDbCommand = oCnx.CreateCommand()
 
        Try
            oCnx.Open()
 
            MycommandRoot.CommandText = RqSql_Root
            Dim nRoot As OleDbDataReader = MycommandRoot.ExecuteReader()
            MycommandNode1.CommandText = RqSql_Node1
            Dim nNode1 As OleDbDataReader = MycommandNode1.ExecuteReader()
            MycommandNode11.CommandText = RqSql_Node11
            Dim nNode11 As OleDbDataReader = MycommandNode11.ExecuteReader()
 
            Select Case Root
                Case "Branch"
                    Do While nRoot.Read()
                        TheTreeview.Nodes.Add(nRoot.Item(0), nRoot.Item(1))
                    Loop
                    Select Case Node1
                        Case "Branch"
                            'Not Possible
                        Case "Project Name"
                            Do While nNode1.Read()
                                For i = 0 To TheTreeview.Nodes.Count - 1
                                    If nNode1.Item(2) = TheTreeview.Nodes.Item(i).Name Then TheTreeview.Nodes.Item(i).Nodes.Add(nNode1.Item(0), nNode1.Item(1))
                                Next
                            Loop
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                    'RqSql_Node11 = "SELECT PK_Server, Server_Name, Server_IPr, Server_IPn, PK_Project " & _
                                    Do While nNode11.Read()
                                        For i = 0 To TheTreeview.Nodes.Count - 1
                                            For j = 0 To TheTreeview.Nodes.Item(i).Nodes.Count - 1
                                                If nNode11.Item(4) = TheTreeview.Nodes.Item(i).Nodes.Item(j).Name Then
                                                    TheTreeview.Nodes.Item(i).Nodes.Item(j).Nodes.Add(nNode11.Item(0), _
                                                        nNode11.Item(1) & _
                                                        " - Real IP : " & nNode11.Item(2) & _
                                                        " - Natted IP : " & nNode11.Item(3))
                                                End If
                                            Next
                                        Next
                                    Loop
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Server Name"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Issuing date"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Reference"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                    End Select
                Case "Project Name"
                    Do While nRoot.Read()
                        TheTreeview.Nodes.Add(nRoot.Item(0), nRoot.Item(1))
                    Loop
                    Select Case Node1
                        Case "Branch"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Project Name"
                            'Not Possible
                        Case "Server Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Issuing date"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Reference"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                    End Select
                Case "Server Name"
                    Do While nRoot.Read()
                        TheTreeview.Nodes.Add(nRoot.Item(0), _
                                              nRoot.Item(1) & _
                                              " - Real IP =  " & nRoot.Item(2) & _
                                              " - Natted IP =  " & nRoot.Item(3))
                    Loop
                    Select Case Node1
                        Case "Branch"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Project Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                            End Select
                        Case "Server Name"
                            'Not Possible
                        Case "Issuing date"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Reference"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                    End Select
                Case "Issuing date"
                    Do While nRoot.Read()
                        TheTreeview.Nodes.Add(nRoot.Item(0), _
                                              Format(nRoot.Item(1), "dd/MM/yyyy") & _
                                              " - Created By :  " & nRoot.Item(2))
                    Loop
                    Select Case Node1
                        Case "Branch"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Project Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Server Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                            End Select
                        Case "Issuing date"
                            'Not Possible
                        Case "Reference"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                                    'Not Possible
                            End Select
                    End Select
                Case "Reference" 'Numéro d'EACB
                    Do While nRoot.Read()
                        TheTreeview.Nodes.Add(nRoot.Item(0), _
                                              nRoot.Item(1) & _
                                              " - Created By :  " & nRoot.Item(2) & _
                                              " - On :  " & Format(nRoot.Item(3), "dd/MM/yyyy"))
                    Loop
                    Select Case Node1
                        Case "Branch"
                            Select Case Node11
                                Case "Branch"
                                    'Not Possible
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                        Case "Project Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                    'Not Possible
                                Case "Server Name"
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                        Case "Server Name"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                    'Not Possible
                                Case "Issuing date"
                                Case "Reference"
                                    'Not Possible
                            End Select
                        Case "Issuing date"
                            Select Case Node11
                                Case "Branch"
                                Case "Project Name"
                                Case "Server Name"
                                Case "Issuing date"
                                    'Not Possible
                                Case "Reference"
                                    'Not Possible
                            End Select
                        Case "Reference"
                            'Not Possible
                    End Select
            End Select
            nRoot.Close()
            nNode1.Close()
            nNode11.Close()
 
        Catch ex As Exception
            If Err.Number = 5 Then
                'TheTreeview.Nodes.Add("No Data found")
                Console.WriteLine("pb ds requete")
            Else
                MessageBox.Show("Database connection is impossible! " & ex.Message)
            End If
        End Try
        oCnx.Close()

Si tu as d'autres questions je serais ravi d'y repondre et d'apprendre aussi

Merci encore

Anax

**Pol63** · 24/03/2009, 21h09

j'arrive meme pas à comprendre comment tu as pu à arriver à un tel code

tes checkbox devraient te mener à créer 3 requetes
et ensuite tu executes ces 3 requetes pour remplir des noeuds directement, sans regarder à nouveau ce qui est coché ...

les 3 requetes devraient retourner au minimum, une clé unique (au moins par rang dans ton cas), un texte (et éventuellement une image)

le but après c'est de savoir pour les requetes 2 et 3 à qui rattacher le nouveau node, et pour ca il faut pouvoir faire le lien entre un node et une clé unique

bref je pense qu'il vaut que tu appronfondisses les concept de la programmation orientée objet qui permet de coder ca en quelques lignes propres plutot que d'utiliser des if, des select case et autre instruction basique à tout va

**Anaxagore** · 24/03/2009, 22h59

Je me doute c est pour cela que je posais une question car je vois pas trop comment faire la...
afin de paraitre peut être complètement pour un noob, voici l'organisation de ma base... (en pièce jointe)
Pour reprendre :

il faut pouvoir faire le lien entre un node et une clé unique

Chaque node à une cléf unique que j'affecte en la créant. Chaque PK = une clef primaire et FK = clef étrangère.
De ce fait j'affecte une clef unique a chaque élément d'un nœud. je me garde la valeur 0 pour les add.
Maintenant je ne demande qu'à apprendre et comprendre. Je n'ai malheureusement personne autour de moi qui puisse me conseiller

Si ce n'est pas possible, je fermerai cette discussion

Merci pour ton temps

Anax

**Pol63** · 26/03/2009, 09h49

est-ce que tu fais l'ajout des elements dans le checkedlistbox par code ?

apparemment il y a certaines limitations genre si c'est ca qui est selectionné en 1, on ne peut pas selectionner ca en 2, tu gère ca en mettant disable sur le checkbox ?

est-ce qu'un element qu'il soit en 1ere position ou 2eme il a la meme requete ? juste la jointure qui change ?

**Anaxagore** · 26/03/2009, 10h27

non pour le moment les éléments des checkbox ne sont pas ajouter par le code. Je récupère simplement le nom de la checkbox.
Ce n'est pas une checklistbox car je ne pouvais pas faire ce que je fait avec une groupbox + checkbox + quelques lignes de code.
Oui effectivement, je gere mes checkbox ds ce sens. J'évite que la même référence soit sélectionnée sur 2 niveaux différents. Je joue sur les fonctions .checked et .enable
C'est pas tout à fait les même requête. En effet ce sont principalement les inner join qui différent.
Par contre j'essaye de réfléchir à ce que tu m'as écris afin de trouver des points communs. Le tout est que je dois a un moment faire une comparaison entre le datareader que je lis et le nœud parent. c'est en cela que cela devient compliqué pour mon petit esprit.

**Pol63** · 26/03/2009, 11h03

je te propose de faire un system.collections.generic.dictionary(of string,string)
avec dans la clé, le nom du checkbox et dans la valeur la requete à utiliser

les requetes doivent etre formatées pour avoir ID, nom, IDparent dans le select (idparent pas sur les checkbox de 1er niveau)

le dictionnaire doit etre rempli une fois au démarrage de la fenetre

sur un checked tu vas voir dans le dictionnary pour trouver la requete associée

pour le remplissage, c'est 3 reader successif ainsi que 2 dictionnaires(of long,treenode)
le premier créé des nodes directement sur le treeview
dim tn as new treenode(nom trouvé via le reader)
montreeview.nodes.Add(tn)
monpremierdictionnaire.Add(id trouvé via le reader,tn)

dim tn as new treenode(nom trouvé via le reader)
mon1ercitionnaire(idparent trouvé via le reader).nodes.Add(tn)
mon2emedictionnaire.Add(id trouvé via le reader,tn)

et pour le 3 eme je te laisse deviner ^^

**Anaxagore** · 26/03/2009, 11h28

Merci de ta réponse. J'ai quelques pbs de compréhension.
Je vais essayer de reformuler pour voir si j'ai bien compris ce que tu m'expliques.
Je dois créer un tableau avec 3 colonnes.
1er colonne : ID = PK de ma table
2eme colonne : Nom = Nom de la checkbox
3eme colonne : ID Parent = Foreign Key de la requête
Ai je bien compris?

Par exple ds certaines requêtes j'ai des champs complémentaires, j'ajoute cela au dictionnaire avec des colonnes supplémentaire?
Pour être plus précis, qud on demande des infos sur les serveurs, je viens mettre Nom + IP + .... dans le phrase.

**Pol63** · 26/03/2009, 11h36

pour la structure des requetes c'est :

2eme colonne c'est le texte affiché dans le treenode

le nom affiché dans le treenode est un string
donc dans la requete, ca serait bien de ne récupérer qu'un seul string, en concaténant éventuellement les infos

en programmation pour écrire le moins de lignes possibles (et donc avoir un code lisible et maintenable) il faut factoriser et rendre générique le maximum de chose (sans toutefois aller dans l'extreme)

donc si toutes tes requetes sont identiques au niveau de la structure, ca évite de se poser trop de questions

Code :

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

select id de la table, champ1 + ' - ' + champ2, fk from table

le dictionnaire de nom du checkbox,requete est juste une variable de stockage pour retrouver facilement la requete
il serait aussi possible de stocker celle ci dans la propriété tag du checkbox par exemple

**Anaxagore** · 26/03/2009, 12h09

ok la je suis complètement perdu.
Bon alors tu me dit : 3 reader successif et 2 dictionnaires(of long,treenode).
et tu me parles au début d'un dictionnaire de string...
dc cela fait au total 5 dictionnaires c est ca?

Reader1 = données pour Dic1
Reader2 = données pour Dic2
Reader3 = données pour Dic3

Dic1 = résultat de reader de la requête du root avec (PK, donnée string à afficher dans le treenode, FK = PK du node parent)
Dic2 = résultat de reader de la requête du Node1 avec (PK, donnée string à afficher dans le treenode, FK = PK du node parent)
Dic3 = résultat de reader de la requête du Node11 avec (PK, donnée string à afficher dans le treenode, FK = PK du node parent)

par contre le dic4 et dic5 je vois pas....

Désolé de na pas comprendre assez rapidement

Anax

**Pol63** · 26/03/2009, 12h53

alors le dic de string peut etre remplacé par la propriété tag il sert à retrouver la requete liée à un checkbox

ensuite les 3 reader c'est pour executer les 3 requetes, les readers ne sont pas des dictionnaires, mais l'objet d'accès aux données

dic 1 et dic 2 c'est pour retrouver facilement les nodes du treeview pour les liens de parenté, pas besoin de dic pour le dernier niveau car on ne rattache rien derrière
en plus d'ajouter le treenode sur le treeview, on l'ajoute aussi dans un dictionnaire, ca évite de recherche dans le treeview en itérant tout

**Anaxagore** · 26/03/2009, 12h53

de plus j'ai un cas concret concernant la synthax SQL des requêtes :

/Branch/Project Name/Issuing Date

Code :

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

1
2
RqSql_Node11 = "SELECT PK_EACB_Dflow, D_Dde, I_Dde, PK_Project " & _
    "FROM (Location INNER JOIN Project ON Location.PK_Location = Project.FK_Location) INNER JOIN EACB_flow ON Project.PK_Project = EACB_flow.FK_Project"

/Branch/Server Name/Issuing Date

Code :

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

1
2
RqSql_Node11 = "SELECT PK_EACB_Wflow, D_Dde, I_Dde, PK_Server " & _
     "FROM ((Location INNER JOIN Server ON Location.PK_Location = Server.FK_Branch) INNER JOIN Project ON Location.PK_Location = Project.FK_Location) INNER JOIN EACB_Wflow ON Project.PK_Project = EACB_Wflow.FK_Project "

Les inner join sont complètement différents. De ce fait je vois encore moins la possibilité de passer par ce que tu m'explqiues.

A moins que je ne comprenne pas grd chose à ce que tu m'as justement expliqué

Anax

Conseil sur code

VB.NET

Discussions similaires

Partager

Partager