[vb2010]

السلام عليكم 



هل ممكن تحويله ال vb.net

كود :

           CollegesEntities obj = new CollegesEntities();
           var Studtbl = from c in obj.Students
                         select new { c.StudentID, c.StudentName, c.Address, c.idJurisdiction };
           dataGridView1.DataSource = Studtbl;

كود :

CollegesEntities obj = new CollegesEntities();
           var Studtbl = from c in obj.Students
where c.idJurisdiction ==5
                         select new { c.StudentID, c.StudentName, c.Address, c.idJurisdiction };
           dataGridView1.DataSource = Studtbl;

كود :

 CollegesEntities obj = new CollegesEntities();
           Students NewStudent = new Students(){StudentName=textBox2.Text,Address=textBox3.Text,Jurisdiction=int.Parse(textBox4.Text)};
           obj.AddToStudents(NewStudent);
           obj.SaveChanges();

كود :

 CollegesEntities obj = new CollegesEntities();
           var UpdateSudent = (from c in obj.Students
                         where c.StudentID==int.Parse(textBox5.Text)
                         select c ).First();
           UpdateSudent.StudentName = textBox2.Text;
           UpdateSudent.Address = textBox3.Text;
           UpdateSudent.Jurisdiction = int.Parse(textBox4.Text);
           obj.SaveChanges();

كود :

 CollegesEntities obj = new CollegesEntities();
           var DeleteSudent = (from c in obj.Students
                         where c.StudentID==int.Parse(textBox4.Text)
                         select c ).First();
obj.DeleteObject(DeleteSudent);

[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