Bonjour,
Je recherche a faire une liaison entre deux tables. Je développe une application vb6 avec une bdd Access. Mon application permet d'alimenter la base a partir d'un fichier texte.
J'ai une table employé ou j'ai numSS, nom, matricule, etc...
J'ai une autre table qui possède numSS et le matricule qui fait référence au numSS.
Dans ma table employé j'arrive a insérer toutes mes données (mis a part le matricule) car le fichier qui permet d'insérer mes données ne contient pas le matricule (il posséde juste le numSS).
Voici mon code :
Le probléme est le suivant: l'incrémentation du IDNumSS est toujours sur le premier enregistrement. Ce que j'essaye de faire (Dumoins je cherche, mais ne voit pas comment faire) est une boucle permettant de trouver le bon numSS afin de pouvoir récupérer le matricule de la personne et ainsi l'insérer dans ma table Employe.
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 With rstRapprochment IDNumSS = .Fields("NumSSR").Value IDMatricule = .Fields("matriculeR").Value End With With rstEmploye .AddNew .Fields("numSS").Value = Mid(vLigne, 39, 13) .Fields("nom").Value = Mid(vLigne, 62, 25) If .Fields("numSS").Value = IDNumSS Then .Fields("matricule").Value = IDMatricule Else MsgBox "aucune correspondance" End If .Update IDEmploye = .Fields("idEmploye").Value totalBrutMsa = 0 End With
Si vous avez une petite idée, je suis preneur. Cordialement.
PS: j'ai oublié de préciser que le code était dans une boucle While not EOF. pour parcourir ligne par ligne le fichier txt
Partager