Mostrar Base De Datos Ordenada En Vb

[perezgladys28]

HOLA A TODOS TNGO UN PROBLEMA..NECESITO MOSTRAR TODOS LOS REGISTROS DE UNA BASE DE DATOS ORDENADA POR UN DETERMINADO CAMPO.. ESTO ES EN VISUAL BASIC Y NO C COMO HACERLO. ESTOY USANDO UN CATALOGO PARA MOSTRAR:

Private Sub Form_Load()
Set bdatos = OpenDatabase(direccion)
Set Record = bdatos.OpenRecordset(Module2.TABLAPARAM)
Record.Index = "PrimaryKey"

MSFlex.ColWidth(0) = 1000
MSFlex.ColWidth(1) = 2500

Record.MoveFirst
MSFlex.Cols = 2
MSFlex.Row = 0
MSFlex.Col = 0
MSFlex.Text = "Codigo"
MSFlex.Col = 1
MSFlex.Text = "Nombre"

Fila = 1
Do While Not Record.EOF
MSFlex.Rows = Fila + 1
MSFlex.Row = Fila
MSFlex.Col = 0
MSFlex.Text = Record.Fields(0)
MSFlex.Col = 1
MSFlex.Text = Record.Fields(1)
Fila = Fila + 1
Record.MoveNext
Loop
End Sub

PERO QUIERO MOSTRAR LOS REGISTROS EN FORMA ORDENADA POR EL CAMPO EN LA POSICION 1 Q ES EL NOMBRE COMO HAGO ESTO? ALGUIEN SABE? O TIENE UNA FORMA MAS FACIL DE MOSTRAR LOS DATOS EN UN CATALOGO

GRACIASSSS

[(RTT)Blackhawk]

Puedes hacerlo con un Listview.....

[frank_vo]

Cambia el Module2.TABLAPARAM por una sentencia SQL, por ejemplo "Select * from Tabla order by campo1, campo2"

y en vez de usar un msflexgird usa un datagrid.

Set bdatos = OpenDatabase(direccion)
Set Record = bdatos.OpenRecordset(Module2.TABLAPARAM)

set datagrid1.datasource = Record

eso es todo.

Luego formates el datagrid con la propiedad
columns(index).caption => para el titulo de la columna
columns(index).width => para el ancho de la columna


Espero que te sirva

atte,
frank_vo

[unholy]

Con un MSHFlexgrid tambien se puede hacer, lo unico que tiene sque hacer es establecer como Datasoiurce un controlADO, y en este especificar la sentencia a usar en la conexion