HP 86037B, Инструкция по эксплуатации

Страница: 90 / 204

4-18
Remote Control
Reading the Measurement Results
where
rsReportID
will contain all of the rows of the first table
DUTInfo
which con-
tain information about all of the runs where the Test Group name is
“New_Calibration” and the test result is “PASSED”. Looping through all the
members of the recordset one then extracts all of the TestIDs related to those
members.
With rsReportID
While Not .EOF
sql_command = "SELECT lTestID FROM TestInfo WHERE lReportID = “ & !lReportID & _
" AND sTestName = 'Cal_Gain_Phase' ORDER BY lTestID;"
Set rsTestID_gain_phase = dbResults.OpenRecordset(sql_command, dbOpenDynaset)
While Not rsTestID_gain_phase.EOF
sql_command = "SELECT * FROM Parameter WHERE lReportID = " & _
!lReportID & “ AND lTestID = “ & rsTestID_gain_phase
!lTestID_cal_gain_phase
Set rsParam_cal_gain_phase =
dbResults.OpenRecordset(sql_command,dbOpenDynaset)
This code results in a recordset containing all the rows of the table containing
data related to the “Cal_Gain_Phase” test in a run of the “New_Calibration”
test group which passed. (Data from other such successful tests can be found
by looping through the rsReportID recordset.) Now that the desired informa-
tion is in a recordset, an individual datum can be retrieved.
range = GetParm(rsParam_cal_processing, "Range")
The code above gets the value of the variable “range” from the first (and only)
row of the recordset
rsParam_cal_gain_phase that contains the result data for
“range”.