Discussion :

[etienne.bo]

Bonjour

je suis débutant

Qui peut me dire comment faire pour recrée un index mdx d'une base de donnée existante , je m'explique, si par exemple dans mon cas ma base de donnée est commandeclient.dbf et que je veut recréer les index sur le champ refcli, refart, datex ,numf comment dois je procéder , et ceci suite à mon index qui a été fichut, car j'ai déja regarder dans l'aide de delphi mais pour moi ce n'est pas très explicatif ou du moins compliquer à comprendre .

normalement je crée mes fichier index par le biai du module de base de donnée de délphi4 mais j'aimerais pouvoir le faire intéractifement.

Merci d'avance de vos réponses.

[Cl@udius]

Salut,

Tu peux utiliser la fonction du BDE API DbiRegenIndexes. La table doit être ouverte en mode exclusif.
La fonction Check revoie un message d'erreur en cas d'echec.

Code :

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

1
2
3
4
5
6
 
uses ..., DBTables, BDE;
 
Table1.Exclusive := True;
Table1.Open;
Check(DbiRegenIndexes(Table1.Handle));

Tu peux voir aussi du côté de DBIPackTable qui fait un pack de la table et sur option recréé les index.
Tu peux consulter ce thread où tu trouveras un exemple:
http://www.developpez.net/forums/sho...d.php?t=142004
Salut, @+

[zarbouine]

si tu connais les clés d'index, le mieux c encore de tout recréer

Virer le mdx existant puis

table1.addindex('CHAMP1');
table1.addindex('CHAMP2');
et zou

[etienne.bo]

justement avec le compactage cela ne marche pas , c'est pour cela que je voudrais dans un premier temps effacer le fichier mdx et ensuite le recréer mais sans passer par le module de base de donnée de delphi 4.

Salut,

Tu peux utiliser la fonction du BDE API DbiRegenIndexes. La table doit être ouverte en mode exclusif.
La fonction Check revoie un message d'erreur en cas d'echec.

Code :

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

1
2
3
4
5
6
 
uses ..., DBTables, BDE;
 
Table1.Exclusive := True;
Table1.Open;
Check(DbiRegenIndexes(Table1.Handle));

Tu peux voir aussi du côté de DBIPackTable qui fait un pack de la table et sur option recréé les index.
Tu peux consulter ce thread où tu trouveras un exemple:
http://www.developpez.net/forums/sho...d.php?t=142004
Salut, @+

[etienne.bo]

j'ai tenté ton exemple mais ca ne marche pas , peut-tu un peut plus m'expliquer en détaille de quel manière je doit proceder , je te remercie d'avance.

si tu connais les clés d'index, le mieux c encore de tout recréer

Virer le mdx existant puis

table1.addindex('CHAMP1');
table1.addindex('CHAMP2');
et zou

[zarbouine]

procedure AddIndex(const Name, Fields: String; Options: TIndexOptions, const DescFields: String='');

par exemple :
table1.addindex('PARNOM','NOM',[]);
créé un index dont le tag est 'PARNOM' sur le champ 'NOM' de la table.
A noter que si l'index est fait sur une expression dbase, il faut le préciser:
Table1.addindex('NOMPRENOM','NOM+PRENOM',[ixexpression]);

pour plus de précisions, regarde dans l'aide delphi à ttable.addindex

A+