Discussion :

[Pascalpir]

Bonjour,
J'ai 2 tables: A (table Access avec une vingtaine de champs) et une seconde B (issue de l'importation de fichiers Xls)
Les 2 tables ont des champs identiques.

Je voudrais comparer les 2 tables afin de rechercher les enregistrements identique entre A et B.
La comparaison doit se faire sur tous les champs.
S'il en existent, les supprimer de B avant de transférer les enregistrements restant dans A, puis vider B afin de la remplir de nouveau par un autre fichier Xls.
L'importation et le vidage de B, je sais faire.
Merci.

[User]

Bonjour,

Partant de 2 tables Table1 <Champ1, Champ2, Champ3> et Table2 <Champ1, Champ2, Champ3>.

Pour supprimer les enregistrements de Table2 présents dans Table1 :

Code SQL :

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

1
2
3
DELETE
FROM Table2
WHERE Exists (select * from Table1 where (Table2.Champ1=[Table1].[Champ1]) AND (Table2.Champ2=[Table1].[Champ2]) AND (Table2.Champ3=[Table1].[Champ3]));

Pour ajouter les enregistrements restant de Table2 dans Table1 :

Code SQL :

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

1
2
3
INSERT INTO Table1 ( Champ1, Champ2, Champ3 )
SELECT Table2.Champ1, Table2.Champ2, Table2.Champ3
FROM Table2;

Cdlt

[Pascalpir]

Merci pour la réponse,

Code :

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

1
2
3
DELETE
FROM Table2
WHERE Exists (select * from Table1 where (Table2.Champ1=[Table1].[Champ1]) AND (Table2.Champ2=[Table1].[Champ2]) AND (Table2.Champ3=[Table1].[Champ3]));

mais ne fonctionne pas = erreur sur DELETE (sub ou fonction non définie).
J'ai écris

Code :

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

1
2
3
4
CurrentDb.Execute "Delete"
    FROM "table 2" _
     & " WHERE Exists (select * from [table 2] " _
     & " where (table 2.X=[table 1].[X])" _

etc... pour nommer tous les champs.
Même erreur sur le FROM
Est-ce une erreur de syntaxe.
Merci

[User]

Bonjour,

Ce n'est pas tout à fait ce que j'ai écris.

Essayez ceci pour 3 champs X, Y, Z issus de 2 tables (Table 1 et Table 2):

Code :

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

1
2
3
4
5
6
7
    Dim strSQL As String
 
    strSQL = "DELETE " & _
              "FROM [table 2] " & _
              "WHERE Exists (select * from  [table 1] where ([table 2].X=[table 1].X) and ([table 2].Y=[table 1].Y) and ([table 2].Z=[table 1].Z))"
 
    CurrentDb.Execute strSQL, dbFailOnError

Ou encore :

Code :

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

1
2
3
4
5
6
7
    Dim strSQL As String
 
    strSQL = "DELETE " & _
              "FROM [table 2] " & _
              "WHERE Exists (select * from  [table 1] where ([table 2].champ1=[table 1].champ1) and ([table 2].champ2=[table 1].champ2) and ([table 2].champ3=[table 1].champ3))"
 
    CurrentDb.Execute strSQL, dbFailOnError

Cdlt

[Pascalpir]

Merci pour cette réponse,
Mais quelle syntaxe utiliser pour scinder sur plusieurs ligne la condition WHERE, de façon à mettre sur des lignes différentes les "AND"

Code :

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

WHERE Exists (select * from  [table 1] where ([table 2].X=[table 1].X) and ([table 2].Y=[table 1].Y) and ([table 2].Z=[table 1].Z))"

Test: exemple

Code :

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

1
2
3
WHERE Exists (select * from  [table 1] where ([table 2].X=[table 1].X) 
 and ([table 2].Y=[table 1].Y)
 and ([table 2].Z=[table 1].Z))"

car avec une vingtaine de champs, il sera plus facile de vérifier les champs.
Merci.

[hyperion13]

Salut
Si cela peut vous aider

Code :

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

1
2
3
4
5
6
strSQL = "DELETE" _
            & " FROM [table 2]" _
            & " WHERE EXISTS (SELECT * FROM [table 1]" _
            & " WHERE ([table 2].champ1=[table 1].champ1)" _
            & " AND ([table 2].champ2=[table 1].champ2)" _
            & " AND ([table 2].champ3=[table 1].champ3))"