Discussion :

[azouzmenai24]

salam ;

j'ai une application avec delphi 7, cette dernière interroge une table .dbf, lorsqu'on parcourt la table pour un delete d'un enregistrement a travers l'instruction : table.delete, cet enregistrement va disparaitre sur l'application , mais reste figure dans la table et positionné comme supprimé.
comment faire pour supprimer cet enregistrement carrément de la table.

Merci beaucoup pour tous qui nous aident.

[Cl@udius]

Bonjour

Voir cette discussion et la réponse que j'avais apporté à l'époque : http://www.developpez.net/forums/d14...ts/#post915597

@+

[azouzmenai24]

merci beaucoup Cl@udius de votre réponse,
j'ai essayé le code :

Code :

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

1
2
3
4
5
6
7
8
with Table1 do begin
    Close;
    Exclusive:= True;
    Open;
  // DBTables.Check renvoie un message d'erreur dans la cas
  // où BDE.DBIPackTable renvoie une valeur > à 0.
    Check(DBIPackTable(dbHandle, Handle, nil, nil, True));
  end;

ca marche bien, mais dans le code

Code :

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

1
2
3
4
5
6
7
8
9
with Form1 do
  begin
    Table.Close;
    Table.Exclusive:= True;
    Table.Open;
    l_dbi:= DbiPackTable(Table.dbHandle, Table.Handle, nil, nil, True);
    if l_dbi<> 0
      then affiche('pb pack '+ f_erreur_dbi(l_dbi));
  end;

il ma affiche que les mots affiche et f_erreur_dbi ne sont pas reconnus


merci de votre patience et collaborations.

[tourlourou]

affiche est sûrement une procédure personnelle genre ShowMessage, et f_erreur_dbi pourrait être un tableau des codes d'erreurs (cf. message de Cl@udius)

[azouzmenai24]

merci tourlourou de cette explication .