FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como empaquetar las tablas Dbase
Hola, tengo tablas en DBase, en la cual elimino registros e inserto, de forma normal, cunado borro registros, estos se borran logicamente pero no fisicamente.
como puedo empaquetar (creo que se llama así) dicha tabla para quitar fisicamente los registros borrados |
#2
|
|||
|
|||
Hola:
Este código está tomado de "La Cara oculta de Delphi 4", pg 583, autor Ian Marteens: procedure PackDBF (const ADatabase, ATable:String); begin With TTable.Create(nil) do TRY DatabaseName := ADatabase; TableName := ATable; Exclusive := True; Open; Check (DbiPackTable(Database.Handle, Handle,'','',TRUE)); FINALLY Free; END; end; la función DbiPackTable necesita que tengas declarada la unit dbiProcs Saludos |
|
|
|