Comment enregistrer une image dans Access

**colorid** · 30/07/2011, 17h50

Bonjour,

J'enregistre une table qui possède un champ image déclaré lors de la création de la table NOMINAL_IMAGE IMAGE NOT NULL,

Voici le code d'enregistrement dans la table

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
29
30
31
32
33
34
35
  if Rec.MetamerismOk then Mok:= -1 else Mok:=1;
  if Rec.CategoryOk then Cok:= -1 else Cok:= 1;
  qry.sql.Clear;
  qry.sql.text:='INSERT INTO NOMINAL('+
                'NOMINAL_OPERATION_NO,NOMINAL_SEGMENTATION_NO,'+
                'NOMINAL_NAME,NOMINAL_DELTA_E_TYPE,NOMINAL_DELTA_E_MAX,'+
                'NOMINAL_DELTA_E_AVERAGE,NOMINAL_DELTA_PERCENT_MAX,'+
                'NOMINAL_DELTA_PERCENT_MIN,NOMINAL_CONTROL_TYPE,'+
                'NOMINAL_NUMBER_CALCULED,NOMINAL_NUMBER_USED,'+
                'NOMINAL_NUMBER_DELETED,NOMINAL_NUMBER_ADDED,'+
                'NOMINAL_NUMBER_CONTROL,NOMINAL_FIRST_ILLUMINANT,'+
                'NOMINAL_SECOND_ILLUMINANT,NOMINAL_METAMERISM,'+
                'NOMINAL_CATEGORY_OK'+
                ')'+
                'VALUES('+
                QuotedStr(IntToStr(OperationNo))+','+
                QuotedStr(IntToStr(Rec.SegCfg_No))+','+
                QuotedStr(Rec.Name)+','+
                QuotedStr(IntToStr(Rec.DeltaE_Type))+','+
                QuotedStr(FloatToStr(Rec.DeltaE_Max))+','+
                QuotedStr(FloatToStr(Rec.DeltaE_Moyen))+','+
                QuotedStr(IntToStr(Rec.Percent_Max))+','+
                QuotedStr(IntToStr(Rec.Percent_Mini))+','+
                QuotedStr(IntToStr(Rec.Control_Type))+','+
                QuotedStr(IntToStr(Rec.NbrCalcSeg))+','+
                QuotedStr(IntToStr(Rec.NbrUsedSeg))+','+
                QuotedStr(IntToStr(Rec.NbrDeleted))+','+
                QuotedStr(IntToStr(Rec.NbrAdded))+','+
                QuotedStr(IntToStr(Rec.NbrControl))+','+
                QuotedStr(IntToStr(Rec.Illuminant))+','+
                QuotedStr(IntToStr(Rec.Illuminant2))+','+
                QuotedStr(IntToStr(Mok))+','+
                QuotedStr(IntToStr(Cok))+')';
  qry.ExecSQL;
  ADOConnection1.Close;