Discussion :

[skillipo]

Bonjour,

j'ai une table qui contient 12 champs differents que je voudrais la parcourire ligne par ligne est mettre les champs et la repartir sur 3 tables differents .
sachant que dans la 2eme table j'ai une clé étrangere qui est l'ID de la 1ere table et idem pour la 3eme table avec l'Id de la 2éme .

Merci de vos Reponse .

[al1_24]

Avec un petit exemple, ce serait plus compréhensible

Règles du forum Langage SQL à lire par tous

[skillipo]

Enfet je suis sur un projet en Access je recupere des infos depuis une feuille excel que je stock dans une table_temporaire.

est ce qu'il ya moyen de faire un iteration dessus et apres je fais un :

insert champs1 .... from into table1
insert champs1 .... from into table2 par exemple ...

mais il faut que je puisse recopier l'id de la de la ligne inserer dans la table1 dans un champs dans la 2eme table .

Merci

[al1_24]

Quelle est la structure de la table d'origine ?
Celle des tables cibles ?
Les relations entre celles-ci ?

[skillipo]

c'est une table Access qui contient 12 champs

*je met les 3 premier champs dans la table1
*je met les 9 champs qui suivent dans la table2 et le 10éme champs et la l'Id de la meme ligne de la table1(clé étrangere)
* et je fais pareil pour la 3éme table


Merci

[skillipo]

des tables Access , avec des relations 1--*

[skillipo]

Bonjour ,

je remet ce sujet (mieux expliqué) .

j'ai une table qui se constitue de plusieurs Champs (10).
je voudrais importer cette table dans 3 tables differentes de la forme suivante :

TAB1 = idTable,Name,Prenom,adresse
TAB2=idEmployeur,nom,contact,adresse,idTable
TAB3=idService,nom,contact,responsable,directeur,idEmployeur

mon code est le suivant :

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
 
Public Sub Iterator()
    Dim sqlQuery As DAO.QueryDef
    Dim sqlQuery2 As DAO.QueryDef
    Dim sqlQuery3 As DAO.QueryDef
    Dim rec As Recordset
    Set rec = CurrentDb.OpenRecordset("Temporary_Table")
 
 
     Set sqlQuery = CurrentDb.QueryDefs("Requete1")
     Set sqlQuery4 = CurrentDb.QueryDefs("Requete2")
     Set sqlQuery2 = CurrentDb.QueryDefs("Requete3")
 
 
    sqlQuery.Execute
    sqlQuery2.Execute
    sqlQuery3.Execute
 
 
End Sub

Avec ce code j'insere toute la table et j'arrive pas a dupliquer l'idTable (TAB1)dans idTAble(TAB2) et idEmployeur(TAB2) dans idEmployeur(TAB3) .

je pense qu'il faut parcourire la table Ligne par Ligne est faire une eventuelle requete sur les 3 tables en meme temps .

merci de votre aide .

[DMboup]

TAB1 = idTable,Name,Prenom,adresse
TAB2=idEmployeur,nom,contact,adresse,idTable
TAB3=idService,nom,contact,responsable,directeur,idEmployeur

Et la table source, quelle est sa structure? Quel est son identifiant?

[skillipo]

Bonjour,

ma table source est sous la forme :

Temporary_Table = idTableTemporaire,Name,Prenom,adresse,nomEmployeur,contact,adresse,nomService,contact,responsable,directeur

enfet il ya tous les champs que j'importe dans les 3 tables .

il me faut copier ligne par ligne cette table et biensur gérer les clé étrangeres .

Merci

[DMboup]

Pour ca tu n'as pas besoin de parcourir ta table temporaire; Tu fais simplement une requête ajout pour chaque table destination.

Exemple sur TAB1 (idTable,Name,Prenom,adresse)

Code :

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

1
2
 
INSERT INTO TAB1 Select idTableTemporaire, Name, Prenom, adresse From Temporary_Table

TAB2=idEmployeur,nom,contact,adresse,idTable

Code :

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

1
2
 
INSERT INTO TAB2(Nom, Contact, Adresse, IdTable) Select nomEmployeur, contact, adresse, idTableTemporaire from Temporary_Table

Pour la troisième table la requête sera un peu plus compliquée par ce que devant retrouver idEmployeur en fonction des valeurs déjà enregistrée dans les deux tables. Une sous requête (ou deux) fera l'affaire.

[skillipo]

Merci ,

ce que j'arrive pas a faire c'est faire une boucle qui selectionne ligne par ligne ma table Temporary_Table .

[DMboup]

c'est faire une boucle qui selectionne ligne par ligne ma table Temporary_Table .

Tu n'as pas besoin de boucle pour ce cas précis. De simples requêtes suffisent.

[skillipo]

Enfet l'ID que je veux rajouter dans ma 2eme table c'est celui de la 1ere table est non celui de la Temporary_Table d'ou je prend les infos .

Temporary_TAble = ibTemporary,.........
TAB1=idTab1,.....
TAB2=idTab2,......,idTab1
TAB3=idTab3,......,idTab2

dans mon code vba , j'ai remarqué que quand je lance mes requetes SQL :

Req1
Req2
Req3

il rempli toute la TAb1 apres Tab2 , Tab3 .

c'est la raison pour la quel j'ai pensé a faire une boucle qui prend ligne par ligne .

Merci

[DMboup]

il rempli toute la TAb1 apres Tab2 , Tab3 .

c'est la raison pour la quel j'ai pensé a faire une boucle qui prend ligne par ligne .

Si les tables sont remplies avec les bonnes valeurs, je ne vois pas le problème.

Enfet l'ID que je veux rajouter dans ma 2eme table c'est celui de la 1ere table est non celui de la Temporary_Table d'ou je prend les infos .

Dans ce cas les requêtes seront différentes.

Mais si tu tiend à ta boucle tu peux bien le faire en utilisant un Recordset
Voici un modéle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Mba as Database, TabTempo As Recordset, NumId As Variant
Set Mba = currentDB()
Set TabTempo=Mba.OpenRecordset("Temporary_Table")
 
Do Until TabTempo.EOF
     'Tu inserts dans la Tab1
     DoCmd.RunSQL("INSERT INTO Tab1(Name, Prenom, adresse) Values(" & TabTempo("nom") & ", " & TabTempo("prenom") & ", " & TabTempo("adresse") & ")
 
' Ensuite tu récupéres l'id qui vient d'être ajouté dans la table Tab1 
et tu fais les autres ajouts.    
Loop

Voila.

[skillipo]

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
 
Public Sub Iterator()
    Dim rec As Recordset
    Dim Mba As Database, TabTempo As Recordset, NumId As Variant
    Dim compteur As Integer
 
 
    Set rec = CurrentDb.OpenRecordset("Temporary_Table")
    rec.MoveFirst
 
 
 
    Set Mba = CurrentDb()
    Set TabTemporary = Mba.OpenRecordset("Temporary_Table")
    Set TabLegalEntiy = Mba.OpenRecordset("LegalEntity")
    Set TabSuppliers = Mba.OpenRecordset("Suppliers")
    compteur = 0
 
 
 
    Do Until TabTemporary.EOF
         DoCmd.RunSQL "INSERT INTO LegalEntity(Country, unit, plant) Values (" &TabTemporary("Country") &","&TabTemporary("unit") & ", " & TabTemporary("plant") &")

voici la 1ere partie de mon code il bloque sur la requete

En meme temps est ce que c'est possible de faire plusieur Mba.OpenRecordset ?????

Merci

[DMboup]

Pour savoir ce qui se passe avec la requête crée une variable et fait un Debug.Print

Code :

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

1
2
3
4
5
6
 
Dim Msql as String
 
Msql="INSERT INTO LegalEntity(Country, unit, plant) Values (" &TabTemporary("Country") &", " &TabTemporary("unit") & ", " & TabTemporary("plant") &")
 
Debug.Print Msql

Regarde si tout va bien.

En meme temps est ce que c'est possible de faire plusieur Mba.OpenRecordset ?????

Code :

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

1
2
3
 
    Set TabLegalEntiy = Mba.OpenRecordset("LegalEntity")
    Set TabSuppliers = Mba.OpenRecordset("Suppliers")

Oui il est bien possible de le faire. Mais est ce nécessaire puisqu'on a un Insert Into?

On peut aussi très bien remplacer les INSERT INTO par des Recordset

Code :

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

1
2
3
4
5
 
TabLegalEntiy.AddNew
.....
 
TabLegalEntiy.update

qui est d'ailleurs plus rapide.

[skillipo]

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
 
 
Public Sub Test()
Dim rec As Recordset
    Dim Mba As Database, TabTemporary As Recordset, NumId As Variant
    Dim compteur As Integer
    Dim Msql As String
 
    Set Mba = CurrentDb()
    Set TabTemporary = Mba.OpenRecordset("Temporary_Table")
 
 
      'Do Until TabTemporary.EOF
 
    Msql = "INSERT INTO LegalEntity(Country, unit, plant) Values (" & TabTemporary("Country") & ", " & TabTemporary("unit") & ", " & TabTemporary("plant") & ")"
 
 
    'Loop
 
Debug.Print Msql
 
 
End Sub

alors moi j'ai fais ca et je l'es lancé mais il se passe rien .

faut préciser qu'il ya 3jours je n'avais jamais touché a Access VBA , mais bon le monde des SSII on est obligé de s'adapter .

je suis sur la bonne voie avec ce que j'ai ecris ou acoté de la plaque ??

Merci

[DMboup]

je suis sur la bonne voie avec ce que j'ai ecris ou acoté de la plaque ??

Pour quelqu'un qui a commencé il ya trois jours, dans un mois tu vas m'apprendre Access sans problème

Il se passe rien c'est normal. Tu ouvre la fenêtre Visual Basic et dans le menu
Affichage, clic sur Fenêtre d'exécution; tu verras la valeur de Msql

[skillipo]

INSERT INTO LegalEntity(Country, unit, plant) Values (NORWAY, , RO)
INSERT INTO LegalEntity(Country, unit, plant) Values (NORWAY, , RO)

c'est la Reponse que j'ai .

normalement il ya + d'infos .

[DMboup]

INSERT INTO LegalEntity(Country, unit, plant) Values (NORWAY, , RO)
normalement il ya + d'infos .

les valeurs de la requêtes

Code :

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

1
2
 
Values (" & TabTemporary("Country") & ", " & TabTemporary("unit") & ", " & TabTemporary("plant") & ")"

ca veut dire que le champ "unit" de la table TabTemporary ne comporte pas de valeur.

Est ce normal?

En tout cas le code SQL est correct. Ca veut dire qu'en mettant juste après le Debut.Print

Code :

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

1
2
 
DoCmd.RunSQL Msql

tu inserts bien les valeurs dans ta table.