database users

[sven2]

Hello,

I am working with an adp project with 10 users. Is it possible to get a list from all the users that are logged in at a certain time?

I tried it like this:

Private Sub ShowUsers()
Dim cn As New ADODB.connection
Dim rs As New ADODB.Recordset
Dim i, j As Long
Set cn = CurrentProject.connection

Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Dim str1 As String
str1 = rs.Fields(0).Name & vbNewLine & vbNewLine
While Not rs.EOF
str1 = str1 & Nz(rs.Fields(0), "NULL") & vbNewLine
rs.MoveNext
Wend
Me.TxtBox1 = str1
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

But I get an error on the line set rs = ... (error 3251).

Thanks in advance,
Sven

 

[mearle]

The listed code is for a file based Access database.
Yours is an ADP, so I think you need the SQL Server equivalent.
sp_users should do the trick:
http://msdn.microsoft.com/en-us/library/ms174313.aspx