HP 86037B, Instruction Manual

Page: 91 / 204

4-19
Remote Control
Reading the Measurement Results
The GetParm subroutine finds the first row in the recordset that contains the
desired parameter name and returns its value. Note the use of the Visual Basic
GetChunk method and the
ByteArrayToVariant routine. This is the technique
used to store array values in the results database. The database treats the long
binary as a binary large object (or “BLOB”) and in order to obtain the actual
array values, the BLOB must be converted. The
ByteArrayToVariant function uses
file I/O to convert between data stored as a long binary and a Visual Basic vari-
ant array.
The GetParm subroutine
The routine GetParm is given by the following:
Public Function GetParm(rsData As Recordset, sParmName As String) As Variant
' Caution: All non-array values are returned as strings. Thus if you are
' getting a number, it may be necessary for you to use Val(GetParm())
' so that the parameter is converted to a number.
Dim btByteArray() As Byte
With rsData
If Not .BOF Then
.FindFirst "sParmName = '" & sParmName & "'"
If Not .NoMatch Then
If !vValue <> "<ARRAY>" Then
GetParm = !vValue
Else
btByteArray = !vArrayValue.GetChunk(0, vArrayValue.FieldSize())
GetParm = ByteArrayToVariant(btByteArray)
End If
Else
Err.Raise vbObjectError, "GetParm", sParmName & _
" parameter undefined in results database!”
End If
Else
Err.Raise vbObjectError, "GetParm", sParmName & _
" parameter undefined in results database!”
End If
End With
End Function