Search  
Monday, December 09, 2019 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  Visual FoxPro  Baze de date, tabele, view-uri si indecsi  RECUPERARE DATE...
 RECUPERARE DATE
 
 10/11/2012 6:11:54 PM
User is offlineSCHRECK
478 posts
2nd


RECUPERARE DATE
 (N/A)
AM UN FISIER DBF CORUPT.
POATE SA MA AJUTE CINEVA SA-L RECUPEREZ ?
AM CAUTAT PE NET PROGRAME DE RECUPERARE,AM GASIT MULTE, SE VAD DATELE DAR TOATE SUNT DEMO
DIN LIPSA DE TIMP, TREBUIE PE MAINE SI NU CRED CA VOI REUSI
MULTUMESC ANTICIPAT
tabel.zip 
 10/11/2012 6:35:12 PM
User is offlinestefan_JKSL
90 posts


Re: RECUPERARE DATE
 (N/A)
eu recuperez datele deschizand tabelul cu open office sau excel si pe urma-l salvez ca dbf. functioneaza. gasesti in atasament tabelul.
tabel_2012_10_11_17_33_25.rar 
 10/11/2012 6:42:46 PM
User is offlineSCHRECK
478 posts
2nd


Re: RECUPERARE DATE
 (N/A)
MULTUMESC MULT. ESTE O IDEE BUNA
 10/11/2012 6:44:36 PM
User is offlineiojibrezan
45 posts


Re: RECUPERARE DATE
 (N/A)
ia de undeva dbase si deschidel cu el
daca nu gasesti da-mi o adresa de mail sa ti-l trimit eu
 10/11/2012 7:51:07 PM
User is offlinerediac
27 posts


Re: RECUPERARE DATE
 (Romania) Modified By rediac  on 10/11/2012 6:54:12 PM)
Poti sa il recuperezi (daca e header-ul corupt) "on fly" astfel:
PROCEDURE openfile
ON ERROR do repar
USE fisier
ON ERROR
*
RETURN

PROCEDURE repar
&& reparare baze de date
Close Databases
=repairheader('fisier.dbf')
Messagebox('Sunt erori in date...in acest moment sunt reparate...')

*    DO FORM salv_ref
Set tablevalidate To 0        && nu mai validez ...poate nu a reusit repararea...
*Do openfile
*        QUIT
*ON ERROR
Return


Function repairheader
Lparameters tcdbf
Local handle, lnfilesize, lnreccount, lnheadersize, lnrecordsize, ;
    lncalculatedreccount, llhasmemo
handle=Fopen(tcdbf,12) && Opened readwrite
lnfilesize = Fseek(handle,0,2) && Get file size
* Read header info
lnreccount   = readbytes(handle, 4,4)
lnheadersize = readbytes(handle, 8,2)
lnrecordsize = readbytes(handle,10,2)

lncalculatedreccount = Floor((lnfilesize-lnheadersize)/lnrecordsize)
If lncalculatedreccount # lnreccount && If calculated # recorded fix it
    writebytes(handle, 4,4,lncalculatedreccount)
Endif
=Fclose(handle)

Function writebytes
Lparameters tnhandle, tnpos, tnsize, tnnumber, tllr
Local lcstring, lnlowdword, lnhighdword,ix
lcstring=''
If tllr
    For ix=tnsize-1 To 0 Step -1
        lcstring=lcstring+Chr(tnnumber/256^ix%256)
    Endfor
Else
    For ix=0 To tnsize-1
        lcstring=lcstring+Chr(tnnumber/256^ix%256)
    Endfor
Endif
=Fseek(tnhandle, tnpos,0) && Go to Pos
Return Fwrite(tnhandle,lcstring)

Function readbytes
Lparameters tnhandle, tnpos, tnsize, tllr
Local lcstring, lnretvalue,ix
=Fseek(tnhandle, tnpos,0) && Go to Pos
lcstring = Fread(tnhandle, tnsize) && Read tnSize bytes
lnretvalue = 0
For ix=0 To tnsize-1  && Convert to a number
    lnretvalue = lnretvalue + Asc(Substr(lcstring,ix+1)) * ;
        IIF(tllr,256^(tnsize-1-ix),256^ix)
Endfor
Return Int(lnretvalue)

 10/11/2012 8:52:00 PM
User is offlinemmarius28
327 posts
3rd


Re: RECUPERARE DATE
 (N/A)
E foarte draguta ideea cu Excel. Nu am stiut de lucrul asta.

Un program pe care il mai folosesc este CM Table Repair: http://www.cmstory.com/index.php?module=Pages&type=user&func=display&pageid=5&lang=en
  Visual FoxPro  Baze de date, tabele, view-uri si indecsi  RECUPERARE DATE...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2013 Profox   Terms Of Use  Privacy Statement