Discussion :

[colombe]

bonjour a tous
j'ai une question a poser
voici un code

Code :

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

1
2
table1.Delete;
l_dbi:= BDE.DbiPackTable(table1.dbHandle, table1.Handle, nil, nil, True);

je veux savoir si DbiPackTable supprime l'enregistrement marque pour suppression apres un delete ou bien la table doit etre vide pour pouvoir supprimer l'enregistrement phisiquement

DbiPackTable ne me supprime pas les enregistrement physiquement ou peut etre je ne sais pas comment l'utiliser exactement.
merci.

[Cl@udius]

Salut Colombe,

Jette un coup d'oeil à ce thread, cela devrait t'aider !
http://www.developpez.net/forums/sho...d.php?t=142004

@+

[colombe]

j'ai consulter mais je n'arrive toujour pas a supprimer mon enregistrement physiquement.
aidez moi SVP.
merci

[colombe]

avec se code la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
var l_dbi:integer;
begin
table1.Delete;
table1.Active:=false;
table1.Exclusive:=true;
//table1.Open;
//l_dbi:= BDE.DbiPackTable(table1.dbHandle, table1.Handle, nil, szDBASE, True);
l_dbi:= DbiPackTable(Table1.dbHandle, Table1.Handle, nil, nil, True);
if l_dbi<> 0 then
begin
showmessage('pb pack '+ inttostr(l_dbi));
end;

j'ai le message suivant qui s'affiche
pb pack 9990 donc mon l_dbi=9990

[Cl@udius]

Re,

Essaye plutôt ce code, tu auras un message d'erreur plus explicite qu'un n° d'erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  with Table1 do begin
    Delete;
    Close;
    Exclusive := True;
    Open;
    Check(DBIPackTable(dbHandle, Handle, nil, nil, True));
  end;
end;

[EDIT]
La valeur 9990 correspond à la constante DBIERR_INVALIDHNDL (The specified database handle or cursor handle is invalid or NULL
)
Ce qui parait logique puisque, en regardant ton code, tu ne réouvre pas ta table avant de faire un Pack.

Code :

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

1
2
 
  // Table1.Open

[/EDIT]
@+

[colombe]

si je met table1.open
message d'erreur table1 occupée.
c'est pour je ne l'ai pas mis...

Apres execution du 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
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'c:\test\tables';
table1.TableName := 'fig11.dbf';
table1.TableType := ttDBase ;
dbgrid1.DataSource:=datasource1;
table1.Active := true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var l_dbi:integer;
begin
table1.Delete;
table1.Active:=false;
table1.Exclusive:=true;
table1.Open;
Check(DBIPackTable(table1.dbHandle,table1.Handle, nil, nil, True));
BDE.DbiRegenIndexes (table1.Handle);
end;

je n'arrive plus a acceder a ma table index endomager Fig.MDX
comment faire?
merci

[Cl@udius]

Salut,

si je met table1.open
message d'erreur table1 occupée.
c'est pour je ne l'ai pas mis...

Cela siginifie que la table ne peut-être ouverte en mode exclusif, car déjà ouverte ailleurs. Vérifies donc si c'est bien le cas (dans une autre form par exemple).

Code :

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

1
2
 
BDE.DbiRegenIndexes (table1.Handle);

Cette dernière ligne de code est inutile car la reconstruction des index de la table a déjà été demandée lors du Pack (dernier paramètre à True).

@+

[colombe]

alors pourquoi se message

impossible d'acceder a la table index endomage fig.MDX

merci

[Cl@udius]

alors pourquoi se message

impossible d'acceder a la table index endomage fig.MDX

merci

Ce message intervient-il sur le PackTable ou sur le RegenIndexes ?

[colombe]

sur le packtable

[Cl@udius]

Visiblement tu es face à un index corrompu.
Reconstruit les index manuellement (quitte à les supprimer puis les reconstruire), puis relance ton code.

Une dernière remarque:
Je suppose que le Button2 doit être un bouton 'Supprimer l'enregistrement'.
Dans ce cas tu effectues un Pack à chaque fois que tu supprimes un enreg.
Je pense qu'il serait plus judicieux de ne faire uniquement qu'un Delete sur le OnClick et d'effectuer un Pack sur ta table avant de quitter l'application.

@+ Claudius

[colombe]

j'ai une table .dbf avec trois index maitenue (MAT, NOMPRENOM, IND_AGEN)
comment le recreer car l'index fig.mdx existe deja mais il est inaccessible.

[Cl@udius]

j'ai une table .dbf avec trois index maitenue (MAT, NOMPRENOM, IND_AGEN)
comment le recreer car l'index fig.mdx existe deja mais il est inaccessible.

Euh là !! Comme je n'utilise plus les tables DBF depuis des années...
Je ne voies par trop, désolé !

[colombe]

merci de votre aide

[colombe]

comment créer un index exp fig.mdx avec trois champ (MAT, NOMPREN,CODAGENCE)
se sont des index mainetenue(MAT, NOMPREN,IND_AGEN).
merci
avec addindex j'ai
table1.AddIndex('','MAT',[ixPrimary]); mais a la execution je n'ai que fig.mdx avec un seul champ maintenue (MAT).
merci.
aidez moi SVP .