Compartir a través de

Propiedad QueryDef.MaxRecords (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Establece o devuelve el número máximo de registros que se devuelven desde una consulta en un origen de datos ODBC.

Sintaxis

expresión . MaxRecords

expression Variable que representa un objeto QueryDef.

Comentarios

El valor predeterminado es 0, lo que indica que no hay límite en el número de registros devueltos.

Una vez que el número de filas especificado por MaxRecords se devuelve a la aplicación del usuario en un Recordset, el procesador de consultas dejará de devolver registros adicionales incluso si hay más registros cualificados para su inclusión en Recordset. Esta propiedad es útil en situaciones donde los recursos de cliente limitados prohíben la administración de grandes cantidades de registros.

Nota:

[!NOTA] La propiedad MaxRecords sólo se puede usar con un origen de datos ODBC.

Ejemplo

En este ejemplo se utiliza la propiedad MaxRecords para establecer un límite sobre el número de registros que devuelve una consulta en un origen de datos 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