Newsgroup: it.comp.appl.access
Titolo: LDB view

Spesso si chiede come fare per leggere gli utenti collegati al db.
Forse non tutti sanno che mamma Microsoft mette a disposizione un tool per 
leggere il file .ldb.
Un programmino di 67 kb che funziona se il db è aperto.
Per chi fosse interessato può scaricarlo da qui:
http://www.frantoiogestione.com/Ldbview.exe
Ovviamente può essere anche inserito nel sito comune
Ciao, Carlo 

 ha scritto nel
messaggio news:nN2rd.433735$35.19...@news4.tin.it...

Ciao Carlo, hai provato ad usarlo...?
Intendo chiudendo i Client dopo aver fatto acesso al BE oppure anche
Crashando uno o più Client...!!!
Ti chedo questo perchè qualche tempo fà, un anno circa, provai qualche cosa
di simile e non
c'era verso che desse un'informazione attendibile.
Senza contare che solo l'ultimo utente resetta tutto...!!
Sul sito MS ho trovato questa routine che direi funziona molto bene, in caso
di CRASH
ti frega come le altre, ma li le cose si complicano....!
Function ShowUserRosterMultipleUsers(PercorsoBe as string)
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=" & PercorsoBE
    ' 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.
    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
    "", rs.Fields(2).Name, rs.Fields(3).Name
    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend
End Function
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:coie18$j1q$1...@lacerta.tiscalinet.it...

Sì la routine che hai postato dovrebbe funzionare con Jet 4 ma è necessario 
avere tra le referenze Microsoft ActiveX Data Objects. D'altra parte essendo 
la routine inseribile in un Db, opportunamente creando una maschera di 
MostraLog, torna utilissimo nelle distribuzioni.
In tutti gli altri casi e con Jet 2.x e 3.x (devo dire anche con Jet 4) si 
può usare Ldbview. Nello stesso sito e per chi volesse avere più 
informazioni, si può scaricare anche Jetutils.exe che oltre a LDBview 
contiene doc e altri programmini veramente utili:
http://download.microsoft.com/download/access97/utility1/1/win98/en-us/jetutils.exe
Questo il link al sito microsoft:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q176670
Per quanto riguarda il crash del db e conseguente permanenza del file .ldb 
devo dire che il programmino funziona ugualmente mostrando la situazione 
prima del crash. Unica differenza e quindi l'unico mezzo per capire se il db 
è attivo, è che in LoggedOn troverai scritto sempre NO.
Ciao, Carlo

 ha scritto nel
messaggio news:nN2rd.433735$35.19...@news4.tin.it...

grazie Carlo per le tue segnalazioni
Non c'è modo di salvare il path e monitorare sempre gli stessi mdb?
MAssimiliano


Non credo in maniera semplice.
Comunque se leggi gli altri post o segui i link troverai le routine per 
inserire il tutto in un tuo db e costruirti una maschera apposita.
L'LDBview č piů un tool per l'amministratore del sistema che ha interesse a 
monitorare gli accessi autorizzati al db.
Ciao, Carlo 


Sě grazie. La mail visualizzata č corretta.
MAssimiliano

 Non c'č modo di salvare il path e monitorare sempre gli stessi mdb?
l'ho fatto io.. serviva a me e ho scritto un'applicazione quick and dirty che 
fa la stessa cosa dell'utility fornita da Microsoft, piů la persistenza del 
path del database.
Se ti interessa te la mando per email (file di setup di 750 Kb circa).
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)