' Imports
Imports System.Data.SqlClient
Imports System.Text

' Define the remotable object "MsdnMag.NorthwindSalesManager", Assembly: 
' NWSalesMan.dll
Namespace MsdnMag

    Public Class NorthwindSalesManager
        Inherits MarshalByRefObject

        '—————————————————————————————————————————————
        ' Constants
        '—————————————————————————————————————————————
        Private Const m_connectionString As String = _ 
            "DATABASE=northwind;SERVER=localhost;UID=sa;"

        '—————————————————————————————————————————————
        ' Method: GetSalesReport()
        ' Returns amount of sales for the given year and all employees
        '—————————————————————————————————————————————
        Public Function GetSalesReport(ByVal theYear As Integer) As DataSet
            Dim ds As DataSet = New DataSet("Sales" & theYear.ToString())
            Dim dt As DataTable
            dt = ExecuteQuery(theYear, -1)

            ds.Tables.Add(dt)
            Return ds
        End Function

        '—————————————————————————————————————————————
        ' Method: GetSalesReport()
        ' Returns amount of sales for the given year and a given employee
        '—————————————————————————————————————————————
        Public Function GetSalesReport(ByVal theYear As Integer, ByVal _
            theEmp As Integer) As Single
            Dim dt As DataTable
            dt = ExecuteQuery(theYear, theEmp)
            Return Convert.ToSingle(dt.Rows(0)("Sales"))
        End Function

        '—————————————————————————————————————————————
        ' //////////// PRIVATE METHODS
        '—————————————————————————————————————————————

        Private Function ExecuteQuery(ByVal theYear As Integer, _
            ByVal empID As Integer) As DataTable
            ' Prepare the connection object
            Dim conn As SqlConnection = New _
            SqlConnection(m_connectionString)

            ' SELECT e.lastname AS Employee, SUM(price) AS Sales FROM
            '    (SELECT o.employeeid, od.orderid,
            ' SUM(od.quantity*od.unitprice) AS price FROM Orders o, [Order 
            ' Details] od
            ' WHERE Year(o.orderdate)=@TheYear AND od.orderid=o.orderid
            ' GROUP BY o.employeeid, od.orderid ) AS t1 
            ' INNER JOIN Employees e ON t1.employeeid=e.employeeid
            ' GROUP BY t1.employeeid, e.lastname

            ' Prepare the SELECT command object
            Dim sb As StringBuilder = New StringBuilder("")
            sb.Append("SELECT e.lastname AS Employee, SUM(price) _
               AS Sales FROM ")
            sb.Append("(SELECT o.employeeid, od.orderid, _
               SUM(od.quantity*od.unitprice) AS price ")
            sb.Append("    FROM Orders o, [Order Details] od")
            sb.Append("    WHERE Year(o.orderdate)=@TheYear AND _
               od.orderid=o.orderid ")
            If empID > 0 Then
                sb.Append(" AND o.employeeid=@theEmp ")
            End If
            sb.Append("GROUP BY o.employeeid, od.orderid ) AS t1 ")
            sb.Append("INNER JOIN Employees e ON _
                t1.employeeid=e.employeeid ")
            sb.Append("GROUP BY t1.employeeid, e.lastname")

            Dim cmd As SqlCommand = New SqlCommand(sb.ToString(), conn)

            ' Add the needed parameters
            Dim p1 As SqlParameter = New SqlParameter()
            p1.ParameterName = "@TheYear"
            p1.SqlDbType = SqlDbType.Int
            p1.Direction = ParameterDirection.Input
            p1.Value = theYear
            cmd.Parameters.Add(p1)

            If empID > 0 Then
                Dim p2 As SqlParameter = New SqlParameter()
                p2.ParameterName = "@TheEmp"
                p2.SqlDbType = SqlDbType.Int
                p2.Direction = ParameterDirection.Input
                p2.Value = empID
                cmd.Parameters.Add(p2)
            End If

            ' Prepare the Data Adapter
            Dim da As SqlDataAdapter = New SqlDataAdapter()
            da.SelectCommand = cmd
            Dim dt As DataTable = New DataTable("NorthwindSales")
            da.Fill(dt)
            Return dt
        End Function

    End Class

End Namespace

' Host.vb
Imports System
Imports System.Runtime.Remoting

Public Class MyApp
    Public Shared Sub Main()
        RemotingConfiguration.Configure("Host.exe.config")
        Console.WriteLine("Press Enter to terminate...")
        Console.ReadLine()
    End Sub
End Class

<configuration>
   <system.runtime.remoting>
      <application>
         <service>
            <wellknown mode="SingleCall" 
              type="MsdnMag.NorthwindSalesManager, NWSalesMan" 
              objectUri="NWSalesMan.rem" />
         </service>
         <channels>
            <channel ref="http" />
            <channel ref="tcp" port="3412" />
         </channels>
      </application>
   </system.runtime.remoting>
</configuration>

<configuration>
   <system.runtime.remoting>
      <application>
         <service>
            <activated type="MsdnMag.NorthwindSalesManager, NWSalesMan" 
            />
         </service>
         <channels>
            <channel ref="http" />
            <channel ref="tcp" port="3412" />
         </channels>
      </application>
   </system.runtime.remoting>
</configuration>

Sub Application_Start()

   ' Create the HTTP channel
   Dim props As IDictionary = New HashTable()
   props("name") = "TheChannel"
   props("priority") = "100"

   ' Use binary formatters to reduce packets
   Dim channel As HttpChannel
   channel = New HttpChannel(props, _
    New BinaryClientFormatterSinkProvider(), _
    New BinaryServerFormatterSinkProvider())

   ' Equivalent to <wellknown>
   Dim wko As WellKnownServiceTypeEn