Prikazi cijelu temu 21.05.2013 22:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function IsOpenedExclusive() As String
  2.     Dim cnn As New ADODB.Connection
  3.     Dim rs As ADODB.Recordset
  4.    
  5.     'cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  6.     "Data Source=C:\Program Files\Microsoft " & _
  7.     "Office\Office11\Samples\Northwind.mdb;"
  8.    Set cnn = CurrentProject.Connection
  9.     Set rs = cnn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
  10.     'Set rs = cnn.OpenSchema(adSchemaProviderSpecific _
  11.     , , JET_SCHEMA_USERROSTER)
  12.    Dim strUsers As String
  13.     Dim intUsers As Integer
  14.     Do While Not rs.EOF
  15.         strUsers = strUsers & vbCrLf & Left(rs.Fields(1), Len(Trim(rs.Fields(1))) - 1) & "@" & Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1)
  16.         intUsers = intUsers + 1
  17.         rs.MoveNext
  18.     Loop
  19.     rs.Close
  20.     Set rs = Nothing
  21.     IsOpenedExclusive = strUsers
  22. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.