منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

هل ممكن تحويله ال 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);

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

vb2010

dasktop