Discussion :

[Xpmich]

Bonjour à tous,
(bonne année 2009)
Je suis sur un conflit lors de l'édition de requête SQL manuellement dans ACCESS 2007.
Je possede une table LANGUE dans laquelle je veux ajouter un enregistrement si il n'existe pas déjà. Voici les colonnes de la table (la_CodLangue,la_CodTexte,la_LibTexte).
Voici ma requête :

Code :

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

1
2
3
4
5
6
7
8
9
 
INSERT INTO Langue (la_CodLangue,la_CodTexte,la_LibTexte)
VALUES ('ALL','PAM00','Strom')
WHERE NOT EXISTS
(SELECT 1
FROM langue L2
WHERE L2.la_CodLangue = 'ALL'
AND L2.la_CodTexte='PAM00'
AND L2.la_LibTexte='Strom')

ACCESS me donne l'erreur suivante :
La requête doit être construite à partir d'au moins une table ou une requête source. (Erreur 3067)

Malgré plusieurs heures de recherche, je panne.

Merci d'avance.

Xpmich.

[vodiem]

salut Xpmich et bienvenu,

tu ne peux réaliser l'ajout sous condition en sql.

pour ce que tu veux faire je te conseil:
la création d'un index sur: <la_CodLangue>, <la_CodTexte>, <la_LibTexte>
et de retirer les messages d'erreur dû à l'ajout d'un doublon.

sinon en vba:

Code :

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

1
2
3
if dcount("*","langue","la_CodLangue = 'ALL' AND la_CodTexte='PAM00' AND la_LibTexte='Strom'")=0 then
   docmd.runsql "INSERT INTO Langue (la_CodLangue,la_CodTexte,la_LibTexte) VALUES ('ALL','PAM00','Strom')"
end if

[Xpmich]

Ok mais je ne travaille pas sous VBa mais via DELPHI qui commande une base ACCESS.
Mais cela n'importe peu, ce que je recherche, c'est la ligne SQL. Je connais pas les balises, peux tu m'expliquer ?

Merci d'avance.
Xpmich

[vodiem]

dans les icones d'outils du message tu trouve un dièse #
tu sélectionnes le code que tu poste et tu cliques dessus: cela permet de différencier du message et c'est plus pratique pour la lecture (défilement) et le copie/coller.

pour en revenir à ton soucis, il faut dans ce cas vérifier l'existe de l'enregistrement avant de faire l'ajout.
par exemple tu demande le compte d'enregistrement du recordset (.recordcount) que renvoie le:

Code SQL :

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

SELECT * FROM Langue WHERE (la_CodLangue = 'ALL') AND (la_CodTexte='PAM00') AND (la_LibTexte='Strom')

s'il est null tu fait ton insert.

sinon tu défini un index sur les trois champs ce qui empêche l'insertion s'il existe déjà un enregistrement avec ces trois champs.

mais je ne pourrais t'aider plus sur delphi, je ne l'ai plus cotoyé depuis qq année.