Public Class Form1

#Region "Partner wsdl implementation"
    Dim binding As sfdc.SforceService = New sfdc.SforceService()

    Private Sub loginPartner()
        Dim lr As sfdc.LoginResult = binding.login("user@email.com", "secret")
        binding.SessionHeaderValue = New sfdc.SessionHeader()
        binding.SessionHeaderValue.sessionId = lr.sessionId
        binding.Url = lr.serverUrl
    End Sub
    Private Sub LoadSearchGridPartner(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        loginPartner()
        Dim searchResult As sfdc.SearchResult = binding.search("FIND {Digital*} IN NAME FIELDS RETURNING Account (Type, Website)")
        Dim searchRecords() As sfdc.SearchRecord = searchResult.searchRecords
        Dim ds As DataSet
        If searchRecords.Length > 0 Then
            ds = New DataSet("searchResult")
            Dim dt As New DataTable("searchTable")
            dt.Columns.Add(New DataColumn("Type"))
            dt.Columns.Add(New DataColumn("Website"))
            For i As Integer = 0 To searchRecords.Length - 1
                Dim record As sfdc.sObject = searchRecords(i).record
                Dim dr As DataRow = dt.NewRow()
                dr("Type") = getSObjectFieldValue("Type", record)
                dr("Website") = getSObjectFieldValue("Website", record)
                dt.Rows.Add(dr)
            Next
            ds.Tables.Add(dt)
            Me.DataGridView1.DataSource = ds
            Me.DataGridView1.DataMember = "searchTable"
        End If
    End Sub

    Private Function getSObjectFieldValue(ByVal fieldName As String, ByVal record As sfdc.sObject) As String
        For i As Integer = 0 To record.Any.Length - 1
            Dim fld As Xml.XmlElement = record.Any(i)
            If fld.LocalName.ToLower().Equals(fieldName.ToLower()) Then
                Return fld.InnerText
            End If
        Next
        Return String.Empty

    End Function
#End Region

#Region "Enterprise wsdl implementation"
    Dim bindingE As sfdcE.SforceService = New sfdcE.SforceService()

    Private Sub loginEnterprise()
        Dim lr As sfdcE.LoginResult = bindingE.login("user@email.com", "secret")
        bindingE.SessionHeaderValue = New sfdcE.SessionHeader()
        bindingE.SessionHeaderValue.sessionId = lr.sessionId
        bindingE.Url = lr.serverUrl
    End Sub

    Private Sub LoadSearchGridEnterprise(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        loginEnterprise()
        Dim searchResult As sfdcE.SearchResult = bindingE.search("FIND {Digital*} IN NAME FIELDS RETURNING Account (Type, Website)")
        Dim searchRecords() As sfdcE.SearchRecord = searchResult.searchRecords
        Dim ds As DataSet
        If searchRecords.Length > 0 Then
            ds = New DataSet("searchResult")
            Dim dt As New DataTable("searchTable")
            dt.Columns.Add(New DataColumn("Type"))
            dt.Columns.Add(New DataColumn("Website"))
            For i As Integer = 0 To searchRecords.Length - 1
                Dim record As sfdcE.Account = searchRecords(i).record
                Dim dr As DataRow = dt.NewRow()
                dr("Type") = record.Type
                dr("Website") = record.Website
                dt.Rows.Add(dr)
            Next
            ds.Tables.Add(dt)
            Me.DataGridView1.DataSource = ds
            Me.DataGridView1.DataMember = "searchTable"
        End If
    End Sub
#End Region
End Class