Compartilhar via

Propriedade QueryDef.MaxRecords (DAO)

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Define ou retorna o número máximo de registros a serem retornados de uma consulta em relação à fonte de dados ODBC.

Sintaxe

expressão . Maxrecords

expressão Uma variável que representa um objeto QueryDef.

Comentários

O valor padrão é 0, indicando nenhum limite no número de registros retornados.

Assim que o número de linhas especificado por MaxRecords for retornado para o aplicativo em um Recordset, o processador de consultas interromperá o retorno de registros adicionais, mesmo que mais registros estejam qualificados para inclusão no Recordset. Essa propriedade é útil em situações nas quais os recursos limitados do cliente proíbem o gerenciamento de uma grande quantidade de registros.

Observação

[!OBSERVAçãO] A propriedade MaxRecords pode ser usada somente em uma fonte de dados ODBC.

Exemplo

Este exemplo usa a propriedade MaxRecords para definir um limite sobre quantos registros são retornados por uma consulta em uma fonte de dados do ODBC.

Sub MaxRecordsX() 
 
 Dim dbsCurrent As Database 
 Dim qdfPassThrough As QueryDef 
 Dim qdfLocal As QueryDef 
 Dim rstTemp As Recordset 
 
 ' Open a database from which QueryDef objects can be 
 ' created. 
 Set dbsCurrent = OpenDatabase("DB1.mdb") 
 
 ' Create a pass-through query to retrieve data from 
 ' a Microsoft SQL Server database. 
 Set qdfPassThrough = _ 
 dbsCurrent.CreateQueryDef("") 
 
 ' Set the properties of the new query, limiting the 
 ' number of returnable records to 20. 
 ' Note: The DSN referenced below must be configured to 
 ' use Microsoft Windows NT Authentication Mode to 
 ' authorize user access to the Microsoft SQL Server. 
 qdfPassThrough.Connect = _ 
 "ODBC;DATABASE=pubs;DSN=Publishers" 
 qdfPassThrough.SQL = "SELECT * FROM titles" 
 qdfPassThrough.ReturnsRecords = True 
 qdfPassThrough.MaxRecords = 20 
 
 Set rstTemp = qdfPassThrough.OpenRecordset() 
 
 ' Display results of query. 
 Debug.Print "Query results:" 
 With rstTemp 
 Do While Not .EOF 
 Debug.Print , .Fields(0), .Fields(1) 
 .MoveNext 
 Loop 
 .Close 
 End With 
 
 dbsCurrent.Close 
 
End Sub