Bonjour,
Dans un fichier, entre les caractères 1 et 28 de chaque ligne, j'ai le nom d'une personne. J'aimerai récupérer cette donnée pour chacune des lignes, et remplacer le nom de la personne par son id_du_patient qui est présent dans la table 'patient' de ma base de donnée. Je précise que l'insertion de tous les autres champs (ztable1jour, ztable1annee, ...) fonctionnent. C'est juste le passage en rouge que je ne sais pas comment faire ... . Peut-être ne peut-on pas faire ' copy (memo1.Lines[i],1,27)' dans une requête SQL?
un exemple de deux lignes du fichier :
max 37051706741 Site B 17/05/1937 Grozy 0ABUT990100491290 0A08:00 16091773280134110 RESIDENCE Site B
Mahieu 37051706741 Site B 17/05/1937 Grozy 0ABUT990100491290 0A08:00 16091873280134110 RESIDENCE Site B
Actuellement, j'ai ceci
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 procedure TFficheEnvoi.BitBtn1Click(Sender: TObject); var i : Integer; z: integer; begin for i := 0 to Memo2.Lines.Count-2 do begin ZTable1.Append; if ZTable1.State in [dsedit , dsinsert] then ZTable1medecin.Text := copy(memo1.Lines[i],91,20); ZTable1jour.Text := copy(memo1.Lines[i],156,2); ZTable1mois.Text := copy(memo1.Lines[i],154,2); ZTable1heure.Text := copy(memo1.Lines[i],144,2); ZTable1annee.Text := '2016'; ZTable1id_du_patient.Text:=('select id_du_patient from patient where nom = copy (memo1.Lines[i],1,27)'); ZTable1.Post; end; end;
et la structure de la table 'patient' est celle-ci:
id_du_patient (clé primaire)
nom
prenom
date_naissance
merci d'a
Partager