Newsgroup: it.comp.lang.visual-basic
Titolo: [Utenti connessi ad un Db]

Salve,
forse č una domanda strana ma avrei bisogno di sapere quanti utenti sono
attualmente connessi ad un Db Access in rete, esieste una funzione specifica ?
Io personalmente ho creato un file dove ogni volta che un utente si connette
aggiorna un contatore (+1), ovviamente quando lascia la connessione decrementa
il contatore (-1).Questo "giochino" ha perň la pecca di non andare in "fico" se
un utente esce dall'applicazione in modo non corretto (crash etc.).
Ho anche pensato ad un flag di controllo, se esiste vuol dire che c'č stato una
anomalia di chiusura di qualche prg.
Avete qualche idea piů agile e corretta della mia ?
PS
Uso VB6
Grazie
R.Zanni
-- 
Posted from  [193.70.106.130] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

qualche giorno fa su questo NG si parlava della possibilità di aprire il
file LDB, che viene creato quando viene aperto il database Access, e che per
l'appunto contiene tutte le informazioni riguardanti la multi-utenza e cose
del genere........
il file LDB viene creato nella stessa dir del file MDB che viene aperto, e
non è un file testo, quindi lo puoi aprire con il blocconote per dargli
un'occhiata, ma capisci ben poco!!!
:-)))
prova a cercare fra i post vecchi, al 100% ci sono degli articoli su MSDN
che trattano l'argomento!!!
ciao, e good coding!!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

Grazie per il suggerimento
Saluti


attualmente connessi ad un Db Access in rete, esieste una funzione specifica ?
Per la versione 2000:
ACC2000: Checking Who Logged into Database with Jet UserRoster 
Q198755
http://support.microsoft.com/support/kb/articles/Q198/7/55.ASP
hth, hal

 attualmente connessi ad un Db Access in rete, esieste una funzione
specifica ?
[...]
Ti riporto sotto la firma un mio post del 7 giugno con un pezzo di codice.
Una veloce ricerca su google ti avrebbe permesso di trovarlo in 5 minuti...
Ciao
Alfonso
--------------------------------------------------------
Da:Alfonso Moscato (
mosca...@tin.it
)
Soggetto:Re: [Mdb] Quanti utenti cce stanno? ;-)
Newsgroups:it.comp.lang.visual-basic
Data:2001-06-07 04:03:02 PST
Questa soluzione presuppone che esista sul form una combobox fi nome
Elenco_Utenti.
   Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long
    Dim  stTemp As String, stUser As String, stOld As String
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=NomedeltuoDatabase"
    ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4 OLE DB provider.  You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets
    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    'Output the list of all users in the current database.
    While Not rs.EOF
        i = Len(rs!COMPUTER_NAME)
        stUser = ""
        For j = 1 To i
           stTemp = Mid(rs.Fields(0), j, 1)
           If Asc(stTemp) > 32 Then
              stUser = stUser & stTemp
           Else
              Exit For
           End If
        Next
        If stUser <> stOld Then
            stOld = stUser
            'Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2),
rs.Fields(3)
            If rs!CONNECTED Then
               Me.Elenco_Utenti.RowSource = Me.Elenco_Utenti.RowSource &
stUser & ";"
            End If
        End If
        rs.MoveNext
    Wend
    Me.Elenco_Utenti.Requery
    rs.Close
    cn.Close