منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل شفره ال ى vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : تحويل شفره ال ى vb.net (/showthread.php?tid=27789)

تحويل شفره ال ى vb.net - vb2010 - 04-12-18

السلام عليكم 



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


RE: تحويل شفره ال ى vb.net - dasktop - 06-12-18

كود :
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