GetADORecordSet

<< Click to Display Table of Contents >>

 

GetADORecordSet

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

 

NOTE

For more information about the ADORecordset object returned by this method, please check Microsoft documentation at http://msdn.microsoft.com/en-us/library/ms675841(VS.85).aspx.

Was this page useful?