Discussion :

[warraf]

J'ai une requete:

Code :

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

INSERT INTO UTILISATEUR SELECT * FROM UTILISATEUR IN 'c:\baseSource'

comment éviter le message d'erreur lié au doublons dans cette requetes.
Sachant que le code de cette requete est contenu dans une commande de mon code ADO.

[zoom61]

Salut,

En faisant un regroupement sur les données :

Code :

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

INSERT INTO UTILISATEUR SELECT * FROM UTILISATEUR IN 'c:\baseSource' GROUP BY UTILISATEUR.UTILISATEUR

[warraf]

cela devrait marché mais dans le groupe by UTILISATEUR.objet du regroupement

dans mon cas il faudrait UTILISATEUR.cléprimaireD'utilisateur.

mais comment puis-je recuperer la clé primaire?

[fdraven]

Tu peux essayer ça :

Code :

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

INSERT INTO UTILISATEUR as t1 SELECT * FROM UTILISATEUR IN 'c:\baseSource' as t2 WHERE NOT EXISTS ( SELECT * FROM UTILISATEUR IN 'c:\baseSource' as t3 WHERE t3.id_user = t1.id_user)

En espérant t'avoir aidé.

[warraf]

dans mon cas j'ai mit la requete dans une boucle qui avec une liste de table c'est pour cela que je ne peut pas ecrire le nom de la clé primaire mais je doit récupérer les nom des clé primaire. J'ai trouver ce code mais il me le faut en ado.

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
21
22
23
24
25
26
27
28
29
Function TrouverCP(nom_table As String) As String
 
        Dim bds As DataBase
        Dim dft As TableDefs
        Dim chp As Field
        Dim idx As Index
        ' base de données en cours.
        Set bds = CurrentProject.Connection
        ' Retourne un objet Tabledef pointant sur une table.
 
         Set dft = bds.TableDefs(nom_table)
     ' Parcourt la collection Indexes de l'objet TableDef.
      For Each idx In dft.Indexes
        ' Vérifie la propriété Primary de l'index de
        ' l'objet Recordset.
            If idx.Primary Then
               For Each chp In idx.Fields
                   TrouverCP = chp.Name
                   'clef primaire trouvé
                   Set bds = Nothing
                  Exit Function
                  ' on quitte la fonction
              Next chp
         End If
     Next idx
     Set bds = Nothing
        TrouverCP = "null"
        ' pas de clef primaire trouvé
End Function

[warraf]

Code :

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

1
2
 
INSERT INTO UTILISATEUR as t1 SELECT * FROM UTILISATEUR IN 'c:\baseSource' as t2 WHERE NOT EXISTS ( SELECT * FROM UTILISATEUR IN 'c:\baseSource' as t3 WHERE t3.id_user = t1.id_user)

ce code ne fonctionne pas car on ne peut pas mettre le premier As sans obtenir d'erreur dû à la syntaxe de INSERT INTO.