Prikazi cijelu temu 12.08.2011 21:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: logovani korisnik - upis u tabeli
PreuzmiIzvorni kôd (Visual Basic):
  1. Function KorisnickeP(Id As Integer)
  2. Dim Db  As DAO.Database
  3. Dim Rs As DAO.Recordset
  4. Dim SQL As String
  5. Dim I As Integer
  6. Dim Podaci As String
  7.  
  8.  
  9. SQL = "SELECT * FROM tblUsers WHERE KorisnikID=" & Id
  10.  
  11. Set Db = CurrentDb
  12. Set Rs = Db.OpenRecordset(SQL)
  13. For I = 1 To 5
  14. Podaci = Podaci & Rs.Fields(I) & ","
  15. Next I
  16. KorisnickeP = Left(Podaci, Len(Podaci) - 1)
  17. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.