GetADORecordset()

This method returns an ADO-type (ActiveX Data Object) Recordset as the result of executing the configured Query. The next script contains an example of using this method.

Sub Button1_Click()
  Set rec = Screen.Item("Query1").GetADORecordset()
  strDates = " "
  i = 0
 
  ' Displays a message with the first 10 records
  ' of the E3TimeStamp column
  While (NOT rec.EOF AND i < 10)
    strDates = strDates & CStr(rec("E3TimeStamp")) & _
      Chr(10) & Chr(13)
    i = i + 1
    rec.MoveNext()
  Wend
  MsgBox strDates
End Sub