- Function ImeKompa()
- Dim strImeKompjutera As String
- strImeKompjutera = String(255, Chr(0))
- ImeRacunara strImeKompjutera, 255
- strImeKompjutera = left(strImeKompjutera, InStr(1, strImeKompjutera, Chr(0)) - 1)
- ImeKompa = strImeKompjutera
- End Function
zxz | 21.05.2013 22:09 |
---|---|
Predmet:Korisnicko ime iz koristan kod Pitanje od: @Miki2013 IsOpenedExclusive() As Boolean IsOpenedExclusive = False Dim rs As ADODB.Recordset Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") Dim strUsers As String Dim intUsers As Integer Do While Not rs.EOF strUsers = strUsers & vbCrLf & Left(rs.Fields(1), Len(Trim(rs.Fields(1))) - 1) & "@" & Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1) intUsers = intUsers + 1 rs.MoveNext Loop rs.Close Set rs = Nothing If intUsers > 1 Then MsgBox "Korisnici koji trenutno koriste bazu podataka:" & vbCrLf & strUsers, vbInformation Exit Function End If IsOpenedExclusive = True End Function Pozdrav! Može li mi neko pojasniti kako ove podatke o korisnicima koji koriste bazu dobiti na formi? Hvala unaprijed! |
zxz | 21.05.2013 22:28 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Ovu proceduru stavi u neki modul: PreuzmiIzvorni kôd (Visual Basic):
Sada napravi neku formu i na formu stavi tekst box kontrolu. Na control source kontrole upisi: =IsOpenedExclusive() |
Miki2013 | 21.05.2013 22:40 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Hvala na brzom odgovoru! Zapne ovdje Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") |
zxz | 21.05.2013 23:26 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Pa nema tu konekcije. Mislio sam da si to vec napravio jer neznam odakle ces pristupati. Evo ovdje ako je kod na current. PreuzmiIzvorni kôd (Visual Basic):
|
zxz | 22.05.2013 21:49 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Ovo se mora dovesti do kraja samo treba biti strpljiv. Trebas vidjeti u kojem redu pravi gresku. Neznam znas li zaustaviti izvrsenje koda pa onda sa F8 korak po korak i citati rezultate. Imam ja jos par verzija koda ali volio bih da mi kazes u kojem redu koda prijavljuje gresku pa ce biti lakse. Ima jos nesto. Kazes da koristis tabelu za logovanje. Citat: Nadam se da u ovu tabelu pored imena korisnika ili id korisnika unosis i ime racunara posto sve mrezno radi.Mada, iskreno current mi i ne treba jer sam to odradio na drugaciji nacin a prvi postupak ko je logovan "kontrolisem" preko query-ja jer se u posebnoj tablici biljezi username, datum i vrijeme prijave kao i odjave. Ako je to tako onda ti i iz ove tabele mozes naci ko je sve logovan i sa kojeg compa. |
zxz | 22.05.2013 21:55 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Sto se tice linka es. najbolje je da svoj pšroblem iznese u novoj temi. |
Miki2013 | 22.05.2013 22:15 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Ponovo hvala na brzom odgovoru. sto se tice tabele logovanja u njoj imam ID, korisnicko ime, datum prijave, vrijeme prijave, datum odjave i vrijeme odjave. To sam uvezao da mi na "kljucnim" rekordima upise ko je sta unio ili promijenio (mislim konkretno na korisnicko ime) i to funkcionise super. a sto se tice naziva racunara sa kojeg je izvrsen unos ili izmjena za to koristim sljedeci kod u modulu PreuzmiIzvorni kôd (Text):
a na formi sam napravio unbound polje i u njega unio naziv kolone "Komp" iz tabele "osnovna" gdje se i biljeze ti podaci, takodje uredno. ali da ne duzim meni bi odgovarala i "jednostavna" kontrola recimo nesto kao broj korisnika koji su trenutno logovani ********************************************* npr. Trenutno bazu koristi 3 lica ********************************************* Iskreno, jos uvijek sam pocetnik tako da ne znam bas kako ide to sa pokretanjem koda ali uglavnom nakon svakog koda koji ubacim idem na kompajliranje i ako nesto nije uredu onda mi pogresan kod pozuti i strelicom misa preko tog ocitam vrijednosti Konkretno u ovom tvom kodu zapne na liniji Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") Napominjem da radim u MS Accessu 2003 i da osim prvih 5 default-nih referenci nisam ukljucio ni jednu dodatnu Pozdrav! |
Miki2013 | 22.05.2013 20:56 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Nece prijatelju pa nece... Probao sam danas na poslu preko servera ali sa onom prvom mi u unbound polju pise error a sa drugom na curent ne pokazuje nista pa ni error. Mada, iskreno current mi i ne treba jer sam to odradio na drugaciji nacin a prvi postupak ko je logovan "kontrolisem" preko query-ja jer se u posebnoj tablici biljezi username, datum i vrijeme prijave kao i odjave. Ukoliko je vrijeme odjave prazno ja tako znam da je korisnik jos uvijek logovan. Ali eto volio bih da ako je to moguce i ostali korisnici vide ko je trenutno u bazi u slucaju da imaju record lock da mogu sacekati ili kontaktirati kolegu. Nego, imam ja jedan mnogo veci problem o kojem sam pisao na http://www.elitesecurity.org/...ugog-mreza ali nazalost izgleda da mi niko nije mogao dati rjesenje. Ukoliko ti imas kakav prijedlog bio bih veoma zahvalan. Ovo ovdje mozes lock ili delete. Hvala! |
zxz | 22.05.2013 22:39 |
---|---|
Predmet:Re: Korisnicko ime iz koristan kod Probaj sa ovom procedurom, pa cemo onda nesto vise znati o tvojoj situaciji. Na vrh nekog modula stavi ovo: PreuzmiIzvorni kôd (Visual Basic):
a evo procedura i mozes je staviti umjesto one gore pa probaj. PreuzmiIzvorni kôd (Visual Basic):
Javi sta se desava. |