Hacer un Select Limitado

[Firedarknes]

Ola me gustaria saber si se puede hacer un Select a una BD en Acces, pero que solo coja 100 filas y no todas es para hacer una estadistica.

[mc_quake]

Iniciado por Firedarknes

Ola me gustaria saber si se puede hacer un Select a una BD en Acces, pero que solo coja 100 filas y no todas es para hacer una estadistica.

mira recomiendo que en tu tabla tengas un id (un campo autonumerico)
una ves hecho esto puedes hacer un select que rescate los primeros 100 registros es facil o puedes generar una funcion con un ramdom que busque 100 registros dentro de tu base de datos pero para eso tenes que tener un id que te identifike cada registro(fila)

id|campo1|campo2|
1 |algo |algo |
2 |algo |algo |
3 |algo |algo |
4 |algo |algo |

[Firedarknes]

El problema es que no tienen que ser los 100 primeros, lo que quiero hacer es un Top para ver quien es el que tiene mas de algo y que solo haya diez, tambien me ha surgido otro problema,como ago para poner que uno sea el top 1 ,2 3, etc... no se si me entendeis....

Top 100
___________

1 Firedarknes 100pts
2 VAlkyrion 65 pts
3
4
5
...
100 k no siga
espero k esto os lo facilite...

[u_goldman]

Código:

Function ObtenerTop(cantidad)
  Dim ObjConn
  Dim rs
  Dim cmd
  Dim param
  Dim qry

  Set ObjConn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.Recordset")
  
  qry = "SELECT TOP " & cantidad & " campos FROM tabla WHERE condiciones"

  ObjConn.Open strConnect
  rs.Open qry, ObjConn, 3, 3

  if not rs.EOF then
    ds = rs.GetRows()
    rs.Close()
  else
    ds = null
  end if 

  Set rs = Nothing
  ObjConn.Close()
  Set ObjConn = Nothing
 
  ObtenerTop = ds
End Function

ds = ObtenerTop(100)

if isArray(ds) then
  'Aqui iteras este arreglo
else
  'No existe esta lista
end if

Salud

[Firedarknes]

Aun no se si funciona pero gracias!