GetADORecordSet

<< Clique para Mostrar o Sumário >>

 

GetADORecordSet

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

 

NOTA

Para maiores informações sobre o objeto ADORecordset retornado por este método, consulte a documentação da Microsoft no link http://msdn.microsoft.com/en-us/library/ms675841(VS.85).aspx (somente em inglês).

Esta página foi útil?