La Web del Programador: Comunidad de Programadores
 
    Pregunta:  4789 - ORDENAR UN RECORSET
Autor:  Daniel Perez
Necesito ordenar un recorset de tipo Table, probe usando

nombrerecorset.sort="campo" -> dynaset
nombrerecorset.index="indice " -> table

No funcionan ya que al recorrerlos estan como originalmente se abrieron

Saludos

  Respuesta:  mauro rondinelli
Lo Mejor que podes hacer es realizar una consulta sql, aca te mando un ejemplo de como hacerlo:

Sim BDDatos as DataBase
Dim Tabla as Recordset
Dim SQL as String

SQL = "SELECT * FROM nombre_de_tabla ORDER BY campo_a_ordenar"

Set BDDatos = OpenDatabase("archivo.mdb")
Set Tabla = BDD.OpenRecordset(SQL)

´Listo
Ahora te explico lo que contiene la Cadena SQL

en nombre_de_tabla pone el nombre de la tabla que queres abrir, (sin comillas), y en campo_a_ordenar pone el campo que queres ordenar, si queres ordenarlo en forma Ascendente tenes que poner despues de campo_a_ordenar ASC, y en forma descendente DESC y listo.

  Respuesta:  Iñaki Oraindi
Una forma de ordenar es abriendo la tabla como instruccion SQL.
Por ejemplo.
dim mibase as database
dim mitabla as recordset

MISQL = "select * from autores order by nombre"
set mibase = opendatabase("libros.mdb")
set mitabla = mibase.openrecordset(misql
while not mitabla.eof
......
wend