Discussion :

[colorid]

Bonjour,

Pour créer une table comment indiquer que la clé primaire doit être incrémentée automatiquement ?
Voici mon code :

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
  //***************** Création table DBUser
  req:= 'CREATE TABLE DBUSER (' +
  ' USER_NO AUTONUMBER, ' +
  ' PRIMARY KEY (USER_NO), '+
  ' USER_DBTYPE BYTE DEFAULT '+IntToStr(_BD_LOCALE)+', ' +
  ' USER_PASS INTEGER DEFAULT 1026575137, ' + // "admin" crypté
  ' USER_RIGHTS INTEGER DEFAULT 2147483647, ' + // all rights
  ' USER_CONVERSION BYTE DEFAULT '+IntToStr(_ADOBE_RGB_1998)+', ' +
  ' USER_ILLUMINANT BYTE DEFAULT '+IntToStr(_CIE_Ill_D65)+', ' +
  ' USER_OBSERVER BYTE DEFAULT ' +IntToStr(_CIE_Obs1931)+', ' +
  ' USER_NAME VARCHAR(32) NOT NULL, ' +
  ' USER_USED BIT DEFAULT -1 '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;

Si j'écris 'USER_NO INTEGER NOT NULL ' je n'ai aucun problème mais ce champ ne s'incrémente pas. Comment déclarer USER_NO pour qu'il s'auto incrémente ?

Merci à tous

[ShaiLeTroll]

C'est plus un Question Base de Données que Langage !
Je dirais même que c'est une question ACCESS et non une question DELPHI


Essaye

Code sql :

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

CREATE TABLE DBUSER (USER_NO AUTONUMBER PRIMARY KEY, ...

Code sql :

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

CREATE TABLE DBUSER (USER_NO AUTOINCREMENT PRIMARY KEY, ...

[Cl@udius]

Même remarque que Shai.

Si AUTOINCREMENT ne fonctionne pas, essaye également ceci au cas où:

Code sql :

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

CREATE TABLE DBUSER (USER_NO PRIMARY KEY COUNTER, ...

@+

[colorid]

Les deux propositions génèrent uen erreur de syntaxe dsans la définition du champ.

[Cl@udius]

Essaye comme ceci:

Code sql :

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

CREATE TABLE DBUSER(USER_NO COUNTER, ...);

puis

Code sql :

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

ALTER TABLE DBUSER ADD CONSTRAINT PK_DBUSER PRIMARY KEY (USER_NO);

@+

[colorid]

Comme celà ça marche :

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
  req:= 'CREATE TABLE DBUSER (' +
  ' USER_NO COUNTER, '+         // Clé primaire
  ' USER_DBTYPE BYTE DEFAULT '+IntToStr(_BD_LOCALE)+', ' +
  ' USER_PASS INTEGER DEFAULT 1026575137, ' + // "admin" crypté
  ' USER_RIGHTS INTEGER DEFAULT 2147483647, ' + // all rights
  ' USER_CONVERSION BYTE DEFAULT '+IntToStr(_ADOBE_RGB_1998)+', ' +
  ' USER_ILLUMINANT BYTE DEFAULT '+IntToStr(_CIE_Ill_D65)+', ' +
  ' USER_OBSERVER BYTE DEFAULT ' +IntToStr(_CIE_Obs1931)+', ' +
  ' USER_NAME VARCHAR(32) NOT NULL, ' +
  ' USER_USED BIT DEFAULT -1 '+
  ')';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;
  // ==================== Clé primaire
  req := 'ALTER TABLE DBUSER ADD CONSTRAINT PK_OPERATOR PRIMARY KEY (USER_NO);';
  ADOCommand1.CommandText := req;
  ADOCommand1.Execute;