Microsoft SharePoint. Building Office 2007 Solutions in VB 2005 ...

452CHAPTER 11 ■ PROGRAMMING SHAREPOINT SERVICES4. In the Templates window, select Windows Application.5. Name the new project Site Explorer and press the OK button.6. When the new project is open, drop a TreeView control onto Form1.7. Open the code window for Form1.vb and add the following statements:Imports SystemImports System.Data.SqlClientImports System.NetImports System.xmlAdding the Web ReferenceThis project makes use of the Webs web service to return information about sites and webs. Inthis section, you will set a reference to this web service. It does not matter which site you referencewhen setting up the service, because we will change it in code later.Follow these steps to set the web reference:1. In Visual Studio, select Project ➤ Add Web Reference from the menu.2. In the Add Web Reference dialog, type http://vsmoss/sites/intranet/_vti_bin/Webs.asmx?WSDL and press the Go arrow.3. When the Webs web service is located, type MOSSService in the Web Reference Namebox and push the Add Reference button.Returning All SitesBefore we can create the hierarchical view of the SharePoint installation, we must return theset of all sites that are contained in the installation. In this exercise, you will retrieve thisinformation directly from the SharePoint configuration database. Going directly against theSharePoint databases can be a dangerous technique if you are doing more than reading data;however, it’s handy to know that you can do it safely to retrieve information. Add the codefrom Listing 11-18 to return the top-level sites and add them to the tree.Listing 11-18. Returning Top-Level SitesPrivate Sub Form1_Load_1(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles MyBase.LoadDim strConnection As String = "Integrated Security=SSPI;➥Initial Catalog=WSS_Content;Data Source=VSSQL"Dim strSql As String = "SELECT Title, FullUrl FROM dbo.Webs➥WHERE (ParentWebId IS NULL) AND (FullUrl '')➥AND (FullUrl IS NOT NULL) ORDER BY Title"Try