Sub Filtra(sender As Object, e As DataGridSortCommandEventArgs)
ViewState("Campo")=e.SortExpression
If ViewState("direzione") is nothing orelse ViewState("direzione")="Desc" Then
ViewState.Add("direzione", "Asc")
Else
ViewState("direzione")="Desc"
End if
BindData()
End Sub
Sub BindData()
Dim strConn as string = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("../../miodb.mdb")
Dim Conn as New OleDbConnection(strConn)
Conn.Open()
Dim sqlLog = "SELECT * FROM T_Log"
If ViewState("direzione") Is Nothing Then
sqlLog = sqlLog & " ORDER BY '"&ViewState("campo")&"'"& ViewState("direzione")
end if
Dim CmdLog as new OleDbCommand (sqlLog,Conn)
Dim ReaderLog as OleDbDataReader = CmdLog.ExecuteReader()
dgLog.DataSource = ReaderLog
dgLog.DataBind()
End Sub
Sub Page_Load()
if Not Page.IsPostBack then BindData()
End Sub