Sección de códigos , trucos y ejemplos para visual basic

397 - Propiedad Sort de Ado

Ejemplo para ordenar un recordset mediante la propiedad Sort

A la propiedad Sort , se le debe indicar el nombre del campo por el cual se ordenará la columna , por ejemplo:

rs.Sort = "NombreUsuario"

En este ejemplo, que utiliza la base de datos Nwind.mdb de vb, se carga en el recordset la tabla Clientes , y luego mediante tres optionButton, se ordena cada campo. Los campos son : IdCliente, NombreContacto y CargoContacto

formularion con el Flexgrid y los datos ordenados usando Sort

Pasos para el ejemplo

Colocar en el formulario un control microsoft Hierarchical FlexGrid
Tres OptionButton en un Array ( Option1 (0), Option1 (1) y Option1 (2)) para indicar a la propiedad Sort el campo
La referencia a Ado ( Microsoft Activex DataObjects )

Código fuente en el formulario

Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() ' nueva conexión ado Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Archivos de programa\" & _ "Microsoft Visual Studio\VB98\NWIND.MDB;" & _ "Persist Security Info=False" cn.CursorLocation = adUseClient ' abre la conexión a la base de datos Nwind de ejemplo de visual basic cn.Open ' Nuevo recordset Set rs = New ADODB.Recordset ' abre la tabla clientes rs.Open "Clientes", cn, adOpenStatic, adLockOptimistic, adCmdTable With MSHFlexGrid1 .FixedCols = 0 .AllowUserResizing = flexResizeColumns .ColWidth(0) = 1800 .ColWidth(1) = 1800 .ColWidth(2) = 1800 .ColWidth(3) = 1800 End With Option1(0).Caption = "Ordenar por el campo: IdCliente" Option1(1).Caption = "Ordenar por el campo: NombreContacto" Option1(2).Caption = "Ordenar por el campo: CargoContacto" Me.Caption = "Ordenar con la propiedad Sort del recordset" End Sub Private Sub Option1_Click(Index As Integer) ' le indica a la propiedad Sort del recordset, _ el nombre del campo por el cual ordenar Select Case Index Case 0 rs.Sort = "IdCliente" Case 1 rs.Sort = "NombreContacto" Case 2 rs.Sort = "CargoContacto" End Select ' Carga el Flexgrid con los datos Set MSHFlexGrid1.DataSource = rs End Sub

Nota: por defecto , la ordenación se realiza en forma Ascendente, si se quiere ordenar en forma Descendente, se debe indicar el valor " Desc "por ejemplo :

rs.Sort = "IdCliente Desc"

Importante sobre error : Si se produce un error en tiempo de ejecución , al querer asignar el campo a la propiedad Sort : Error : " El proveedor actual no admite las interfaces necesarisa para Filtrar u ordenar ", es por que la propiedad CursorLocation del recordset debe estar con el valor AdUseClient

rs.CursorLocation = adUseClient

Nota: Este proyeto es similar pero para ordenar un datagrid mediante la propiedad Sort del recordset en el evento HeadClick de la grilla

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb