GetADORecordset()

Este método retorna um Recordset do tipo ADO (ActiveX Data Object), resultante da execução da Consulta configurada. O script a seguir contém um exemplo de uso deste método.

Sub Botao1_Click()
  Set rec = Screen.Item("Consulta1").GetADORecordset()
  strDatas = " "
  i = 0
 
  ' Mostra uma mensagem com os 10 primeiros
  ' registros da coluna E3TimeStamp
  While (NOT rec.EOF AND i < 10)
    strDatas = strDatas & CStr(rec.Fields.Item("E3TimeStamp").Value) & _
      Chr(10) & Chr(13)
    i = i + 1
    rec.MoveNext()
  Wend
  MsgBox strDatas
End Sub