[AccessD] How about lbdView

William Hindman wdhindman at dejpolsystems.com
Thu Feb 26 11:54:49 CST 2009


...I use this in the be:

Private Sub GetCurrentUsers()
    Dim rst As New ADODB.Recordset
    Dim i, j As Long

    Set cnn = CurrentProject.Connection
    Set rst = cnn.OpenSchema(adSchemaProviderSpecific, , 
"{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    strList = BuildString(rst)
    lstUsers.RowSource = strList

    rst.Close
    Set rst = Nothing
End Sub

Private Function BuildString(rst As ADODB.Recordset) As String
    Dim strReturn As String
    Dim varItems As Variant
    Dim x As Integer
    Dim y As Integer

    strReturn = "COMPUTER_NAME;" & "LOGIN_NAME;" & "CONNECTED;"

    rst.MoveFirst

    varItems = rst.GetRows()
    For x = LBound(varItems, 2) To UBound(varItems, 2)
        For y = LBound(varItems, 1) To UBound(varItems, 1)
            If Not IsNull(varItems(y, x)) Then
            strReturn = strReturn & Left$(varItems(y, x), 
Len(Trim(varItems(y, x))) - 1) & ";"
            End If
        Next y
    Next x
    BuildString = strReturn
End Function

William

--------------------------------------------------
From: "Susan Harkins" <ssharkins at gmail.com>
Sent: Thursday, February 26, 2009 11:01 AM
To: <AccessD at databaseadvisors.com>
Subject: [AccessD] How about lbdView

> Any of you still using the ldbView utility with 2003? Just wondering if 
> it's
> still relevant of if its been replaced by something newer and better.
>
> Susan H.
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




More information about the AccessD mailing list