Discussion :

[colorid]

Bonjour,

Dans une table ACCESS, sur un champ quelconque (colonne), c'est à dire ni clé primaire ni clé secondaire, comment au moment de insert interdire un doublon sur ce champ ?

Exemple :
champ 1 : RecNo AUTOINCREMENT : clé primaire autoincrémentée
champ 2 : OwnerNo INTEGER : Clé étrangère
champ 3 : Name CHAR(32) : ce champ ne doit pas avoir de doublon

Exemple en code

Code :

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

1
2
3
4
5
6
7
8
9
  ADOTableSeg.Close;
  ADOTable.ConnectionString:= Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOTable.TableName:= 'MATABLE';
  ADOTable.Open;
  ADOTable.Last;
  ADOTable.Edit; 
  ADOTable.Insert; // La clé primaire est autoincrémentée
  ADOTable.FieldByName('OWNER_NO').AsInteger := OwnerNo;// clé étrangère
  ADOTableSeg.FieldByName('NAME').AsString := aName;// Ce champ ne doit pas supporter des doublons

Le champ concerné est à la ligne 9

Merci pour un éventuel exemple de complément du code

Bonne journée à tous

[BuzzLeclaire]

Bonjour,

Dans une table ACCESS, sur un champ quelconque (colonne), c'est à dire ni clé primaire ni clé secondaire, comment au moment de insert interdire un doublon sur ce champ ?

Exemple :
champ 1 : RecNo AUTOINCREMENT : clé primaire autoincrémentée
champ 2 : OwnerNo INTEGER : Clé étrangère
champ 3 : Name CHAR(32) : ce champ ne doit pas avoir de doublon

Exemple en code

Code :

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

1
2
3
4
5
6
7
8
9
  ADOTableSeg.Close;
  ADOTable.ConnectionString:= Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOTable.TableName:= 'MATABLE';
  ADOTable.Open;
  ADOTable.Last;
  ADOTable.Edit; 
  ADOTable.Insert; // La clé primaire est autoincrémentée
  ADOTable.FieldByName('OWNER_NO').AsInteger := OwnerNo;// clé étrangère
  ADOTableSeg.FieldByName('NAME').AsString := aName;// Ce champ ne doit pas supporter des doublons

Le champ concerné est à la ligne 9

Merci pour un éventuel exemple de complément du code

Bonne journée à tous

Bonjour colorid,

Va dans Access, ouvre ta table en mode création, va sur ton champs text et dans les paramètres tu as juste à mettre indexé à "oui sans doublon".

A+

[colorid]

Merci

Mais j'ai mal posé ma question

Comment déclarer le champ interdit de doublon ?

Soit lors de la création de la table, voir code de création ci-après
Soit au moment de l'insert d'un nouveau enregistrement. voir 1ére question

Exemple de création de la table avec ADOCommand

Code :

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

1
2
3
4
5
6
7
8
9
  req:= 'CREATE TABLE CONTROL (' +
  ' CONTROL_NO AUTOINCREMENT, ' +
  ' CONTROL_OPERATION_NO INTEGER NOT NULL, ' +
  ' CONSTRAINT FK_Control2Operation FOREIGN KEY (CONTROL_OPERATION_NO) '+
  ' REFERENCES OPERATION(OPERATION_NO) ON UPDATE CASCADE ON DELETE CASCADE, '+
  ' CONTROL_NAME VARCHAR(32) NOT NULL, ' +
// déclaration de la suite des champs
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Que dois-je ajouter à la ligne 6 ?
ou quel type de code genre " 'ALTER TABLE CONTROL" dois-je ajouter ?

Merci d'avance à tous

[Linkin]

avec un index (ou une contrainte) d'unicité?

Code :

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

1
2
 
 CREATE UNIQUE INDEX MonIndex ON MaTable (MonChamp);

[BuzzLeclaire]

Salut

Le paramètre qui permet de placer un champ en "Oui Sans doublon" c'est
UNIQUE

Comme tu as mis le paramètre NOT NULL tu as juste a rajouter derriere UNIQUE.

Bye.

[colorid]

Merci,

Si j'ai bien compris seul la caractérisation UNIQUE du champ suffit, il n'est pas besoin de le déclarer en index

Je coche résolu