Un key violation agacant

Version imprimable

29/02/2008, 00h49
freud

Un key violation agacant

Bonsoir à tous,

J'ai un certain nombre de tables paradox creer dynamiquement et aprés le processus de creation j'ouvre l'une d'entre elle pour inserer le 1er enregistrement et hop ! aprés le post j'obtiens un KEY VIOLATION !!
pourtant la table est bel et bien vide (!!!!?????) . L'ennui c'est que cela ne se produit dans toutes les machines ? Sur ma machine je n'ai pas ce prob, chez certains oui chez d'autres non ......:arf::furieux:

CONFIG :
BDE 5.01
TABLE : PARADOX

Merci de m'eclairer
29/02/2008, 09h25
Rayek

Peux tu nous fournir la structure de la table où cela plante ainsi que le code d'insertion que tu utilises.

Bonjour,

Les controles sont en DBEdit

Code:

1
2
3
4
 
DBNavigator1.BtnClick(nbInsert);
DBNavigator1.BtnClick(nbPost);
DM1.MyDb.ApplyUpdates([DM1.Article]);

La strucrure de la table :

Code:

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
40
41
42
43
44
 
CREATE TABLE article (
   Num_Ligne INTEGER,
   Code_article CHAR(25),
   Code_famille CHAR(8),
   Code_UM INTEGER,
   Nom_Article CHAR(80),
   Pu_achat_HT CURRENCY,
   Pu_Vente_HT CURRENCY,
   Marge NUMBER,
   Stock_Min NUMBER,
   Stock_Max NUMBER,
   code_taxe SMALLINT,
   Type_Calcul SMALLINT,
   STOCK_GERE BOOLEAN,
   Stock_Initial NUMBER,
   Code_Cond INTEGER,
   Reference CHAR(30),
   Stock_actuel NUMBER,
   BLOQUE BOOLEAN,
   QTE_COLIS NUMBER,
   POID_BRUT NUMBER,
   POID_NET NUMBER,
   Code_depot CHAR(8),
   PAMP CURRENCY,
   Raz_stock NUMBER,
   Ecart NUMBER,
   Theorique NUMBER,
   Valid_raz_stock BOOLEAN,
   En_Cde_Four NUMBER,
   En_Cde_Client NUMBER,
   Date_fabrication DATE,
   Date_peremption DATE,
   Nb_Jour_Alerte SMALLINT,
   Date_Alerte DATE,
   Compose BOOLEAN,
   Valider BOOLEAN,
   Element BOOLEAN,
   Taux_Taxe NUMBER,
   Enable_Tarif BOOLEAN,
   Code_Marque INTEGER,
   IsMin BOOLEAN,
   IsMax BOOLEAN,
   Code_Four CHAR(8));

Merci

29/02/2008, 12h26
freud
un oubli....pardon

dans l'evenement OnNewRecord de la table j'insere l'identifiant ainsi :
Code:

1 2 ArticleNum_Ligne.Value:=GetLastItem('select max(num_ligne) as numero from article');
Dans GetLastItem je récupere le dernier numéro et il me le renvoi incrémenter de +1 que j'affecte au champ num_ligne (clé primaire) ca marche pour toutes les tables.
29/02/2008, 12h38
SergioMaster

moi je ne vois pas de définition de la clé dans le CREATE de ta table :mouarf:

PRIMARY KEY (Num_Ligne) ?

à moins qu'il soit créé indépendamment ?

pardon ....non je n'ai pas remarquer ca dans le code que j'ai posté la clé primaire existe bien . Dans le module de donnée et dans la colonne Key l'etoile apparait pour le champ num_ligne d'ailleur à la création en dynamique le code est :
Code:

1 2 3 4 5 6 7 8 9 //index primaire******** Table.IndexDefs.Add('','Num_Ligne',[ixPrimary]); //indexes secondaire Table.IndexDefs.Add('CodeArticle','Code_Article',[ixCaseInsensitive]); Table.IndexDefs.Add('CodeFamille','CODE_FAMILLE',[ixCaseInsensitive]); Table.IndexDefs.Add('NomArticle','NOM_ARTICLE',[ixCaseInsensitive]); Table.CreateTable;

29/02/2008, 21h50
Fxg

Bonsoir

Problème d'index corrompus ?
29/02/2008, 23h33
freud

Bonsoir,

Es-ce que ca peut se corrompre lorsque la table est vide est vide et nouvellement creer ?
01/03/2008, 20h46
Fxg

A priori non, mais pourquoi tu n'utilises pas un champ auto-incrémenté. Il me semble que num_ligne était géré par ton programme ?
Le key violation peut venir du fait que tu affectes une valeur à ce champ qui existe déja.

Bonsoir et merci,

Et non justement, l'affectation est incrementer de + 1 qui donne une valeur qui n'existe pas dans la table. Et j'assure qu'avec cette fonction GetLastItem qui me récupere le dernier numero de la table fonctionne bien avec plus de trente tables que gère mon application ... enfin la méthode que j'utilise. Pour le champ de l'auto increment j'ai eu des problèmes avec et d'ailleurs cette table comme d'autres tables etaient en champs auto.

Mais .....! curieusement un utilisateur m'a rapporter qu'il avait regler ce problème en purgeant la table. Dans l'application une fonction de purge est disponible dans laquelle j'utilise ce code pour purger la table :

Code:

1
2
 
je fais un d'abord un NomDeTable.EmptyTable;

et ensuite j'appelle la procedure suivante :

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 procedure  PackTable(Alias,TableName: String);
  var 
    Props: CURProps; 
    hDb: hDBIDb;
    TableDesc: CRTblDesc;
    Table:TTable;
  begin
 
Table:=TTable.Create(nil);
Table.DatabaseName:=Alias;
Table.SessionName:=DM1.Session1.SessionName;
Table.TableName:=TableName;
Table.Exclusive:=true;
Table.Open;
    // Make sure the table is open exclusively so we can get the db handle... 
     if  not Table.Active  then 
       raise  EDatabaseError.Create('Table must be opened to pack'); 
     if  not Table.Exclusive  then 
 
      raise  EDatabaseError.Create('Table must be opened exclusively to pack');
 
    // Get the table properties to determine table type...
    Check(DbiGetCursorProps(Table.Handle, Props)); 
 
    // If the table is a Paradox table, you must call DbiDoRestructure... 
     if  Props.szTableType = szPARADOX  then begin 
      // Blank out the structure... 
      FillChar(TableDesc, sizeof(TableDesc), 0); 
      // Get the database handle from the table's cursor handle...
 
     Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb))); 
      // Put the table name in the table descriptor... 
      StrPCopy(TableDesc.szTblName, Table.TableName); 
      // Put the table type in the table descriptor... 
      StrPCopy(TableDesc.szTblType, Props.szTableType); 
      // Set the Pack option in the table descriptor to TRUE... 
      TableDesc.bPack := True;
      // Close the table so the restructure can complete...
      Table.Close; 
      // Call DbiDoRestructure... 
 
     Check(DbiDoRestructure(hDb, 1, @TableDesc,  nil ,  nil ,  nil , False)); 
     end 
     else 
      // If the table is a dBASE table, simply call DbiPackTable... 
       if  (Props.szTableType = szDBASE)  then
        Check(DbiPackTable(Table.DBHandle, Table.Handle,  nil , szDBASE, True)) 
       else 
        // Pack only works on PAradox or dBASE; nothing else... 
         raise  EDatabaseError.Create('Table must be either of Paradox or dBASE ' +
 
         'type to pack');
 
   Table.Close;
   FreeAndNil(Table);
end ;

Et alors je me demande si il faut utiliser cette fonction juste aprés la création de la table.... cela semble bête .

01/03/2008, 23h10
Fxg

Est ce que tu n'as pas créé puis supprimmer un enregistrement avant ton erreur ?
01/03/2008, 23h42
freud

le probleme c'est qu'a mon niveau je n'ai pas ce problème cela se passe chez un autre utilisateur. J'ai creer et supprimer le 1er enregistrement et j'ai pas eu ce probleme.
02/03/2008, 17h29
Fxg

Il y a quelques temps j'avais eu ce problème sur une table paradox et j'avais dû supprimer mes index et les récréer. Mais bon...

Sinon j'utilise pdxutil et ausside l'info à cette adresse

http://www.trim.com.au/documents/Fix...mary%20Key.pdf
02/03/2008, 18h24
freud

pour la doc merci beaucoup

Citation:

Il y a quelques temps j'avais eu ce problème sur une table paradox et j'avais dû supprimer mes index et les récréer. Mais bon...

Je crois que le Pack Table fait la même chose c'est pour cela que l'utilisateur avait regler son probleme mais c'est toute de même curieux parce que la table vide mais bon....

Concernant le pdxutil je l'ai déjà merci mais l'inconvénient est que les tables sont cryptés par un passe et le pdxutil lui demandera ce passe.

J'ai omis de préciser dans mon post que les tables etaient cryptées et c'est peut-être a cause de ca ????..... Et cela je le regrette parce que ce cryptage est inutile parce qu'a l'epoque oû j'ai développer l'applic je ne savais pas que les passe de PDX sont lus. Et comme j'exactement 61 tables alors je ne dis pas le nettoyage que je dois faire dans la source pour supprimer les apples aux mot de passes ca me donne la migraine rien que d'y penser

Merci quand même à tous.