sort (divento matto!)

**Pinotto** · 26-02-2003, 01:05

Sto seguendo il corso di Apogeo, e non capisco cosa sbaglio in questo esempio...(non mi funziona il sort di datagrid)
fatemi vedere l'errore, altrimenti divento matto....ciao e grazie

codice:

<%@ Page Language="VB" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.oledb" %>
<script runat="server">

    Sub Page_Load(obj As Object, e As EventArgs)
    
        'Imposta la connessione
        dim myConnection as new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\ASPNET\Data\Banking.mdb")
    
        'Apri la connessione
        dim myCommand as new OleDbDataAdapter ("select * from tblUsers", myConnection)
    
        'Riempi l'oggetto DataSet
        dim ds as DataSet=new DataSet()
        myCommand.Fill(ds,"tblUsers")
    
        'Scegli il tipo di visualizzazione e associalo al controllo del server
        datagrid1.DataSource=ds.Tables("tblUsers").DefaultView
        DataBind()
    End Sub
    
    sub datagrid1_sortcommand(obj as object, e as datagridsortcommandeventargs)
        'ordina i dati tramite la proprietà sortfield di eventargs
        datagrid1.databind()
    end sub

</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <asp:datagrid id="datagrid1" runat="server"
           BorderColor="black"
           BorderWidth="1"
           CellPadding="3"
           AllowSorting="true"
           AutoGenerateColumns="true">
        </asp:datagrid>
    </form>
</body>
</html>

**pietro09** · 26-02-2003, 10:37

Il libro dice che spiegherà tutto il giorno seguente. Però puoi fare così:
Nell'evento SortCommand recuperi il nome del campo da ordinare, lo metti in una variabile globale (fuori delle sub o function) e scrivi l'istruzione sql utilizzando l'opzione order by. :gren:

**pietro09** · 26-02-2003, 12:02

Ti mando un po' di codice:

codice:

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Me.IsPostBack() Then
            'all'inizio, tabella ordinata mediante id
            BindDataGrid("id")
        End If

    End Sub

    Private Sub BindDataGrid(ByVal SortExpression$)
        'Imposta la connessione
        Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documenti\Interdev\prova.mdb;")

        'Apri la connessione
        Dim sql$ = "select * from campi order by " & SortExpression
        Dim myCommand As New OleDbDataAdapter(sql, myConnection)

        'Riempi l'oggetto DataSet
        Dim ds As DataSet = New DataSet()
        myCommand.Fill(ds, "tblUsers")

        'Scegli il tipo di visualizzazione e associalo al controllo del server
        datagrid1.DataSource = ds.Tables("tblUsers").DefaultView
        DataBind()

    End Sub

    Private Sub datagrid1_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles datagrid1.SortCommand
        'scatta quando si fa click nell'instestazione delle colonne

        'recupero il nome della colonna cliccata (sort expression)

        BindDataGrid(e.SortExpression)
    End Sub

**Pinotto** · 26-02-2003, 20:15

grazie mille..

Discussione: sort (divento matto!)

Strumenti discussione

Ricerca discussione

Visualizza

sort (divento matto!)

Permessi di invio