Discussion :

[fcpwns]

Bonjour,

Je suis en train de coder un module VBA sous Access 2003.
J'aimerais exécuter une requête SQL avec une jointure.

Ma première idée était :

Code :

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

1
2
Set Qdf = maBase.CreateQueryDef("", "DELETE FROM Table1 t1 WHERE NOT EXISTS (SELECT * FROM Table2 t2 WHERE t2.unChamp='youhou' AND t1.unChamp=t2.unAutreChamp);")
Qdf.Execute

Mais cela fait planter Access (sic), qui se ferme. J'observe néanmoins que la requête a été correctement exécutée... De plus le traitement est très long (cela vient du fait que Table1 n'est pas indexée, mais je ne peux pas l'indexer pour d'autres raisons).

Je pensais donc faire autrement, comme :

Code :

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

1
2
Set Qdf = maBase.CreateQueryDef("", "DELETE FROM Table1 t1 LEFT OUTER JOIN Table2 t2 ON t1.unChamp = t2.unAutreChamp WHERE t2.unChamp = 'youhou' AND IsNull(t2.unAutreChamp);")
Qdf.Execute

Mais cela ne marche pas, Access me sort une erreur comme quoi je n'ai pas spécifié la table contenant les enregistrements à supprimer...

Si quelqu'un peut me donner son avis ou bien me dire où le bât blesse, ce serait aimable.

Merci

[fcpwns]

Hum en fait mes deux tables sont correctement indexées, mais la requête avec NOT EXISTS prend 1 min pour traiter 24 000 enregistrements...
Quelqu'un aurait une idée ?

[Jean-Philippe André]

Salut,
il est fortement déconseillé d'utiliser la clause not exists.
Regarde si tu ne peux pas utiliser des subterfuges pour accélérer la requête.

Code :

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

WHERE Len(MonChamp)=0

par exemple

[fcpwns]

Ou peut-être une indication pour que la syntaxe avec LEFT OUTER JOIN soit correcte ?

[=JBO=]

Bonjour,

Je pensais donc faire autrement, comme :
[...]
Mais cela ne marche pas, Access me sort une erreur comme quoi je n'ai pas spécifié la table contenant les enregistrements à supprimer...

Si quelqu'un peut me donner son avis ou bien me dire où le bât blesse, ce serait aimable.

Avec 1 an de retard, voici la solution à ce problème expliquée dans le lien suivant:
ACC2000: "Could Not Delete from Specified Tables" Error Message in Delete Query

Et le code SQL (à vérifier quand même):

Code SQL :

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

1
2
3
4
5
DELETE DISTINCTROW T1.* 
FROM Table1 t1 
    LEFT OUTER JOIN (SELECT Table2.* WHERE t2.unChamp = 'youhou') t2 
        ON t1.unChamp = t2.unAutreChamp 
WHERE t2.unAutreChamp IS NULL;