Microsoft Sharepoint Products and Technologies Resource Kit eBook

Chapter 35: Building Applications Using Windows SharePoint Services Data 983
SQLDataAdapter.SelectCommand = & _
New SqlCommand(SQLSelectListDetailString, SQLConn)
DiscussionData.Tables.Add("UserData")
SQLDataAdapter.Fill(DiscussionData.Tables("UserData"))
SQLDataAdapter.Dispose()
'
' Capture the total number of entries we found (NOTE: This
' number is also in the Lists Table as column tp_ItemCount,
' but better to use what is returned):
'
TotalItems = DiscussionData.Tables("UserData").Rows.Count
'
' We're done with the data connection so close it:
'
SQLConn.Close()
'
' Now we'll dynamically bind the data to the DataList...
'
' Create a new DataTable and create Columns for us to fill:
'
Dim OurDT As New DataTable
Dim OurDRs As Integer
Dim BuildDataRow As DataRow
Dim GetIndex As Integer
'
' Add two columns, Subject title and Message
'
OurDT.Columns.Add("Title", GetType(String))
OurDT.Columns.Add("DescText", GetType(String))
'
' Loop through the table and build the DataTable:
'
For GetIndex = 0 To (TotalItems - 1)
BuildDataRow = OurDT.NewRow()
BuildDataRow("Title") = & _
DiscussionData.Tables("UserData").Rows(GetIndex).Item("nvarchar1")
BuildDataRow("DescText") = & _
DiscussionData.Tables("UserData").Rows(GetIndex).Item("ntext2")
OurDT.Rows.Add(BuildDataRow)
Next
'
' Now establish a new DataView from the table just created:
'
Dim OurDataView As DataView = New DataView(OurDT)
'
' Bind it to the DataList control and we're done!
'
DataList1.DataSource = OurDataView
DataList1.DataBind()
End Sub
End Class
When you are done editing, save your work by pressing Ctrl+S or by selecting
File from the top menu and clicking Save ProbSolutionKB.aspx.