Discussion :

[moirs555]

Bonjour,

J'ai un problème de mise à jour lorsque j'essaye de mettre à jour Access avec un inner Join il ne m'insère que les données dans le insert into mais pas celui de l'update et lorsque je fais un right join les données sont mis sur 2 lignes différentes.

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
cmd3.CommandText = " INSERT INTO tbl_list_function ( ScopeFunction ) VALUES ('" & xlSheet2.Range("D16") & "');"
 
        cmd3.Execute , , adCmdText
 
        cmd2.CommandText = " INSERT INTO tbl_list_project ( NameProject ) VALUES ('" & xlSheet2.Range("G16") & "');"
 
        cmd2.Execute , , adCmdText
 
        cmd.CommandText = " INSERT INTO tbl_declaration ( FunctionID ) " & _
                          " SELECT FunctionID " & _
                          " FROM tbl_list_function " & _
                          " WHERE tbl_list_function.ScopeFunction = '" & xlSheet2.Range("D16") & "'"
 
        cmd.Execute , , adCmdText
 
 
        cmd.CommandText = " UPDATE tbl_declaration INNER JOIN tbl_list_project ON tbl_declaration.ProjectID = tbl_list_project.ProjectID SET tbl_declaration.ProjectID = tbl_list_project.ProjectID WHERE tbl_list_project.NameProject = '" & xlSheet2.Range("G16") & "';"
 
 
        cmd.Execute , , adCmdText

Quelqu'un pourrait-il m'aider

[helas]

Bonjour,
Il faut décomposer pour voir ce qui se passe

Code :

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

1
2
 
SELECT tbl_declaration.ProjectID, tbl_list_project.ProjectID  FROM tbl_declaration INNER JOIN tbl_list_project  ON tbl_declaration.ProjectID = tbl_list_project.ProjectID ;

la jointure permet-elle de retourner des données ?
avec la condition

Code :

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

1
2
 
SELECT tbl_declaration.ProjectID, tbl_list_project.ProjectID  FROM tbl_declaration INNER JOIN tbl_list_project  ON tbl_declaration.ProjectID = tbl_list_project.ProjectID  WHERE tbl_list_project.NameProject = '" & xlSheet2.Range("G16") & "';"

idem, as-t-on des données ?
si oui, la mise à jour devrait opérer.