[es] - Kako da ispraznim tabele, a da iste ostanu na disku?

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Kako da ispraznim tabele, a da iste ostanu na disku?

^{26.02.2005. u 16:39 - pre 233 meseci}

Pozdrav bratiji
Hteo bih da jednim klikom ispraznim 4 tabele, a da se fizicki ne obrisu sa diska, vec da mogu da primaju nove podatke (za sledeci period-godinu).

U SQL-u ima nesto kao drop table, ali kako to da primenim u Accessu?

Unapred zahvalan

Boban (otac šestoro dece).

Odgovor na temu

Mihailo
Mihailo Đorić

Član broj: 1016
Poruke: 2875
*.air.tehnicom.net.

+1 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{26.02.2005. u 17:43 - pre 233 meseci}

Pa, Access 2000 valjda podržava SQL upite, probaj

DELETE * FROM ime_tabele

DROP koristiš kada hoćeš da obrišeš celu tabelu, znači i strukturu i podatke, a ti hoćeš samo da je isprazniš.

Odgovor na temu

Goran Rakić
Beograd

Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com

+125 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{26.02.2005. u 17:49 - pre 233 meseci}

Ako nema, sigurno ima desni klik na naziv tabele pa empty :)

http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.bitstream.orcon.net.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{26.02.2005. u 22:56 - pre 233 meseci}

DELETE * FROM tbl... radi posao.
Inace DROP TABLE brise i samu tabelu...

All beer is good. Some beer is better.

Odgovor na temu

johnnie
somewhere in Serbia

Član broj: 40975
Poruke: 299
*.ptt.yu.

+4 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{26.02.2005. u 23:14 - pre 233 meseci}

Ma da verovatno empty, probaj da nema neki ZAP kao za dbf...

Still going strong...

Odgovor na temu

Gomatami
Goran Markovic

Član broj: 33496
Poruke: 163

+2 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{27.02.2005. u 09:58 - pre 233 meseci}

JA sam takav problem resio jednostavno: napravis po jedan delete query za svaku tabelu koju koristis, jedan makro koji ih aktivira odjednom i dugmence na formi koje poziva makro.

Peske, ali radi.

I tako ...

Odgovor na temu

miomirm
Miomir Mihajlovic
Kumanovo

Član broj: 43765
Poruke: 139
217.16.77.*

+1 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{27.02.2005. u 10:29 - pre 233 meseci}

Pogledaj :

http://www.praktikum.co.yu/office/access/acc_049.htm

Pozdrav

Prizemlje kuce 85m2.
Izolacija 5-10cm stiropor,PVC stolarija.
Panasonic: cs/cu-re12qke
Gree Lomo x2 klime : gwh12qc

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba

+2 Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{27.02.2005. u 13:53 - pre 233 meseci}

Ako hoces samo da ispraznis evo:

Function Isprazni(ImeTabele As String)
Dim Db As Database
Dim Rs As Recordset

Set Db = CurrentDb()

Set Rs = Db.OpenRecordset(ImeTabele)
Do While Not Rs.EOF
Rs.Edit
Rs.Delete
Rs.MoveNext
Loop
Set Db = Nothing
Rs.Close
End Function

Ispod neke kontrole stavit ces na on click ovako
call izbrisi("Ime tabele")
call("me druge tabela")

zxz

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{27.02.2005. u 20:57 - pre 233 meseci}

Tako je Izonic, hvala!

Ja sam i hteo da izbrisem samo neke tabele, a neke ne. Recimo, tabela "Clanovi" mi treba i dalje, ali mi ne trebaju podaci u tabeli "prihodi", tj. ne za proslu godinu.

Boban (otac šestoro dece).

Odgovor na temu

Simke
Marko Simic
Sandfield Associates (Solution
Developer)
Novi Zeland

Član broj: 1158
Poruke: 751
*.bitstream.orcon.net.nz.

ICQ: 71578686
Sajt: www.sandfield.co.nz

Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{28.02.2005. u 05:11 - pre 233 meseci}

Kao sto vec rekoh, DELETE * je sasvim dovoljno... izbegavaj koriscenje recordsets u ove svrhe, jer je skroz ne-efikasno.

All beer is good. Some beer is better.

Odgovor na temu

bobiris
Slobodan Blagojevic
Čuvanje dece (četvoro malih) kod
kuće.
Sabac

Član broj: 2956
Poruke: 181
213.244.208.*

Profil

Re: Kako da ispraznim tabele, a da iste ostanu na disku?

^{28.02.2005. u 12:48 - pre 233 meseci}

OK Simke, evo ovako sam uradio:

Code:

Private Sub Slika_DblClick(Cancel As Integer)

DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from tblKrsteni"
DoCmd.RunSQL "delete * from tblUmrli"
DoCmd.RunSQL "delete * from tblVencani"
DoCmd.SetWarnings True

End Sub

Ovo sam stavio na sliku hrama na formi "Main Switchboard" i to radi.
Sada bih hteo upozorenje pre brisanja sa izborom "OK" ili "Cancel", i shodno tome poruku na kraju, znaci "Podaci izbrisani" ili "Brisanje otkazano".

Slicnu stvar sam napravio za brisanje rekorda (pomocu "Beforde Del_Confirm" i "After Del_Confirm"):

Code:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, _
        Response As Integer)
    ' Suppress default Delete Confirm dialog box.
    Response = acDataErrContinue
    ' Display custom dialog box.
    If MsgBox("BRIŠETE DATUM I SVE PRIHODE TOGA DANA?", vbOKCancel) = vbCancel Then
        Cancel = True
    End If
End Sub

Private Sub Form_AfterDelConfirm(Status As Integer)
    Select Case Status
        Case acDeleteOK
            MsgBox "DATUM I PRIHODI IZBRISANI"
        Case acDeleteCancel
            MsgBox "OTKAZALI STE BRISANJE."
        Case acDeleteUserCancel
            MsgBox "OTKAZALI STE BRISANJE"
    End Select
End Sub

i to radi, ali nikako da to primenim i u ovom slucaju. Valjda se ovaj "DblClick" odnosi na SQL naredbu, a ne na brisanje rekorda, pa zato ne moze.

Pitanje: Kako MOZE?

Boban (otac šestoro dece).

Odgovor na temu