REQUETE ACCESSRésolu

Question

Salut,

J'ai un petit pb de requete. J'ai en fait 2 tables li&#233;s par une jointure.
MaMere et MaTableFille

MaTableFille.Index est li&#233; &#224; MaTableMere.Index
Dans MaTableMere le champs index est ma cl&#233; primaire.

Donc impossible de supprimer un enregistrement dans MaTableMere s'il est utilis&#233; par MaTableFille.

Je souhaite appurer une base en supprimant tout les enregistrements de MaTableMere qui ne sont pas li&#233;s &#224; MaTableFille.

Existe-t-il une requette qui fasse cela automatiquement ?

Sinon je suis parti sur ce code  :
PS : TAB_CRITERE3 est MaTableMere et TAB_CRITERE4 est MaTableFille

SQL = "SELECT * FROM TAB_CRITERE"
Set rs = New ADODB.Recordset
Call rs.Open(SQL, BaseSave, adOpenDynamic, adLockOptimistic)
Do While Not rs.EOF
     On Error Resume Next
     Call rs.Delete
     Err.Clear
     Call rs.Update
     Call rs.MoveNext
Loop

Le On Error Resume Next me permet de sauter les erreurs li&#233;es au enregistrement utilis&#233; par ma table Fille. Cependant, chose bizarre,  le code ne sort jamais de la boucle. Et pour cause, le rs.MoveNext ne fonctionne plus. Je reste donc toujours sur le m&#234;me enregistrement 

Merci d'avance
Bonne prog
++

nanou1605 · Accepted Answer

Salut,
essaye avec cette requête

DELETE 
FROM MaTableMere
where index not in (select index from MaTableFille)

Seb

bouv · Answer

Parfait, quelle classe.


Merci beaucoup 

Bonne prog
++

REQUETE ACCESS

2 réponses

Discussions similaires