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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

434 - Ordenar datagrid al hacer clic en un encabezado

Ejemplo que ordena un datagrid en el evento HeadClick de la grilla

A la función que ordena la columna, se le debe pasar como parámetro el Indice ( ColIndex) el recordset y el control datagrid actual

Colocar

la referencia a microsoft activex data objects
y un datagrid1

Código fuente en un módulo bas

Option Explicit Public Sub OrdenarDataGrid(ByVal ColIndex As Integer, _ rs As ADODB.Recordset, _ DataGrid As DataGrid) Dim strColName As String Static bSortAsc As Boolean Static strPrevCol As String strColName = DataGrid.Columns(ColIndex).DataField If strColName = strPrevCol Then If bSortAsc Then rs.Sort = strColName & " DESC" bSortAsc = False Else rs.Sort = strColName bSortAsc = True End If Else rs.Sort = strColName bSortAsc = True End If strPrevCol = strColName End Sub

Código fuente en un formulario

Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) ' Le envia el ColIndex, el recordset y el datagrid Call OrdenarDataGrid(ColIndex, rs, DataGrid1) End Sub Private Sub Form_Load() ' conexión ado Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:\Archivos de programa\Microsoft" & _ " Visual Studio\VB98\NWIND.MDB;Persist Security " & _ "Info=False" .Open End With ' Crea el Recordset Set rs = New ADODB.Recordset rs.Open "SELECT [NombreCompañía],[NombreContacto],[CargoContacto] FROM Proveedores", _ cn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Unload(Cancel As Integer) If Not rs Is Nothing Then If rs.State = adStateOpen Then Set DataGrid1.DataSource = Nothing rs.Close End If Set rs = Nothing End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If End Sub

En este enlace se puede descargar el mismo código fuente que el anterior, pero este permite recordar el ordenamiento de columna realizado en el control DataGrid, para que al descargar el formulario y volver a iniciarlo, se ordene por la última columna que se había ordenado

Ordenar datagrid y guardar orden de columna

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb