INSERT INTO NOT IN

[Vetter]

Bonjour,

Je voudrais savoir si la requête que j'execute en VBA est correcte, car en effet celle-ci ne semble pas réagir (aucun message d'erreur).
Voici la fameuse requête :

Code :

1
2
3
4
INSERT INTO T_PlanningRepos(DateJ, idEmploye, Repos, Semaine, Annee) 
SELECT '" & DateAdd("d", j, Me!DateD.Value) & "', " & req.Fields(0) & ", 'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & " 
FROM T_PlanningRepos WHERE DateJ NOT IN 
(SELECT DateJ FROM T_Planning WHERE idEmploye=" & req.Fields(0) & ")

Merci de votre temps et de votre aide

[dehorter olivier]

La structure de la requête semble correct (sur le plan SQL, je ne connais pas le VB).

le fait qu'il n'y ait pas de message d'erreur me semble plutôt une bonne nouvelle, non ?


Reste à savoir si elle est exécutée !

[Vetter]

Je pense que l'erreur viendrait des valeurs du SELECT.
En effet, ce sont des valeurs saisies est donc je pense qu'elle ne font pas partie d'une table.

[dehorter olivier]

la syntaxe

Code :

1
2
INSERT INTO ... ()
SELECT ....

est une syntaxe correcte.

Evidemment certaines règles doivent être appliquées

[Vetter]

En fait, cette requête permet de remplir la table des repos en fonction de l'emploi du temps de l’employé.

Exemple

MICHEEL M. travaille le 04/07/2011 et le 06/07/2011 il aura donc comme repos les dates suivantes :
05/07/2011, 07/07/2011, 08/07/2011, 09/07/2011, 10/07/2011

[dehorter olivier]

d'accord,

mais

Je voudrais savoir si la requête que j’exécute en VBA est correcte, car en effet celle-ci ne semble pas réagir (aucun message d'erreur).

as tu testé cette requête (sous quel SGBD ?) ? [sans le VB]

a priori elle doit fonctionner...


As tu, sous VB, lancé l’exécution de la requête ?
Si oui, les insertions sont-elles effectuées ?

Normalement ce type de requête ne renvoie aucune info à l'utilisateur (sauf erreur), ce n'est pas comme un SELECT

[Vetter]

La requête est bien exécutée mais aucune valeur n'est présente dans la table désirée.

[punkoff]

tu fais bien un commit ..?

[tatayo]

Bonjour,
Je note que dans la clause Select, aucune colonne de la table T_Planning n'est reprise. Donc si le select renvoie plusieurs lignes, toutes auront les mêmes valeurs.
Avec un peu de chance tu as dans les colonnes insérées une clé unique, et le fait de tenter d'insérer plusieurs lignes identiques fait échouer la requête.

Commence par lancer le Select seul pour voir ce qui est renvoyé.

Tatayo.

[Vetter]

En fait je voudrais insérer les valeurs suivantes :

Code :

1
2
'" & DateAdd("d", j, Me!DateD.Value) & "', " & req.Fields(0) & ", 
'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & "

dans la table T_PlanningRepos en fonction du critère "NOT IN".

[Vetter]

Pour faire simple, je voudrais pouvoir faire ça :

Code :

1
2
3
4
5
INSERT INTO T_PlanningRepos(DateJ, idEmploye, Repos, Semaine, Annee) 
VALUES ('" & DateAdd("d", j, Me!DateD.Value) & "', " & req.Fields(0) & ", 
'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & " )
WHERE DateJ NOT IN 
(SELECT DateJ FROM T_Planning WHERE idEmploye=" & req.Fields(0) & ")

mais je sais que ce n'est pas la bonne syntaxe.

Merci encore de vos réponses

[tatayo]

Bonjour,
A tester:

Code SQL :

1
2
3
4
5
6
7
8
 
INSERT INTO T_PlanningRepos(DateJ, idEmploye, Repos, Semaine, Annee) 
SELECT '" & DateAdd("d", j, Me!DateD.Value) & "', " & req.Fields(0) & ", 
'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & " 
FROM dual
except
SELECT DateJ, " & req.Fields(0) & ", 
'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & " FROM T_Planning WHERE idEmploye=" & req.Fields(0) & "

Tatayo

[Vetter]

Message d'erreur retourné :

"Erreur de syntaxe dans la clause FROM"

Merci

[dehorter olivier]

Envoyé par Vetter

Pour faire simple, je voudrais pouvoir faire ça :

Code :

mais je sais que ce n'est pas la bonne synthaxe.

Merci encore de vos réponses

cette syntaxe est incorrecte, la précédente écriture l’était (voir ce lien)

[Vetter]

Envoyé par tatayo

Bonjour,
A tester:

Code SQL :

Tatayo

J'ai fais une recherche et j'en ai conclu que l'erreur vient du fait que la table "DUAL" n'existe pas dans access.

Merci de ton aide

[Vetter]

Envoyé par dehorter olivier

cette syntaxe est incorrecte, la précédente écriture l’était (voir ce lien)

Oui je sais mais j'aurais tellement voulu qu'elle soit correcte.
C'était seulement pour faire comprendre ce que je voulais.

[dehorter olivier]

as tu essaye la proposition de tatayo ?

a savoir : n'utiliser que la clause SELECT pour voir ce quelle renvoie comme information ?

et voir ainsi s'il n'y a pas de doublons

[Vetter]

En fait, quand j’exécute le code VBA, ci dessous :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub GenRepos_Click()
 
    Dim db AS DAO.DATABASE
    Dim req, req2 AS DAO.Recordset
    Dim sql, sql2 AS String
    Dim j AS Integer
 
 
    SET db = CurrentDb()
    sql = "SELECT T_Planning.idEmploye, T_Planning.DateJ FROM T_Planning 
    WHERE T_Planning.Semaine='" & Me!NumSem.Value & "' AND T_Planning.Annee=" & Year(Me!DateD.Value)
    SET req = db.OpenRecordset(sql)
    DoCmd.SetWarnings False
 
    While NOT req.EOF
        FOR j = 0 TO 6
            IF estEnRepos(req.FIELDS(0), DateAdd("d", j, Me!DateD.Value)) = 0 Then
 
                IF req.FIELDS(1) <> DateAdd("d", j, Me!DateD.Value) Then
 
                    IF doublon(req.FIELDS(0), DateAdd("d", j, Me!DateD.Value)) = 0 Then
                        DoCmd.RunSQL ("INSERT INTO T_PlanningRepos(DateJ, idEmploye, Repos, Semaine, Annee) 
                        VALUES ('" & DateAdd("d", j, Me!DateD.Value) & "', 
                        " & req.FIELDS(0) & ", 'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & ")")
                    End IF
                Else
                    DoCmd.RunSQL ("DELETE FROM T_PlanningRepos 
                    WHERE DateJ LIKE '" & DateAdd("d", j, Me!DateD.Value) & "' AND idEmploye=" & req.FIELDS(0))
                End IF
            End IF
        Next j
        req.MoveNext
    Wend
 
    DoCmd.SetWarnings True
End Sub

celui fonctionne mais seulement si 1 employé travaille pendant un jour par semaine.
Si plus de 1 jours alors il est en repos toute la semaine.

[dehorter olivier]

re

j'ai plus l'impression qu'il s'agit plus d'un problème lié à VB

la requête :

Code :

1
2
3
4
INSERT INTO T_PlanningRepos(DateJ, idEmploye, Repos, Semaine, Annee) 
SELECT '" & DateAdd("d", j, Me!DateD.Value) & "', " & req.Fields(0) & ", 'R', '" & Me!NumSem.Value & "', " & Year(Me!DateD.Value) & " 
FROM T_PlanningRepos WHERE DateJ NOT IN 
(SELECT DateJ FROM T_Planning WHERE idEmploye=" & req.Fields(0) & ")

est normalement correct

mais j'ai un doute sur :

SET req = db.OpenRecordset(sql)

Mais je ne connais rien en VB C'est le Open qui me chagrine. normalement c'est une opération en écriture, et là cette fonction ne fait-elle pas que des choses en lecture ?

comment sont gérées les transactions (mais peut être sont elles implicites )

[Vetter]

Le "Open" est seulement utilisé pour la sélection.
Pour les insertion, les delete, etc on utilise DoCmd.RunSQL( " ... ")