Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Vb/Vbnet


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 08.02.2021 14:32
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Audit Trail log - praćenje izmena
Pozdrav svima Smiling

pokuÅ¡avam napraviti praćenje izmena podataka od strane korisnika. Imam formu sa datagridom (tabelaZaglavlje i tabelaDetalji). U tabeli imam korisnikizmenio i datumizmene. Ako neko od korisnika izmeni neki podatak imam zapis o tome ali ne i Å¡ta je izmenio. Hteo bih u posebnoj tabeli da pratim samo izmene ko je i Å¡ta izmenio.
↑  ↓

#2 08.02.2021 15:22
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Audit Trail log - praćenje izmena
Najbolje da napravis tabela koja u koja ces upusati sve uradzene izmene.
Tabela bi sadrzala sledeci polja : izTabela, izPole, izStatus, izVrednost,izID,izKorisnik,izDatum
i jos ostalo sta smatras da ce ti trebati.
Uradis i jedna funkcija koja ces koristiti za upis u ovoj tabeli .
Evo jedan primer u vb6 kako sam ja to odradio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function fnDodadi_Izmena(izTabela As String, izPole As String, izID_Dokument As Long, izID_Naziv As String, izVrednost As String, _
  2.                                 izTip As Integer, izVraboten As Long, Optional Opis = "")
  3.         Dim rsIzmeni As ADODB.Recordset
  4.         Set rsIzmeni = New ADODB.Recordset
  5.             rsIzmeni.Open "SELECT * FROM tblIzmeni WHERE ID_Izmena < 0", cn, adOpenStatic, adLockOptimistic
  6.             rsIzmeni.AddNew
  7.             rsIzmeni.Fields("izTabela") = izTabela
  8.             rsIzmeni.Fields("izPole") = izPole
  9.             rsIzmeni.Fields("izID_Dokument") = izID_Dokument
  10.             rsIzmeni.Fields("izID_Naziv") = izID_Naziv
  11.             rsIzmeni.Fields("izVrednost") = izVrednost
  12.             rsIzmeni.Fields("izTip") = izTip        ' 0=Nedefinirano 1=Izmena 2=NovZapis 3=Izbrisan zapis
  13.            rsIzmeni.Fields("izData") = Format(fnServer_DateTime, "dd.MM.yyyy hh:mm:ss")
  14.             rsIzmeni.Fields("izVraboten") = izVraboten
  15.             rsIzmeni.Fields("izOpis") = Format$(Opis)
  16.             rsIzmeni.Update
  17.      
  18.       Set rsIzmeni = Nothing
  19. End Function
  20.  
  21.  
  22. ' If rsKorisnk.Fields("kAdresa") <> txtAdresa.Text Then fnIma_Izmeni = True: Call fnDodadi_Izmena("tblKorisnik", "kAdresa", rsKorisnk.Fields("ID_Korisnik"), "ID_Korisnik", rsKorisnk.Fields("kAdresa"), 1, ID_Vraboten, "")  
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 07 pm.