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
Re: Set delete on
exclusive olarak açtığın dosyaları reindex yap,yada tümünü kalıcı olarkak silmek istiyorsan zap komutunu kullan
En büyük sermaye nakit,nakit sermaye vakittir...
Re: Set delete on
Visual Fox Pro
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
En büyük sermaye nakit,nakit sermaye vakittir...
- konuka
- Uzman Üye
- Offline
Re: Set delete on
ben aynı mantığı aşağıdaki kodlarla çalıştırıyorum:
Visual Fox Pro
CLOS TABL
Xdbf='packlanacak_dosya.dbf'
hFile = FOPEN(Xdbf, 12)
IF (hFile > 0) && kullanılmıyor
FCLOSE(hFile)
USE (Xdbf) EXCL
PACK
USE
ENDI
VFP9 SP2