تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox
#1
السلام عليكم

عندي قاعدة بيانات نوع أكسس 2007 بها عمود أسمه الصنف وعمود أخر إسمه القيمة

عندي فورم بها comboBox متصلة بقاعدة البيانات بالعمود الصنف
وعندي TxetBox فارغ

أريد كل ما أختار نوع الصنف من ComboBox يظهر لي قيمته في TextBox
بدون إستعمال أزرار إذا أمكن ذلك ( بمجرد الإختيار يظهر القيمة )

ولو لازم من وجود زر ما فيش مشكلة
الرد }}}
تم الشكر بواسطة:
#2
(22-12-14, 09:02 PM)momiana1 كتب : السلام عليكم

عندي قاعدة بيانات نوع أكسس 2007 بها عمود أسمه الصنف وعمود أخر إسمه القيمة

عندي فورم بها comboBox متصلة بقاعدة البيانات بالعمود الصنف
وعندي TxetBox فارغ

أريد كل ما أختار نوع الصنف من ComboBox يظهر لي قيمته في TextBox
بدون إستعمال أزرار ( بمجرد الإختيار يظهر السعر )


مثلا مثلا
كوموبوكس مكونة من اسماء
خالد
عمر

وتيكست بوكس مكونة من اعمارهم
15
22
اذا //

كود :
If ComboBox1.Text = "خالد" Then
            Textbox1.text = "15"
        ElseIf ComboBox1.Text = "عمر" Then
            TextBox1.text = "22"


        End If
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة: حريف برمجة
#3
أيوا بالضبط هذا اللى أريده ، بس بالطريقة هذه لا تصلح

لأنه عندي أكثر من 250 صنف وبالكود هذا ح أكتب شرط If أكثر من 250  مرة
وفي حالة إضافة صنف جديد ، سأضطر لتعديل الكود

أريد كود يقوم بالإتصال بقاعدة البيانات ويقوم بإستعلام القيمة بشرط ( بند Combobox )


هذا الكود يقوم بتحميل بيانات عمود الصنف من قاعدة البيانات وإظهاره في Combobox وهو شغال تمام
كود :
Dim i As Integer
        For i = 0 To DataSet1.Tables("Table_name").Rows.Count - 1
            ComboBox1.Items.Insert(i, DataSet1.Tables("Table_name").Rows(i).Item("item_name"))
        Next
الرد }}}
تم الشكر بواسطة: حريف برمجة
#4
(22-12-14, 10:47 PM)momiana1 كتب : أيوا بالضبط هذا اللى أريده ، بس بالطريقة هذه لا تصلح

لأنه عندي أكثر من 250 صنف وبالكود هذا ح أكتب شرط If أكثر من 250  مرة
وفي حالة إضافة صنف جديد ، سأضطر لتعديل الكود

أريد كود يقوم بالإتصال بقاعدة البيانات ويقوم بإستعلام القيمة بشرط ( بند Combobox )


هذا الكود يقوم بتحميل بيانات عمود الصنف من قاعدة البيانات وإظهاره في Combobox وهو شغال تمام



كود :
Dim i As Integer
       For i = 0 To DataSet1.Tables("Table_name").Rows.Count - 1
           ComboBox1.Items.Insert(i, DataSet1.Tables("Table_name").Rows(i).Item("item_name"))
       Next

اجل استخدم طريقة  SELECT



كود :
 Home.Open()
       Try

           Dim MODZ As OleDbDataReader

           Dim MAD As New OleDbCommand
           MAD.Connection = Home
           MAD.CommandText = "select * From ostaz where [اسماء] ='" + ComboBox1.Text + "'"


           MODZ = MAD.ExecuteReader

           If MODZ.Read Then
               TextBox1.Text = MODZ(1)
             
           
           End If




       Catch ex As Exception
           MsgBox(ex.Message.ToString)



       End Try
       Home.Close()

نلاحظ وجود رقم 1 وهذا يقصد رقم العامود الذي يوجد به عمر خالد

وعلما بأن الاسم العامود [0] والعمر عامود [1] وهكذا اتمنى فهمت  
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
#5
ح أجرب الكود وأقولك على النتيجة ،،،
الرد }}}
تم الشكر بواسطة: حريف برمجة
#6
السلام عليكم

أخي modz تمت العملية بنجاح ،،،
جزاكـ اللهـ كلـ خير
الرد }}}
تم الشكر بواسطة: حريف برمجة
#7
(23-12-14, 01:15 AM)momiana1 كتب : السلام عليكم

أخي modz تمت العملية بنجاح ،،،
جزاكـ اللهـ كلـ خير

تمت عافيتك ي رب , وشكرا ع طرحك للسؤال الجميل Heart
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة: momiana1 , حريف برمجة , حريف برمجة
#8
(22-12-14, 11:09 PM)mudz كتب :
(22-12-14, 10:47 PM)momiana1 كتب : أيوا بالضبط هذا اللى أريده ، بس بالطريقة هذه لا تصلح

لأنه عندي أكثر من 250 صنف وبالكود هذا ح أكتب شرط If أكثر من 250  مرة
وفي حالة إضافة صنف جديد ، سأضطر لتعديل الكود

أريد كود يقوم بالإتصال بقاعدة البيانات ويقوم بإستعلام القيمة بشرط ( بند Combobox )


هذا الكود يقوم بتحميل بيانات عمود الصنف من قاعدة البيانات وإظهاره في Combobox وهو شغال تمام



كود :
Dim i As Integer
       For i = 0 To DataSet1.Tables("Table_name").Rows.Count - 1
           ComboBox1.Items.Insert(i, DataSet1.Tables("Table_name").Rows(i).Item("item_name"))
       Next

اجل استخدم طريقة  SELECT



كود :
 Home.Open()
       Try

           Dim MODZ As OleDbDataReader

           Dim MAD As New OleDbCommand
           MAD.Connection = Home
           MAD.CommandText = "select * From ostaz where [اسماء] ='" + ComboBox1.Text + "'"


           MODZ = MAD.ExecuteReader

           If MODZ.Read Then
               TextBox1.Text = MODZ(1)
             
           
           End If




       Catch ex As Exception
           MsgBox(ex.Message.ToString)



       End Try
       Home.Close()

نلاحظ وجود رقم 1 وهذا يقصد رقم العامود الذي يوجد به عمر خالد

وعلما بأن الاسم العامود [0] والعمر عامود [1] وهكذا اتمنى فهمت  
 لو سمحت انا جربت الكود بس مشتغلش معايا
انا عندي الكمبوبوكس اسماء العملاء والتيكست بوكس عاوز يظهر فيه كود العميل
انا شغال في قاعدة بيانات اكسس
الرد }}}
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#9
سلام عليكم يا شباب
محتاج كود عرض اكثر من جدول فى datagridview واحدة عن طريق اختيار الجدول من كومبوكس فيها اسما جداول
فعند اختيار اسم جدول من الكومبوكس يتم تحميل البيانات الجدول فى datagridview واقوم بالتعديل على اى جدول
وكذلك كود رز الحفظ والتعديل يضيف البيانات حسب عرض اى جدول علىdatagridview
الرد }}}
تم الشكر بواسطة: حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اتعامل مع databindings و ال combobox سلام و محبه 2 52 24-03-24, 05:00 AM
آخر رد: سلام و محبه
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  [VB.NET] استدعاء بيانات في TextBox بناء على combobox loay775 2 264 18-01-24, 05:07 PM
آخر رد: loay775
  إدخال معادلة رياضية في textBox وبرمجة حلها؟ الخير19 3 299 03-01-24, 04:19 PM
آخر رد: الخير19
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  ارجاع قيمة Function سعد منصور 1 268 01-11-23, 02:10 AM
آخر رد: Taha Okla
  تعبئة CheckListBox من قاعدة البيانات حسب الإختيار من Combobox صالح عبدالله 1 334 14-10-23, 10:26 PM
آخر رد: aljzazy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم