Discussion :

[mechatikhaled]

bonjour
j ai 1 Table DBf j ai lance requtte de supprission depuis application delphi

Code :

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

1
2
 
delete from Table1 where nom=Condition

mais les données considere comme supprimer logiqument marked delete mais physiquement ils sont exsistes

[ALWEBER]

C'est une caractéristique du format DBF (DBase File)
if faut utiliser la fonction DbiPackTables

[mechatikhaled]

C'est une caractéristique du format DBF (DBase File)
if faut utiliser la fonction DbiPackTables

merci mon ami mais Dalphi me donne identificateur non declaré comment je peu faire

[ALWEBER]

Voici l'exemple que proposait Borland

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
 
procedure PackTable(Table: TTable);
var
  Props: CURProps;
  hDb: hDBIDb;
  TableDesc: CRTblDesc;
 
begin
  if Table.Active = False then
    raise EDatabaseError.Create('Table must be opened to pack');
  if Table.Exclusive = False then
    raise EDatabaseError.Create('Table must be opened exclusively to pack');
  Check(DbiGetCursorProps(Table.Handle, Props));
 
  if Props.szTableType = szDBASE then
      Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, TRUE))
  Table.Open;
end;