Reads a specific attribute of an item from the D3 file associated with the clsD3File object, returning the attribute as a clsD3DynamicArray object.
Set oDynArray = object.brReadV( sItemName, vColumn)
| Parameter | Description |
|---|---|
| oDynArray | An object variable that represents a clsD3DynamicArray object containing the attribute read from the D3 file. |
| object | An object variable that represents a clsD3File object. |
| sItemName | A String specifying the item-id of the item to retrieve. |
| vColumn | A Variant specifying either the attribute-defining item or the attribute number to be retrieved. |
Private Sub TestMovemethods_Click()
Dim oIndex As clsD3Index
Dim oFile As clsD3File
Dim oCustName As New clsD3DynamicArray
Dim sCurrent As String
Dim i As Integer
OpenConnection ' Subroutine to establish connection
Set oFile = oConn.brOpenFile("customers")
Set oIndex = oFile.brRoot("a1")
Do While True
Select Case InputBox("F for First, L for Last, N for next, P for previous")
Case "F"
oIndex.brMoveFirst
Case "L"
oIndex.brMoveLast
Case "N"
oIndex.brMoveNext
Case "P"
oIndex.brMovePrevious
Case Else
Exit Do
End Select
Set oCustName = oFile.brReadV(oIndex.brIndexId, "organizationname")
MsgBox oCustName.brCString
Loop
CloseConnection ' Subroutine to close connection
End Sub
readv