Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: VB6 a usubięte rekordy w zbiorach .dbf
anonim




Typ: Nie zarejestrowany
VB6 a usubięte rekordy w zbiorach .dbf

Piszę swój pierwszy program bazodanowy w VB i mam problem.
Czy może ktoś wie jak przy pomocy Recordset-a poruszac się po usunietych rekordach bazy dbf lub ostatecznie jak przywrócić takie rekordy?
Z góry dzieki za pomoc.

25-05-2004 18:21
  
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

Nie wiem czy dobrze rozumiem twoje pytanie ale sprobuje odpowiedziec. Jestes przyzwyczajony chyba do programowania w clipperze. Tam trzeba bylo skasowac rekordy w bazie DBF i one istnialy poki nie zrobilo sie funkcji ZAP (o ile pamietam) . W VB lączysz sie z baza danych poprzez ADO lub DAO. Nie wiem jak w DAO(nie uzywam tego) ale w ADO jak usunie się rekord to nie ma juz do niego dostepu bo jest od razu usuwany(chyba ze mam jakies braki w wiedzy na ten temat)

Jesli chcesz skasowac rekordy a w polowie operacji kasowania(np z powodu bledu) chcialbys je przywrocic to chyba nie ma innego sposobu jak tranzakcje.

tu masz taki przykladowy kod
''najpierw dodaj referencje Microsoft data access components  - ja uzywam wersji 2.5 ale mozesz inna

Dim Connect as ADODB.Connection
Dim Pat as String
Set Connect = New ADODB.Connection

Pat="c:\bazadbf\"  '' katalog baz DBF

Connect.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Pliki programu dBase;DBQ=" & Pat & ";DefaultDir=" & Pat &";DriverId=533;MaxBufferSize=4048;PageTimeout=10;"

Connect.Open

'Zanim zaczniesz kasowac rekordy zaczynasz tanzakcje
Connect.BeginTrans
''teraz kasujesz
connect.execute "DELETE * FROM nazwatabeli WHERE premier='Miller'"
connect.execute "DELETE * FROM nazwainnejtabeli"

IF blad THEN
  Connect.RollbackTrans
ELSE
  Connect.CommitTrans
ENDIF

26-05-2004 10:47
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
anonim




Typ: Nie zarejestrowany

Tak masz rację przyzwyczaiłem się do Clippera. Widze że kiepsko opsałem swój problem i mnie nie zrozumiałś, chodzi mi o możliwosć odzyskania skasowanych rekordów w bazach dbf.
Mimo to dzieki za kawałek podanego kodu, wykorzystam go w tym programie.

Nadal proszę o pomoc

26-05-2004 15:25
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1