[dasktop]

كود :

Private Sub SurroundingSub()
   Dim obj As CollegesEntities = New CollegesEntities()
   Dim Studtbl = From c In obj.Students Select New With {c.StudentID, c.StudentName, c.Address, c.idJurisdiction
   }
   dataGridView1.DataSource = Studtbl
End Sub

كود :

Private Sub SurroundingSub()
   Dim obj As CollegesEntities = New CollegesEntities()
   Dim Studtbl = From c In obj.Students Where c.idJurisdiction = 5 Select New With {c.StudentID, c.StudentName, c.Address, c.idJurisdiction
   }
   dataGridView1.DataSource = Studtbl
End Sub

كود :

Private Sub SurroundingSub()
   Dim obj As CollegesEntities = New CollegesEntities()
   Dim NewStudent As Students = New Students() With {
       .StudentName = textBox2.Text,
       .Address = textBox3.Text,
       .Jurisdiction = Integer.Parse(textBox4.Text)
   }
   obj.AddToStudents(NewStudent)
   obj.SaveChanges()
End Sub

كود :

Private Sub SurroundingSub()
   Dim obj As CollegesEntities = New CollegesEntities()
   Dim DeleteSudent = (From c In obj.Students Where c.StudentID = Integer.Parse(textBox4.Text) Select c).First()
   obj.DeleteObject(DeleteSudent)
End Sub