Diego,
http://support.microsoft.com/kb/186267
parece q el maxrecords no funciona , intenta con el 'Top' como muestra el
articulo.
Saludos,
Jose
--- "Diego A. Montero" <[EMAIL PROTECTED]> wrote:
> Lista, una pregunta:
>
>
>
> Puede ser que el MaxRecords, no funcione en VB6 (SP4) para
> Access ?
>
>
>
> Hago el siguiente ejemplo tomado del MSDN, en Access y no
> funciona.
>
>
>
> Muchas Gracias !!!
>
>
>
> Public Sub MaxRegistros()
>
> Dim rstTemp As ADODB.Recordset
> Dim strCnn As String
>
> strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
> Source=C:\Bases\Datos.mdb;Jet OLEDB:Database Password=;Persist Security
> Info=False"
> Set rstTemp = New ADODB.Recordset
> rstTemp.MaxRecords = 1
> rstTemp.Cachesize = 1
> rstTemp.Open "SELECT Title, Price FROM Titles ORDER BY Price DESC",
> strCnn, , , adCmdText
>
> ' Esto me devuelve 92 registros.????
> Debug.Print "Cantidad de Registros." & rstTemp.Recordcount
>
> Do While Not rstTemp.EOF
> Debug.Print " " & rstTemp!Title & " - " & rstTemp!Price
> rstTemp.MoveNext
> Loop
> rstTemp.Close
>
> End Sub
>
>
>
>
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
