منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. (/showthread.php?tid=22062)



أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - nassery99 - 11-10-17

السلام عليكم..

أريد أن يختار المستخدم الخيار الاول من كومبو  بوكس الاول  والخيار الثاني من كومبو بوكس  الثاني فتظهر النتجيه في الداتا جريد فيو.بعد النقر على زر عرض.

مثال: الكومبوبوكس الاول:الصف.. مثلا اخترنا الصف الاول.  الكومبو الثاني المادة مثلا قران كريم..ثم نضغط زر عرض فتعرض الداتاجريد: درجات طلاب 
الصف الاول في مادة  القرآن الكريم.

تحياتي للجميع..


RE: أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - a.ahmed - 11-10-17

PHP كود :
Private Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
    fillComboBox1
()
 
   fillComboBox2()
End Sub

Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click
    fillDataGridView1
()
End Sub

Sub fillComboBox1
()
 
   Dim da As New OleDbDataAdapter(" SELECT DISTINCT [الصف] FROM [الجدول] "conn)
 
   Dim dt As New DataTable
    da
.Fill(dt)
 
   ComboBox1.DataSource dt
    ComboBox1
.DisplayMember "الصف"
End Sub

Sub fillComboBox2
()
 
   Dim da As New OleDbDataAdapter(" SELECT DISTINCT [المادة] FROM [الجدول] "conn)
 
   da.SelectCommand.Parameters.AddWithValue("@p1"Me.ComboBox1.Text)
 
   Dim dt As New DataTable
    da
.Fill(dt)
 
   ComboBox2.DataSource dt
    ComboBox2
.DisplayMember "المادة"
End Sub

Sub fillDataGridView1
()
 
   Dim da As New OleDbDataAdapter(" SELECT [الاسم],[الدرجة] FROM [الجدول] WHERE ([الصف]=@p1) AND  ([المادة]=@p2) "conn)
 
   da.SelectCommand.Parameters.AddWithValue("@p1"Me.ComboBox1.Text)
 
   da.SelectCommand.Parameters.AddWithValue("@p2"Me.ComboBox2.Text)
 
   Dim dt As New DataTable
    da
.Fill(dt)
 
   DataGridView1.DataSource dt
End Sub 



RE: أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - nassery99 - 11-10-17

أشكركم على سرعة الرد..جاااري التجربه


RE: أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - nassery99 - 11-10-17

    
 عملت  المحاولة حسب الكود ولم تفلح....علماً أن:

لدينا جدول للصفوف او المستويات باسم levels  يتكون من levelnum, levelname  تم تعبيئة الكومبو الأول من خلاله.

 

لدينا جدول المواد باسم courses  يتكون من coursenum ,coursename....تم تعبيئة الكمبو الثاني من خلاله.

 

لدينا جدول main  ويتكون من movmentnum, levelname,coursename,year

 

لدينا جدول main2 وفية رقم الطالب والدرجة ورقم الحركه

يعني:movmentnum ,stnum,degree

 

يرتبط جدول main و main2 بعلاقة من خلالmovmentnum

 

ويرتبط جدول main2 و جدولstutbl جدول الطلاب بعلاقة من خلال       stnum في كلاهما..

 

وعذراً على الاطاله.
 



RE: أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. - nassery99 - 11-10-17

عملت استعلام وبنيت عليه الخيارات والحمد لله ضبط الكود.