Discussion :

[borisa]

bonjour,

J'ai deux tables T1(A, B) et T2(C). Je souhaite comparer A et C et mettre C dans B lorsque A et C sont differents...
Là j'utilise des recordset qui ouvrent les tables T1 et T2 et je fais des rs.edit/rs.update pour les update de C, mais ça prend un temps fou (mes tables sont lourdes 100 000 pour T1 et 250 000 lignes pour T2). Est-ce une fatalité ou y a-t-il une méthode plus rapide que le parcours des tables en vba?
Il me semble que lancer du sql via le vba et encore plus long...

[=JBO=]

bonjour borisa,

J'ai deux tables T1(A, B) et T2(C). Je souhaite comparer A et C et mettre C dans B lorsque A et C sont differents...
Là j'utilise des recordset qui ouvrent les tables T1 et T2 et je fais des rs.edit/rs.update pour les update de C, mais ça prend un temps fou (mes tables sont lourdes 100 000 pour T1 et 250 000 lignes pour T2). Est-ce une fatalité ou y a-t-il une méthode plus rapide que le parcours des tables en vba?
Il me semble que lancer du sql via le vba et encore plus long...

Explique nous concrêtement comment tu rapproches les informations A et B. Soit précis, merci.

Sans savoir de quoi il retourne, je vois déjà 2 optimisations possibles, l'une pour VBA/DAO, l'autre pour le SQL.

[VBA / DAO]
Utiliser un index sur la table T2 pour des accès quasi instantanés.

Question: faut-il vraiment parcourir les 100 000 lignes de T1 ? Peut être seulement un sous-ensemble de T1 est-il impliqué ? D'où un gain possible.


[SQL]
Faire une requête UPDATE basée sur la jointure des enregistrements de T1 et T2, via le probable sous-ensemble de valeurs qui est commun à A et B (nécessaire pour le rapprochement des lignes).

A bientôt

[seacat]

hello,


je souscris entièrement à la remarque de =jbo= sur les index

les champs à mettre à jour sont-ils indexés dans la table ?

[borisa]

bonjour et merci pour vos reponses...avec mes excuses pour l'imprecision.
1. les champs sur lesquels on fait les comparaisons ne sont pas indexés.
2. je filtre effectivement les enregistrements de la table la plus lourde (T2) mais je ne sais pas à priori quel proportion representent les enregistrements filtrés.
3. voici le code que j'utilise:

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
Set rs1 = db.OpenRecordset("table1", dbOpenTable)
 
Set rs2 = db.OpenRecordset("select * from table2 where filtre = vrai")
 
'positionnement au debut de rs-he
While (Not rs1.EOF)
 
    trouv_pas = True
       While (Not rs2.EOF And trouv_pas)
               'si les champs "cle" sont égaux et t1.A = t1.C:
                If (rs1.Fields("cle").Value = rs2.Fields("cle").Value) And (rs1.Fields("A").Value = rs2.Fields("C").Value) Then
                    'on modifie
                    trouv_pas = False
 
                    rs1.Edit
                    rs1.Fields("B") = rs2.Fields("C")
                    rs1.Update
 
                End If
            rs2.MoveNext
        Wend
    rs2.MoveFirst
    rs1.MoveNext
Wend

je compare donc simplement A et C.

4. Je voulais aussi "pretrier" les tables T1 selon A et T2 selon C pour ne pas avoir à faire de rs2.movefirst, mais je ne sais pas comment faire....
merci de votre aide!
b.[/code][/quote]

[borisa]

ok, j'ai la solution grace à votre insistance sur les index: je crée un index sur la table T1 (sur le champ que j'appelai "cle", mais n'etait pas indexé) et le traitement qui durait 45mn prend 1mn30...
Voila, c'etait idiot, mais maintenant je n'oublierai pas de bosser avec des index!
merci beaucoup,
b.