Ordinare una datagrid [vb6]

[nikeddy]

salve a tutti!

io ho una datagrid che riempio grazie ad Adodc prendendo i dati da un db di access.

e tutto ok modifico i dati inseriti,tutto perfetto.

ho due domande...e' possibile filtarli? e cliccando nella intestazione di colonna (HeadClick) ordinarli?

se uso rs farei cosi....

Static bAscOrder As Boolean
Static iLastColIndex As Integer
If iLastColIndex = ColIndex Then
Rem inverto l'ordine
bAscOrder = Not bAscOrder
End If
rs.Sort = rs.Fields(ColIndex).Name & IIf(bAscOrder, " ASC", " DESC")

iLastColIndex = ColIndex

exit_sub:

ma siccome carico il db con adodc e lo collego alla datagrid non so come fare..

[oregon]

Per ottenere i dati che vuoi ordinati come vuoi, è meglio utilizzare una

SELECT ... WHERE ... ORDER BY ...

[Grumpy]

Quell' rs è un recordset. Se guardi meglio là dove hai trovato quelle righe di codice, vedrai che da qualche parte viene assegnato alla proprietà DataSource della DataGrid.
Non è indispensabile usare il controllo AdoDc, ma, nel caso improbabile che dovesse servire a qualche altra cosa, esso ha la proprietà Recordset.

[gibra]

Devi modificare la proprietà RecordSource (se non sbaglio è quella) comunque è quella dove scrivi la SELECT (non uso ADODC, per fortuna), indicando l'ORDER BY.
Esempio:

SELECT * FROM tabella ORDER BY campo ASC/DESC

Ciao

[yyzyyz]

Ciao , questo codice dovrebbe fare al caso tuo , la pressione su una delle colonne del datagrid
provoca un not di ordinamento ascendente / discendente.

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    Dim strColName As String
    Static bSortAsc As Boolean
    Static strPrevCol As String
    
    strColName = DataGrid1.Columns(ColIndex).DataField
    If ColIndex = 2 Then Exit Sub
        
    If strColName = strPrevCol Then
        If bSortAsc Then
            rs.Sort = strColName & " DESC"
            bSortAsc = False
            DataGrid1.ReBind

        Else
            rs.Sort = strColName
            bSortAsc = True
            DataGrid1.ReBind
        End If
    Else
        rs.Sort = strColName
        bSortAsc = True
    End If
    strPrevCol = strColName

End Sub

[nikeddy]

Grazie mille.

ora e' tutto chiaro come devo fare.

grazie ancora.