Konu: Set delete on
Merhaba
set delete on komutu ardından delete all ile sildiğim kütük içeriğini fiziki olarak program içinde hangi komutla temizlerim
pack komutu program içinde işe yaramıyor.
Teşekkürler
mcemay
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Merhaba
set delete on komutu ardından delete all ile sildiğim kütük içeriğini fiziki olarak program içinde hangi komutla temizlerim
pack komutu program içinde işe yaramıyor.
Teşekkürler
mcemay
exclusive olarak açtığın dosyaları reindex yap,yada tümünü kalıcı olarkak silmek istiyorsan zap komutunu kullan
VERITABANIM="C:\DENEME\DENEME.DBC"
LOCAL laTables[1],i
CLOSE TABLES
FOR i = 1 to ADBOBJECTS(laTables, "Table")
IF !EMPTY(laTables[i])
IF !USED(laTables[i])
USE (laTables[i]) IN 0 EXCL
SELECT (laTables[i])
WAIT WINDOW NOWAIT "Yeniden indeksleniyor:" +VERITABANIM+ lower(ALLTRIM(laTables[i])) + ".DBF"
PACK
REINDEX
ENDIF
ENDIF
ENDFOR
CLOSE TABLES
CLOSE all DATABASES
OPEN DATABASE VERITABANIM
ben aynı mantığı aşağıdaki kodlarla çalıştırıyorum:
CLOS TABL
Xdbf='packlanacak_dosya.dbf'
hFile = FOPEN(Xdbf, 12)
IF (hFile > 0) && kullanılmıyor
FCLOSE(hFile)
USE (Xdbf) EXCL
PACK
USE
ENDI