Discussion :

[sohm]

J'ai une requête de ce type :

Code :

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

1
2
3
4
5
DELETE FROM Table
WHERE IDCLIENT NOT IN (
  SELECT IDCLIENT
  FROM AutreTable
)

Table fait un peu plus de 10.000 enregistrements.
AutreTable 1500.
Les deux tables ne contiennnet pas d'idclient null (cf. astuce dans la faq access).

Cette requête fonctionne parfaitement, manque de bol, elle est très longue (près de 5 minutes, un délai inacceptable dans mon appli).
Si je fais la même requête en remplaçant le NOT IN par un IN, c'est instantané.
Manque de bol, je ne peux pas tourner la requête (sachant que d'autres requêtes sont trop difficiles à tourner, ca sera immaintenable)

Je soupsonne JET 4 d'être très très mal optimisé.

J'ai essayé de tourner la requête différement, à savoir :

Code :

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

1
2
3
DELETE Table.*
FROM (Table
INNER JOIN AutreTable ON Table.IDCLIENT = AutreTable)

Mais ca ne marche pas sous access (arf)

Est-ce que quelqu'un connaîtrait la solution pour que cela marche correctement (faire une requête rapide avec ce qui est désiré, quitte à la formuler différement) ?

[=JBO=]

Bonjour,

Il faut absolument créer un index dans chacune des tables pour le champ ID_CLIENT.

Ensuite, tu peux essayer une requête SELECT avec une jointure externe entre les deux tables:

Code :

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

1
2
3
4
DELETE UneTable.* 
FROM UneTable LEFT JOIN AutreTable 
    ON UneTable.ID_CLIENT = AutreTable.ID_CLIENT
WHERE AutreTable.ID_CLIENT IS NULL;

Bonne continuation,
=JBO=

[sohm]

Merci pour la réponse ...

mais en fait ca ne marche pas, ca me fait le même message d'erreur que dans le premier bout de SQL :

Code :

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

1
2
3
DELETE Table.*
FROM (Table
INNER JOIN AutreTable ON Table.IDCLIENT = AutreTable)

(d'ailleurs je me rends compte que cette requête est fausse et que la tienne est juste)

Le message est : "Impossible de supprimer dans les tables spécifiées".

J'ai créée des index sur les deux tables, d'ailleurs elles ont été créées pour l'occasion.

[=JBO=]

Au fait, j'y pense un peu tard , mais ce n'est pas du tout conseillé d'appeler une table avec le nom [Table].
Ni un formulaire avec le nom [Form], ni .... (complètera qui voudra ).

Parce que, l'exemple que je t'ai donné fonctionne chez moi... j'ai testé !!!

Alors vite, renomme cette table et... miracle (j'espère !).

[sohm]

bah oui, je ne te cache pas que c'était des noms bidons.
j'ai recrée une base de test exemple, est-ce que tu aurais le temps de jeter un oeil ? histoire qu'on soit en phase

[sohm]

j'ai access 2000, quelle version utilises-tu ?

[=JBO=]

J'ai Access 2000.

j'ai recrée une base de test exemple, est-ce que tu aurais le temps de jeter un oeil ? histoire qu'on soit en phase

D'accord .
Que proposes-tu ?

[sohm]

//

[sohm]

tiens tiens, ca marche uniquement si Table2 (ou AutreTable) est en clef primaire, peux tu vérifier de ton côté si sur ta base de données de test c'est pareil ?

Je vais vérifier sur la grosse base si le comportement est identique, et surtout si les performances sont correctes mais je suis confiant.

[sohm]

bon je confirme sur la base réelle, ca marche et c'est à peu près instantané.
Merci beaucoup de ton aide.

[=JBO=]

Une bonne nouvelle, une mauvaise nouvelle...
Par laquelle commencer ?

Au niveau de l'interface utilisateur, l'exécution de la requête suppression "Requête1" affiche bien l'erreur "Impossible de supprimer dans les tables spécifiées" .

En revanche, tu peux exécuter ce qui suit dans la fenêtre de déboggage de l'IDE VBA, et ça marche très bien .

Code :

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

CurrentDb.QueryDefs("Requête1").Execute

As-tu essayé ?

[Edit 23:12]
Je viens de lire ton post de 22:58 et je te confirme que ta manip au niveau de la structure de la [Table2] fonctionne, à savoir déclarer que le champ [ID_CLIENT] est la clé primaire.
Du coup, l'exécution de la requête à partir de l'interface utilisateur se déroule sans plus de Pb...
Access 2000 est bien mystérieux en vérité...

En-est-il de même pour XP et 2003 ?

[sohm]

Tiens tiens, je pensais que l'interface utilisateur était pareille à l'exécution du code par VBA.
Ce qui m'intéresse perso, c'est l'exécution depuis .Net, ca peut donc marcher, je vais essayer.

[sohm]

punaise ca fonctionne depuis .Net.
Merci beaucoup !!!

[=JBO=]

Ma réponse est dans le message précédent que j'ai édité.

Sinon, concernant ta remarque...

Tiens tiens, je pensais que l'interface utilisateur était pareille à l'exécution du code par VBA.

La commande VBA équivalent à l'exécution de la requête via l'interface utilisateur serait plutôt:

Code :

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

DoCmd.OpenQuery "Requête1", acViewNormal

A une prochaine fois .
=JBO=