[VB6] Riordinare i dati in una DataGrid con una combobox

[Folcus]

C'è un metodo, per far sì che al premere di un tasto si abbia il riordinamento della tabella di un database?
mi spiego meglio, mi piacerebbe far sì, grazie ad una combobox (dove inserire i valori per cui si vuole riordinare) e ad un pulsante per lanciare l'ordinamento, riordinare i dati di una DataGrid.

Come posso fare?

[mgmg]

Invece di inserire i nomi dei campi della tabella in un combobox puoi sfruttare l'evento:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
            Valore = DataGrid1.Columns(ColIndex).Caption
            If Rs.State = 1 Then Rs.Close
            Rs.CursorLocation = adUseClient
            StrSql = "select * from tabella order by " & Valore & " ASC"
            Rs.Open StrSql, tuodb, adOpenKeyset, adLockOptimistic
            Set DataGrid1.DataSource = Rs
End Sub

Ciao

[Folcus]

Ciao, mi da errore in:

If Rs.State = 1 Then Rs.Close

dicendo "Nessun Oggetto".

Ho modificato la dicitura 'tuodb' con il nome del database (db_1.mdb)...

Con questo evento cosa dovrei ottenere? cliccando sulla DataGrid nella colonna che desidero ordinare lui la riordina?

[mgmg]

devi dichiarare:
Dim Rs As New ADODB.Recordset

Il percorso del data base vuole completo tipo c:\miodb.mdb
Ciao

[Folcus]

già, avevi ragione...

ora però mi dice:

"[microsoft[driver manager ODBC] Nome della origine dati troppo lungo."

selezionando:

Rs.Open StrSql, "G:\Visual Basic Esempi\DB_1.mdb", adOpenKeyset, adLockOptimistic

[mgmg]

Cerca di studiare un pochino:

Dim db As New ADODB.Connection
Dim Rs As New ADODB.Recordset 

Private Sub Form_Load()
   Nome= "G:\Visual Basic Esempi\DB_1.mdb"
   If db.State = 1 Then cn.Close
   db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nome & ";Persist Security Info=False"
End Sub


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
            Valore = DataGrid1.Columns(ColIndex).Caption
            If Rs.State = 1 Then Rs.Close
            Rs.CursorLocation = adUseClient
            StrSql = "select * from tabella order by " & Valore & " ASC"
            Rs.Open StrSql, db, adOpenKeyset, adLockOptimistic
            Set DataGrid1.DataSource = Rs
End Sub

[Folcus]

è quello che sto provando a fare...ma sulla rete non trovo nulla che mi illustri questi eventi...

grazie intanto..

tanto per capirci di più, l'evento mi riordina dal valore più piccolo a quello più alto..e se volessi fare l'opposto? dal più grande al più piccolo?

[mgmg]

 Private Valore as String
 Private ValoreP as String, Prec As String 
 Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
            Valore = DataGrid1.Columns(ColIndex).Caption
            If Rs.State = 1 Then Rs.Close
            Rs.CursorLocation = adUseClient
            If ValoreP = Valore Then
               If Prec = "ASC" Then
                 StrSql = "select * from tabella order by " & Valore & " DESC"
                 Prec = "DESC"
               Else

                 StrSql = "select * from tabella order by " & Valore & " ASC"
                 Prec = "ASC"
            End If
            Rs.Open StrSql, db, adOpenKeyset, adLockOptimistic
            Set DataGrid1.DataSource = Rs
            DataGrid1.Refresh
            ValoreP = Valore

End Sub

Ti suggerisco dei link dove reperire del codice sorgente:

http://www.maurorossi.net/

http://www.biapps.it/vbprogrammer/

http://www.it-lang-vb.net/home.asp

sotto archivio trovi: Sorgenti

MSDN:
http://msdn.microsoft.com/library/de...vbsamppage.asp