Discussion :

[clickandgo]

Bonjour à tous

Lors de l'ouverture de mon formulaire contenant un treeview 6.0 , si la requête qui le constitue contient par exemple 10 enregistrements, cela met au moins 30 secondes à apparaitre et ne parlons pas du cas ou il faudrait montrer 100 enregistrements, c'est complétement ingérable !!!

Je suis en ODBC sur tables serveur Azure, avez vous une idée de ce qui peut provoquer ça ? faut il une version spéciale de treeview lorqu'on est en tables liées ?

J'ai eu le même problème lorsqu'un formulaire contenait beaucoup de combobox ou autres contrôles , obligé de réduire leur nombre par formulaire, mais dans le cas qui nous occupe il n'y a qu'un treeview sur un formulaire indépendant !

Que quelqu'un m'explique pourquoi Access est si lent dès qu'on est en tables liées ... (j'ai mis toutes mes requêtes en SQL Direct)

Si le problème persiste me conseillez vous de continuer le développement en .net ou faut il passer à des requêtes ou vues sur serveur ?

Voici le code :

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
Public Function LoadTreeview()
 
    Dim tv As MSComctlLib.TreeView
    Dim nodX As MSComctlLib.Node
    Dim nodChantiers As MSComctlLib.Node
    Dim nodDossiersFinancementTitre As MSComctlLib.Node
    Dim nodChantiersTitre As MSComctlLib.Node
    Dim rstClient As DAO.Recordset
    Dim rstChantiers As DAO.Recordset
    Dim sTrouv As String
 
 
 
    Set tv = Forms![TreeView].ctrlTreeView.Object
    Set rstClient = CurrentDb.OpenRecordset("select top 1 * from clients order by clients.nom")
    Set rstChantiers = CurrentDb.OpenRecordset("select * from [nature chantier]")
 
    Do While Not rstClient.EOF
    Set nodX = tv.Nodes.Add(, , "<NumClient>" & rstClient!NumClient & "</NumClient>", "(" & rstClient!NumClient & ")" & " " & rstClient!Nom & " " & rstClient!Prénom)
    Set nodChantiersTitre = tv.Nodes.Add(nodX, , , "Chantiers :")
 
         sTrouv = "Client='" & rstClient!NumClient & "'"
 
        rstChantiers.FindFirst sTrouv
 
        Do While Not rstChantiers.NoMatch
 
            Set nodChantiers = tv.Nodes.Add(nodChantiersTitre, tvwChild, "<NumClient>" & rstChantiers!NumDossier & "</Numclient>", rstChantiers!NumDossier)
 
            rstChantiers.FindNext sTrouv
 
        Loop
 
    rstClient.MoveNext
 
    Loop
Set nodDossiersFinancementTitre = tv.Nodes.Add(nodX, , , "Dossiers de financement")
End Function

[Jean-Philippe André]

Salut,

Access n'est pas lent outre mesure, mais Azure met a mal ses performances, voir discussion ici :
https://www.developpez.net/forums/d1...es-liees-odbc/

[clickandgo]

Merci pour ta prompte réponse mais je me permets de te signaler que je suis l'auteur de la discussion dont tu m'indiques le lien

[Jean-Philippe André]

je n'ai rien d'autre sous le coude pour t'aider du coup =[