CISA FotoGallery

Statistiche

Tot. visite contenuti : 927945
Home Articoli tecnici VBA Leggere il file ldb

Leggere il file ldb

Leggendo il file ldb si può avere l'elenco degli utenti e/o dei pc connessi al db.
E' possibile inoltre avere l'elenco dei soggetti logati compresi nel file mdw


Dim strread As String
Dim lung As Integer
Dim Nome As String
Dim nome1 As String
Dim nome2 As String
Dim IDX As Integer
Dim IDX1 As Integer
For IDX1 = 0 To (lst_utenti.ListCount - 1) lst_utenti.RemoveItem (IDX) Next IDX1 Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(Application.CurrentProject.Path & "\" & GetNamePart(Application.CurrentProject.Name) & ".ldb", ForReading, TristateFalse) strread = f.readline IDX = 1 Do While (IDX * 32) < Len(strread) 'stringa utente Nome = Trim(Mid(strread, (32 * IDX), 32))

'stringa nome PC
'Nome = Trim(Mid(strread, (1 * IDX), 32))
nome1 = Replace(Nome, Chr(0), "")
lst_utenti.AddItem Item:=(nome1)
IDX = IDX + 2
Loop
f.Close

 

Attachments:
Download this file (92.zip)Allegato14 Kb