bonjour,
je n'arrive à comprendre ou est l'erreur syntaxique dans ces instructions:
merci de me répondre
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 with DbconnectModule1.ADOCommand1 do begin commandtext:='insert into Rendezvous (NomPatient,Date,Debut,fin,CodeMedecin,CodeExamen)'+ 'values (:pNomPatient,:pDate,:pDebut,:pfin,:pCodeMedecin,:pCodeExamen)'; commandtype:=cmdtext; parameters.ParamByName('pNomPatient').Value:=edit1.Text; parameters.ParamByName('pDate').Value:=FormatDateTime('dd-mm-yyyy',MonthCalendar1.Date); parameters.ParamByName('pDebut').Value:=FormatDateTime('hh:nn',tdebut); parameters.ParamByName('pFin').Value:=FormatDateTime('hh:nn',tfin); parameters.ParamByName('pCodeMedecin').Value:=combobox1.Text; parameters.ParamByName('pCodeExamen').Value:=combobox2.Text; execute; DbconnectModule1.TABRdv.Active:=false; DbconnectModule1.TABRdv.Active:=true; end;
Partager