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;