Discussion :

[colorid]

Bonjour,

J'ai créé une procédure stockée sur une table pour ajouter un enregistrement dont voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  //== Procédure stockée pour ecrire un Opérateur
  req:= 'CREATE PROC procOperatorAddItem(OperNo COUNTER,OperName VARCHAR(32), '+
  'UserNo INTEGER, OperPass INTEGER, OPerRights INTEGER )'+
  'AS INSERT INTO OPERATOR (OPERATOR_NO, OPERATOR_NAME, OPERATOR_USER_NO, '+
  'OPERATOR_PASS, OPERATOR_RIGHTS ) '+
  'Values (OperNo, OperName,UserNo,OperPass,OperRights);';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Je souhaite l'utiliser avec le code suivant :

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
36
37
38
39
procedure TScreenForm.CreateOperator( const OperName: String;
                                    const UserNo,OperPass,OPerRights: Integer);
var
  k,OperNo: integer;
  Params: TCollection;
begin
  OperNo:= Succ(CountFromTable('OPERATOR'));
  ADOStoredProc1.ConnectionString:= Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOStoredProc1.ProcedureName:= 'procOperatorAddItem';
  ADOStoredProc1.Parameters.Clear;
  for k:=0 to 4 do
  begin
    ADOStoredProc1.Parameters.AddParameter;
    ADOStoredProc1.Parameters[k].DataType:= ftString;
    ADOStoredProc1.Parameters[k].Direction:= pdInput;
    case k of
      0: begin
        ADOStoredProc1.Parameters[k].Name:= 'OperNo';
        ADOStoredProc1.Parameters[k].Value:= OperNo;
      end;
      1: begin
        ADOStoredProc1.Parameters[k].Name:= 'OperName';
        ADOStoredProc1.Parameters[k].Value:= OperName;
      end;
      2: begin
        ADOStoredProc1.Parameters[k].Name:= 'UserNo';
        ADOStoredProc1.Parameters[k].Value:= UserNo;
      end;
      3: begin
        ADOStoredProc1.Parameters[k].Name:= 'OperPass';
        ADOStoredProc1.Parameters[k].Value:= OperPass;
      end;
      4: begin
        ADOStoredProc1.Parameters[k].Name:= 'OperRights';
        ADOStoredProc1.Parameters[k].Value:= OperRights;
      end;
    end;
  end;
  ADOStoredProc1.ExecProc;

Tout fonctionne jusqu'à ExecProc et j'obtiens le message "EoleException Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table DBUSER"

Comment procéder à la mise à jour de la relation correspondante à l'index FK_...

Merci d'avoir pris le temps de lire et de comprendre la question

[dehorter olivier]

bonjour

il ne s'agit pas d'un "probleme" dans la mise a jour des cles etrangeres, mais comme indique dans le message d'erreur

Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table DBUSER"

Il manque la reference a la cle etrangere dans la table principale "DBUSER"

en d'autres termes, vous essayez d'enregistrer dans la table "operateur" une ligne dont une des colonnes fait reference dans la table DBUSER a quelqu'un qui n'existe pas !

[colorid]

Bonjour,

Après recherche sur le Net j'ai trouvé ! Il suffit lors de la déclaration de la clé secondaire d'ajouter "ON UPDATE CASCADE ON DELETE CASCADE". Je l'ai fait et l'addition d'un enregistrement fonctionne sans problème.

Voici le code de création de la table avec la modification sur la déclaration de la clé secondaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  //*************** table Operator
  req:= 'CREATE TABLE OPERATOR (' +
  ' OPERATOR_NO COUNTER, ' +
  ' PRIMARY KEY (OPERATOR_NO), '+
  ' OPERATOR_USER_NO INTEGER NOT NULL, ' +
  ' CONSTRAINT FK_Operator2User FOREIGN KEY (OPERATOR_USER_NO) '+
  ' REFERENCES DBUSER(USER_NO) ON UPDATE CASCADE ON DELETE CASCADE, '+
  ' OPERATOR_NAME VARCHAR(32) NOT NULL, ' +
  ' OPERATOR_PASS INTEGER NOT NULL, ' +
  ' OPERATOR_RIGHTS INTEGER NOT NULL, ' +
  ' OPERATOR_USED BIT DEFAULT -1 '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Merci tout de même d'avoir pris le temps de lire, de comprendre, et de répondre à ma question.

Je coche résolu