Database

Dim uTemplate As CRM_JOBS = context.crm_Jobs.Single(Function(m) m.templateName = templateName)
uTemplate.templateXHTML = sEMT.templateXHTML
uTemplate.templateID = pValue
context.SaveChanges()

Dim jobs =
From items In context.crm_Jobs
Where items.templateName = templateName

For Each items In jobs
 jobs.templateXHTML = sEMT.templateXHTML
 jobs.templateID = pValue
Next
context.SaveChanges()

Dim jobs =
  From j In context.crm_Jobs
  Where j.templateName = templateName
  Select j

  For Each j As CRM_JOBS In jobs
    j.templateXHTML = sEMT.templateXHTML
    j.templateID = sEMT.templateID
  Next

  context.SaveChanges()

WHILE i < total_rows DO
    SET @param_employee_number = (SELECT employee_number FROM earned_leaves LIMIT i,1);

    PREPARE query_statement FROM 'CALL sp_populate_leave_summary(?)';
    EXECUTE query_statement USING @param_employee_number;

    -- UPDATE earned_leaves SET earned_leave = returned_by_EXECUTE
    SET i = i + 1;
END WHILE;

" SELECT COUNT(*) " & _
" FROM CRM_MESSAGES " & _
" WHERE " & _
" MessageStatus='MESSAGE_COMPLETE' " & _
" OR MessageStatus='MESSAGE_PENDING' " & _
" OR MessageStatus='MESSAGE_FORWARD' " & _
" AND ContactDate >=DATEADD(day, -30, getdate()) "

Dim messages As IQueryable(Of CRM_MESSAGES)
messages = messages.Where(Function(m) m.MessageStatus = "MESSAGE_COMPLETE")
messages = messages.Where(Function(m) m.MessageStatus = "MESSAGE_PENDING")
messages = messages.Where(Function(m) m.MessageStatus = "MESSAGE_FORWARD")
messages = messages.Where(Function(m) m.ContactDate >= m.ContactDate.Date.AddDays(-30))

Public Shared Function load_movieContributor_array( _
        ByVal pMovieID As Integer,
        ByVal pPageIndex As Integer,
        ByVal pPageSize As Integer,
        ByRef pResults As IEnumerable(Of MovieIndex)) As Integer

        Dim pValue As Integer = 0

        Dim context As New MoviesContext()
        Dim contributor = _
            (From m In context.Movies
            Where m.MovieID = pMovieID
            Select m.MovieContributor)

        Dim movies As IQueryable(Of Movies) = context.Movies
        movies = movies.Where(Function(m) m.MovieContributor = contributor)
        movies = movies.OrderBy(Function(m) m.MovieName)

        'Get a Single Page of Data
        If (pPageIndex = 1) Then
            movies = movies.Take(pPageSize)
        Else
            movies = movies.Skip((pPageIndex - 1) * pPageSize).Take(pPageSize)
        End If

        pResults = _
            movies.AsEnumerable().Select(Function(item) New MovieIndex With
            {
                .MovieID = item.MovieID,
                'More columns .....
        })

        pValue = pResults.Count()

        Return pValue

    End Function