[AccessD] How about lbdView

I actually wrote about OpenSchema, but it's been a long time ago. I just 
wondered if ldbView was still relevant -- it has a lot of gotchas, but in a 
pinch...

Susan H.


> ...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
>>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com