1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
...
stcolonne:='(DefCont,DefEqui,HeureF,Resultat,Mesures)'
stvaleur: '(" 0 "," 20 "," 10:52:43 "," Non conforme ","
#$D#$A'[Action] NbPointMax'#$D#$A'[Params] [160]'#$D#$A#$D#$A'------------ Ligne programme n° 51----------------'#$D#$A'[Action] TeqIsolMesC'#$D#$A'[Points] Con_A : !CONN_A;!H3-P1_1;!H1H2-P5_1;!B1B2-P6_1'#$D#$A'[Params] Rseuil=300.00 MOhms, Tm=1.00 mS, Ta=10.00 mS, Td=1.00 mS, Idisj=500.00 µA, Tension=50.00 V, Rmax=10.00 Ohms, Rmin=0 Ohms, Tm=0 S, Ta=0 S, Td=0 S, Itest=100.00 mA, Vtest=10.00 V'#$D#$A' ;
With ADOQuery1.SQL do
begin
Clear;
Add('INSERT INTO '+ TableName +' '+stcolonne+' VALUES '+ stvaleur);
ADOQuery1.ExecSQL;
end;
... |
Partager