KioskeaKioskeaCommentCaMarcheInscrivez-vous, c'est gratuit !
Vendredi 16 mai 2008 - 18:48:27

Inserer le contenu d'une requete dans 1 table

Rechercher : dans
Inserer le contenu d'une requete dans 1 table
par gaudian
 Fil de Discussions
Statut : Résolu
vendredi 20 juillet 2007 à 10:45:53
Bonjour,

Je souhaiterai savoir comment on peut insérer le contenu d'une requête dans une instruction INSERT INTO. Voici mon exemple

Private Function Exclusion_NIP()
    
    Set DB1 = DBEngine(0)(0)
    Set RS1 = DB1.OpenRecordset("essaiRequete")
    Set RS2 = DB1.OpenRecordset("essaiRequete")
    
    RS1.MoveFirst
    RS2.MoveFirst
    
    Do Until RS1.EOF
        Do Until RS2.EOF
            'Si les 2 NIP ne sont pas identiques Alors
            If Trim(RS1.Fields("NIP")) <> Trim(RS2.Fields("NIP")) Then
                    SQL = "INSERT INTO tb_Resultat_1 ( nip, ngs ) " & _
                                 "VALUES (.........)"
                          
               DoCmd.RunSQL SQL
                              
               'Ensuite on passe à l'enregistrement suivant
               RS2.MoveNext
               
               'Sinon Si les 2 NIP sont identiques Alors
               ElseIf Trim(RS2.Fields("NIP")) = Trim(RS1.Fields("NIP")) Then
                    SQL = "INSERT INTO tb_SauvegardeTemporaire ( [NumOperationTransfert] ) " & _
                                "VALUES ('test')"
                          
                    DoCmd.RunSQL SQL
    
                    'Ensuite on passe à l'enregistrement suivant
                    RS2.MoveNext
            End If
        Loop
        RS2.MoveFirst
        RS1.MoveNext
    Loop
    
    RS1.Close
    RS2.Close
    
End Function


La ou il y a des ....., c'est la que j'ai besoin de vous
Merci d'avance
Configuration: Windows XP
Internet Explorer 6.0
Répondre à gaudian  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par gaudian, le vendredi 20 juillet 2007 à 15:19:28 Fil de Discussions 
J'ai trouvé la solution, je la donne si quelqu'un à le même problème

Private Function Exclusion_NIP()
        
    Set DB1 = DBEngine(0)(0)
    Set RS1 = DB1.OpenRecordset("essaiRequete")
    Set RS2 = DB1.OpenRecordset("essaiRequete")
    
    RS1.MoveFirst
    RS2.MoveFirst
    
    Do Until RS1.EOF
        Do Until RS2.EOF
            If Trim(RS1.Fields("NIP")) <> Trim(RS2.Fields("NIP")) Then
              SQL = "INSERT INTO tb_Resultat_1 (nip,ngs) " & _
                          "VALUES (' " & RS2.Fields("NIP") & " , 'ESSAI' )"
                          
              DoCmd.SetWarnings False
              DoCmd.RunSQL SQL
              
               RS2.MoveNext
               
               ElseIf Trim(RS2.Fields("NIP")) = Trim(RS1.Fields("NIP")) Then
                    SQL = "INSERT INTO tb_SauvegardeTemporaire ( [NumOperationTransfert] ) " & _
                                "VALUES ('test')"
                          
                    DoCmd.SetWarnings False
                    DoCmd.RunSQL SQL
                    
                   RS2.MoveNext
            End If
        Loop
        RS2.MoveFirst
        RS1.MoveNext
    Loop
    
    RS1.Close
    RS2.Close
    
End Function
Répondre à gaudian
Discussions pertinentes trouvées dans le forum
09/02 16h40VBA insertion ligne dans tableauBureautique26/03 16h1919
09/07 10h04[php] Inserer contenu d'un selectProgrammation10/07 09h175
04/12 15h20VBA: Pb d'insertion dans un tableauProgrammation04/12 16h405
30/10 16h06Insérer contenu différent avec des framesWebmastering30/10 19h271
29/10 09h13Problème d'insertion sur plusieurs tablesProgrammation29/10 14h262
Plus de discussions sur « Inserer le contenu d'une requete dans 1 table » Discussion en cours Discussion fermée Problème résolu
Répondre
Titre du message :
Votre pseudo:
Votre email :
Message: 
  •  
  •  
Options: Recevoir les réponses par mail.
 

Aide