[AccessD] How about lbdView

...the schema is built into ado and the ref set by default ...I don't have 
to distribute it or deal with users screwing with it.
...LDBView is still available and works within its limits but I can't think 
of a reason to use it.

William

--------------------------------------------------
From: "Susan Harkins" <ssharkins at gmail.com>
Sent: Thursday, February 26, 2009 2:02 PM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [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
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>