Hi Grant,
I'm just a newbe but I mannaged to get this one to work.
I don't know what you did wrong but I have pasted my code below, being that their is no sample code for this one in the code download.
I sure hope this helps!
I am having trouble with the next exercise DataGrid Updates, check out my post.
Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents grdAuthors As System.Web.UI.WebControls.DataGrid
' Declare a connection object that is global in scope...
Dim objConnection As SqlConnection
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
' Initialize the Connection object...
objConnection = New SqlConnection("Server=New\NetSdk;database=pubs;Int egrated Security=sspi")
' Only bind the data the first time the page is built...
' Subsequent post backs will be to sort the data in the grid...
If Not (IsPostBack) Then
BindGrid("Last Name")
End If
End Sub
Public Sub BindGrid(ByVal strSortField As String)
' Declare objects...
Dim objDataSet As DataSet
Dim objDataAdapter As SqlDataAdapter
'Set the Sql String...
objDataAdapter = New SqlDataAdapter( _
"Select au_lname AS 'Last Name', au_fname AS 'First Name', " & _
"Title AS 'Book Title', price AS 'Retail Price' " & _
"From authors " & _
"JOIN titleauthor ON authors.au_id = titleauthor.au_id " & _
"JOIN titles ON titleauthor.title_id = titles.title_id " & _
"ORDER BY au_lname, au_fname", objConnection)
' Initialize the DataSet object and fill it...
objDataSet = New DataSet()
objDataAdapter.Fill(objDataSet, "Authors")
' Declare a DataView object, populate it,
' and sort the data in it...
Dim objDataView As DataView = _
objDataSet.Tables("Authors").DefaultView
objDataView.Sort = strSortField
' Bind the DataView object to the DataGrid control...
grdAuthors.DataSource = objDataView
grdAuthors.DataBind()
' Clean up...
End Sub
Private Sub grdAuthors_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEvent Args) Handles grdAuthors.SortCommand
' Bind the DataGrid using the sort column requested
BindGrid(e.SortExpression)
End Sub
Private Sub grdAuthors_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdAuthors.SelectedIndexChanged
End Sub
End Class
|