Conseil sur code

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:

---

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:

---

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

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

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

Citation:

---

décris basiquement ce que tu cherches à faire

---

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

Citation:

---

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:

---

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

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

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 :

Citation:

---

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

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 ?

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.

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 ^^

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.

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:

---

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

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

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

/Branch/Project Name/Issuing Date

Code:

---

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:

---

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

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