Visual Basic

Dim p_pageIndex as integer = 1
Dim p_pageOffset as integer = 10
Dim p_SearchQuery as String = "Kneepads"
Using context As New DBContext()

Dim pResults = _
(
    From pi In context.ProductInfo
    Join pik In context.ProductInfo_Keywords On pik.ProductID Equals pi.ProductID
    Where pik.Keywords.Contains(p_SearchQuery.Trim) _
    Or pik.Stream.Contains(p_SearchQuery.Trim) _
    Or pi.PartNumber.Contains(p_SearchQuery.Trim)
    Order By pi.PartNumber, pi.SDescription, pi.Description Descending
    Select
        pi.ProductID,
        pi.CategoryID,
        pi.SubCategoryID,
        pi.SDescription,
        pi.Description,
        pi.Thumbnail,
        pi.PartNumber,
        pi.Price    
)

Dim context As New DBContext()
Dim items As IQueryable(Of PRODUCTINFO) = context.ProductInfo

'Sort
items = items.OrderByDescending(Function(m) m.PartNumber).OrderByDescending(Function(m) m.SDescription).OrderByDescending(Function(m) m.Description)

'Filter by Rank
items = items.Where(Function(m) m.PartNumber.Contains(p_SearchQuery))

'Get a Single Page of Data
If (p_pageIndex = 1) Then
   items = items.Take(p_pageOffset)
Else
   items = items.Skip((p_pageIndex - 1) * p_pageOffset).Take(p_pageOffset)
End If

pResults = _
   items.AsEnumerable().Select(Function(pi) New searchIndex With
   {
       pi.ProductID,
       pi.CategoryID,
       pi.SubCategoryID,
       pi.SDescription,
       pi.Description,
       pi.Thumbnail,
       pi.PartNumber,
       pi.Price
   }
)

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Net;
using System.IO;
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                var XML = "XML=<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" +
                            "<SMS>\n" +
                            "<operations>\n" +
                            "<operation>SEND</operation>\n" +
                            "</operations>\n" +
                            "<authentification>\n" +
                            "<username></username>\n" +
                            "<password></password>\n" +
                            "</authentification>\n" +
                            "<message>\n" +
                            "<sender>SMS</sender>\n" +
                            "<text>Test message [UTF-8]</text>\n" +
                            "</message>\n" +
                            "<numbers>\n" +
                            "<number messageID=\"msg11\">380972920000</number>\n" +
                            "</numbers>\n" +
                            "</SMS>\n";
                HttpWebRequest request = WebRequest.Create("http://atompark.com/members/sms/xml.php") as HttpWebRequest;
                request.Method = "Post";
                request.ContentType = "application/x-www-form-urlencoded";
                ASCIIEncoding encoding = new ASCIIEncoding();
                byte[] data = encoding.GetBytes(XML);
                request.ContentLength = data.Length;
                Stream dataStream = request.GetRequestStream();
                dataStream.Write(data, 0, data.Length);
                using (HttpWebResponse response = request.GetResponse() as HttpWebResponse)
                {
                    if (response.StatusCode != HttpStatusCode.OK)
                        throw new Exception(String.Format(
                        "Server error (HTTP {0}: {1}).",
                        response.StatusCode,
                        response.StatusDescription));
                    StreamReader reader = new StreamReader(response.GetResponseStream());
 
                    Console.WriteLine(reader.ReadToEnd());
                    Console.ReadKey();
                }
            }
            catch (Exception e)
            {
                Console.WriteLine(e.Message);
                Console.ReadKey();
            }
        }
    }
}

Dim m_startDate As DateTime = New DateTime(2015, 1, 1, 0, 0, 0, 0)
Dim m_stopDate As DateTime = New DateTime(2015, 8, 31, 23, 59, 59, 999)
Dim p_PartNumber as string = "24-FLP44"
using context As New DBContext()

        Dim pResult = _
        (
            From cohc In context.Order_History_Cart
            Join pi In context.ProductInfo On cohc.PartNumber Equals pi.PartNumber
            Join vi In context.ProductInfo_Vendors On pi.VendorID Equals vi.VendorID
            Where cohc.PartNumber = p_PartNumber _
            And cohc.OrderDate >= m_startDate _
            And cohc.OrderDate <= m_stopDate _
            Order By cohc.PartNumber
            Group By pi.PartNumber Into productsSold = Group,
            totalQty = Sum(cohc.Qty),
            totalCost = Sum(cohc.Qty * cohc.Cost),
            totalPrice = Sum(cohc.Qty * cohc.Price)
            Select product = productsSold.Select(Function(m) m.pi).FirstOrDefault(), totalQty, totalCost, totalPrice
            Select 
                product.PartNumber,
                product.MPartNumber,
                product.Cost,
                product.Price,
                totalQty,
                totalCost,
                totalPrice,
                vendor.contactname,
                vendor.streetAddress1
                vendor.streetAddress2
        )   

        pResult.Dump()

end using

"DECLARE @startDate AS DATE; " & _
"DECLARE @stopDate AS DATE; " & _
"SET @startDate = DATETIMEFROMPARTS(@Year, 1, 1, 0, 0, 0, 0); " & _
"SET @stopDate = DATETIMEFROMPARTS(@Year, @LastMonth, @LastDay, 23, 59, 59, 999); " & _
"SELECT " & _
"  sts.StateCode " & _
", sts.StateName " & _
", sts.HasSalesTax " & _
", SUM(oh.SubTotal) AS SubTotal " & _
", sts.StateTaxRate " & _
", SUM(oh.SalesTax) AS SalesTax " & _
" From ORDER_HISTORY oh " & _
"LEFT JOIN Shipping_TaxStates sts " & _
"ON sts.StateCode = oh.SalesTaxState " & _
"WHERE oh.OrderDate > @startDate " & _
"AND ohOrderDate < @stopDate " & _
"GROUP BY sts.StateCode, sts.StateName, sts.StateTaxRate, sts.HasSalesTax " & _
"ORDER BY sts.StateName "

Dim m_startDate As DateTime = New DateTime(p_Year, 1, 1, 0, 0, 0, 0)
Dim m_stopDate As DateTime = New DateTime(p_Year, p_LastMonth, p_LastDay, 23, 59, 59, 999)

        Dim context As New DBContext()

        pResults = _
        (
           From oh In context.Order_History
           Where oh.OrderDate >= m_startDate _
           And oh.OrderDate <= m_stopDate _
           And oh.OrderStatus = "COMPLETED"
           Group By oh = New With
           {
               oh.SalesTaxState,
               oh.SubTotal,
               oh.SalesTax
           } Into Group
           Select New With
           {
               .StateCode = oh.SalesTaxState,
               .subTotal = Group.Sum(Function(m) m.SubTotal),
               .salesTax = Group.Sum(Function(m) m.SalesTax)
           }
       )