Discussion :

[DonQuiShoote]

Bonjour à tous,
Deux tables pratiquement identiques;
une comporte 2296 enregistrements, l'autre 2292.
Ce cas de figure se produit souvent dans mes manipulations.
A l'aide d'une requête ou d'un petit module, je voudrais extraire facilement les champs différents dans la table de 2296; ils peuvent bien sûr se trouver n'importe où. Ce sont des zonages de communes d'aquitaines, et une table est de 1999 et l'autre de 2005; celle de 2005 comporte 4 enregistrements de moins.
Je ne connais très peu le vba d'access (avant je programmais en C++)
Dans la faq, j'ai trouvé ce code, mais il ne fonctionne pas; l'étoile n'est pas comprise par le compilateur.

Code sql :

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

1
2
3
4
5
Select *
From Table1 AS T1
Where Not Exists (Select null
        From Table2 AS T2
        Where T1.[champT1]=T2.[champT2]

Ad talure !

[galaad666]

essaye table1.*

[DonQuiShoote]

non ça ne marche pas; j'ai essayé comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Option Compare Database
Sub extrait()
Select *
From zones_aquitaine_2005.CODGEO
Where Not Exists (Select null
From zones_aquitaine.code_com
Where zones_aquitaine_2005.[CODGEO] = zones_aquitaine.[code_com]
End Sub

c'est mieux mais j'ai tj 'select *' et la ligne 'where' en rouge

[random]

si tu as un identifiant unique (ici numcom numéro de commune) la requête suivante devrait t'aider

Code :

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

1
2
3
4
5
6
7
8
 
SELECT tab1999.numcom, "existe en 1999 et pas en 2005" AS comment
FROM tab1999 LEFT JOIN tab2005 ON tab1999.numcom = tab2005.numcom
WHERE tab2005.numcom  Is Null
union
SELECT tab2005.numcom, "existe en 2005 et pas en 1999" AS comment
FROM tab2005 LEFT JOIN tab1999 ON tab2005.numcom = tab1999.numcom
WHERE tab1999.numcom Is Null;

nb tu peux en faire deux reqêtes distinctes en remplacant union par ;

[DonQuiShoote]

En fait dans la table 'zones_aquitaine_2005', j'ai le champ 'CODGEO'
qui correspond à code_geo dans la table 'zones_aquitaine'
Dans la 1ère table il y a 5 enregistrements de plus; je voudrais les isoler.
Les champs codgeo et code_geo contiennent les codes des communes; seulement il y en a 5 de plus dans la 1ere table.
C'est un scénario qui se répête assez souvent c'est pour cela, vu qu'il y la plupart du temps plusieurs milliers d'enregistrements, que je voudrais un outil pour repérer facilement les enregistrements en sus.
C'est 'select' que mon compilateur n'aime pas; il me dit qu'il faut après 'case', mais c'est pas un select case que je veux faire!
La syntaxe est mauvaise, évidemment, malheureusement je ne connais pratiquement pas le vba d'access 2000 (les autres non plus d'ailleurs!).

[Dolphy35]

Salut,

non ça ne marche pas; j'ai essayé comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Option Compare Database
Sub extrait()
Select *
From zones_aquitaine_2005.CODGEO
Where Not Exists (Select null
From zones_aquitaine.code_com
Where zones_aquitaine_2005.[CODGEO] = zones_aquitaine.[code_com]
End Sub

c'est mieux mais j'ai tj 'select *' et la ligne 'where' en rouge

C'est 'select' que mon compilateur n'aime pas; il me dit qu'il faut après 'case', mais c'est pas un select case que je veux faire!
La syntaxe est mauvaise, évidemment, malheureusement je ne connais pratiquement pas le vba d'access 2000 (les autres non plus d'ailleurs!).

C'est normal tu ne peux pas mettre le code SQL directement dans un procédure. Si tu veux renseigner du sql dans une procédure il faut le mettre en tant que chaîne de caractère

Code :

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

1
2
Dim SQL as String
SQL = "SELECT ....."

mais même comme cela il faut qu'il te serve à quelque chose, renseigner une requête, la source d'un Form, d'un SousForm.

Que veux-tu faire avec cette requête ?

Dolphy

[DonQuiShoote]

Je voudrais extraire les 5 enregistrements qui diffèrent entre les deux tables.

[Dolphy35]

Je voudrais extraire les 5 enregistrements qui diffèrent entre les deux tables.

As-tu esseyé la requête de random ?

Tu veux exécuter cela d'une requête dans un Form ?

Créer une requête tu te met en SQL et tu adapte le code de random.

[DonQuiShoote]

D'ac; je n'avais pas compris; je l'utilisais directement dans un module.
Je vais essayer ce tantôt; c'est une requête toute simple que je veux; simplement pour ne plus perdre mon temps quand le scénario se produit.
Mes difficultés viennent du fait que je n'utilise access et son vba que depuis un mois environ.
Merci à tous.

[DonQuiShoote]

Essai non concluant, comme disait un de mes chefs!
Voilà le code tel que je l'ai adapté :

Code :

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

1
2
3
4
5
6
7
8
 
SELECT zones_aquitaine.code_com, "existe en 1999 et pas en 2005" AS comment
FROM zones_aquitaine LEFT JOIN zones_aquitaine_2005 ON zones_aquitaine.code_com = zones_aquitaine_2005.CODGEO
WHERE zones_aquitaine_2005.CODGEO  Is Null
union
SELECT zones_aquitaine_2005.CODGEO, "existe en 2005 et pas en 1999" AS comment
FROM zones_aquitaine_2005 LEFT JOIN zones_aquitaine ON zones_aquitaine_2005.CODGEO = zones_aquitaine.code_com
WHERE zones_aquitaine_2005.CODGEO Is Null;

Le résultat est une table vide; pourtant j'ai passé les tables en revue pour trouver un des enregistrements différents;
J'en ai trouvé un; le voici :
table zones_aquitaine_2005 (celle qui contient 2296 enregistrements)
1589 codgeo = 47162
1890 codgeo = 47163

table zones_aquitaine (celle qui contient 2292 enregistrements)
1589 code_com = 47162
1590 code_com = 47164

Mais la requête n'extrait pas 47163 qui pourtant ne se trouve pas dans la 2e table !?! Je voudrais que la requête sorte les 4 enregistrement qui manquent dans la table zones_aquitaine.

[random]

tu as mis deux fois
zones_aquitaine_2005.CODGEO Is Null
cela n'est pas correct
dans l'une des requêtesd tu devrais avoir
zones_aquitaine.code_com is null

[DonQuiShoote]

Bonjour tout le monde!
Evidemment! Faut être bête! Et pourtant je l'ai relue plusieurs fois!
J'aurais peut-être pas dû nommer les tables avec des noms aussi proches!
ça marche; cette requête va me faciliter la vie!
Ci-dessous la requête corrigée:

Code :

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

1
2
3
4
5
6
7
 
SELECT zones_aquitaine.code_com, "existe en 2005 et pas en 1999" AS comment
FROM zones_aquitaine LEFT JOIN zones_aquitaine_2005 ON zones_aquitaine.code_com = zones_aquitaine_2005.CODGEO
WHERE zones_aquitaine_2005.CODGEO  Is Null
UNION SELECT zones_aquitaine_2005.CODGEO AS comment
FROM zones_aquitaine_2005 LEFT JOIN zones_aquitaine ON zones_aquitaine_2005.CODGEO = zones_aquitaine.code_com
WHERE zones_aquitaine.code_com Is Null;

Merci beaucoup à tout le monde.
Bonne journée,
DonQuiShoote.