Passing Selected Data Between WebParts in SharePoint: Listing 1

Code to add a DataSet to a Visual WebPart project and drag a table into it.

<ToolboxItemAttribute(false)> _
Public Class SampleParameters
  Inherits WebPart
  Implements IWebPartParameters

  Private Const _ascxPath As String = "…path to ascx file…"

  Protected Overrides Sub CreateChildControls()
    Dim control As Control = Page.LoadControl(_ascxPath)
    Controls.Add(control)
  End Sub
  
  Private _nwTB As New Northwind.OrdersDataTable

  Public Property nwTB As Northwind.OrdersDataTable
    Get
      Return _nwTB
    End Get
    Set(value As Northwind.OrdersDataTable)
      _nwTB = value
    End Set
  End Property

  Protected Overrides Sub OnPreRender(e As System.EventArgs)
    MyBase.OnPreRender(e)
    Dim nwtba As New NorthwindTableAdapters.OrdersTableAdapter
    nwTB = nwtba.GetData
  End Sub

  <ConnectionProvider("Selected Data", _
        "ConnectionPointIWebpartParameters", _
        AllowsMultipleConnections:=True)> _
  Public Function MyConsumerMethodForParameters() As IWebPartParameters
    Return Me
  End Function

About the Author

Peter Vogel is a system architect and principal in PH&V Information Services. PH&V provides full-stack consulting from UX design through object modeling to database design. Peter tweets about his VSM columns with the hashtag #vogelarticles. His blog posts on user experience design can be found at http://blog.learningtree.com/tag/ui/.