Microsoft Sharepoint Products and Technologies Resource Kit eBook

Chapter 35: Building Applications Using Windows SharePoint Services Data 981
The next bit of code is all added:
■ We add a local reference to the System.Data.SqlClient namespace so that we
can access the database.
■ We add a subroutine to handle populating the database.
■ We add a call to the subroutine in the Page_Load subroutine to execute it when
the page loads.
Using the following sample code, type in the code shown in boldface type.
We’ve commented each section so that you can follow it:
GUIDGUIDGUIDGUID' ADDED for access to the SQL Database
Imports System.Data.SqlClient
Public Class ProbSolutionKB
Inherits System.Web.UI.Page
+ #Region " Web Form Designer Generated Code "
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
'
' If this was only to load once, then you can uncomment
' the IF statement; without this, the page will reload
' each time (this means added items will be found on refresh):
'
Dim AGUIDInStringFormat As String = "{CD68E7BA-2DEA-4E40-AB44-46CE32A5E468}"
'
If IsPostBack Then ' Use this to run ONLY ONCE when loaded
' LoadTheDataGrid(AGUIDInStringFormat)
Else ' Use this to reload every time
LoadTheDataGrid(AGUIDInStringFormat)
End If
'
End Sub
Private Sub LoadTheDataGrid(ByVal OurStringGUID As String)
'
Dim SQLConn As New SqlConnection
Dim SQLDataAdapter As New SqlDataAdapter
Dim SQLSelectString As String
Dim SQLSelectListHeaderString As String
Dim SQLSelectListDetailString As String
Dim DiscussionData As DataSet
Dim TotalItems As Integer
'
' Open the database using a SQL Login:
'
SQLConn.ConnectionString = "Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=Contoso1;Data Source=s2003e;"
SQLConn.Open()
'