Saturday, 15 July 2017

Memperbaiki File Dbf Yang Corrupted

{ Vfp Code }
SET SAFETY OFF
SET TABLEVALIDATE TO 0 && No Table Validation performedUse cFileCorruptedName
Copy to cTempFile && Ada bagusnya cTempFile diletakan di GETENV("Temp")+"\cTempFile"Use cTempFile
Copy to cFileCorruptedName
*** Jika ada Index File maka tambahkan command berikut ini, dan jika tidak abaikan.IF FILE("cFileCorruptedName.cdx")
Use cFileCorruptedName Exc
SET INDEX TO cFileCorruptedName.cdx
ReIndex
Endif
CLOSE ALL
SET TABLEVALIDATE TO 3 && Return to Default Level
*** End Statement
USE IN cTempFile
DELETE FILE cTempFile

{ End Code }

Sumber http://fox-mania.blogspot.co.id/2008/05/set-safety-off-set-tablevalidate-to-0.html