Discussion :

[colorid]

Bonjour à tous,

Voici le code utilisé :

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
function TBDM.WriteRIPQuantiOk( const Nbr: Integer; var Rec: TSegColorVec ):boolean;
var
  k: Integer;
begin
  result:= Nbr=Length(Rec);
  if result then for k := 0 to Nbr - 1 do
  begin
    ADOTable.Close;
    ADOTable.ConnectionString:= Format(_ConnString,[_UserName,_PassWord,CurDBPath]);
    ADOTable.TableName:= 'SEGCOLOR';
    ADOTable.Open;
    ADOTable.Edit; //set to edit mode for insertion of data  //begin insert
    ADOTable.Insert;  //set values
    ADOTable.FieldByName('RipNo').Value := Rec[k].SegNo;
    ADOTable.FieldByName('SegNum').Value := Rec[k].RipNo;
    ADOTable.FieldByName('Owner').Value := Rec[k].Owner;
    ADOTable.FieldByName('RFloat').Value := Rec[k].RGB[_R];
    ADOTable.FieldByName('GFloat').Value := Rec[k].RGB[_G];
    ADOTable.FieldByName('BFloat').Value := Rec[k].RGB[_B];
    ADOTable.FieldByName('L').Value := Rec[k].Lab[_L];
    ADOTable.FieldByName('a').Value := Rec[k].Lab[_Astar];
    ADOTable.FieldByName('b').Value := Rec[k].Lab[_Bstar];
    ADOTable.Post;
  end;
end;

arrivé à la dernière ligne (fonction post) j'obtiens le message Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table RIP"
La table RIP existe dans la BD mais elle est bien entendu différente de la table SEGCOLOR.
Quelqu'un peut-il m'expliquer la cause de l'erreur et donc comment y remédier ?

[Papy214]

Problème de clé étrangère à mon avis .
Il manque un enregistrement correspondant dans l'autre table.

[colorid]

Merci

Effectivement l'un des champs, le champ RipNo, concerne une clé secondaire qui se réfère à un enregistrement dans la table RIP. Ledit enregistrement dans la table RIP n'a pas été effectué.

Bonne fin de journée. Je coche résolu.