[momiana1]

السلام عليكم

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

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

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

ولو لازم من وجود زر ما فيش مشكلة

[mudz]

(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

[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

[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] وهكذا اتمنى فهمت  

[momiana1]

ح أجرب الكود وأقولك على النتيجة ،،،

[momiana1]

السلام عليكم

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

[mudz]

(23-12-14, 01:15 AM)momiana1 كتب : السلام عليكم

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

تمت عافيتك ي رب , وشكرا ع طرحك للسؤال الجميل

[ahmedgamal]

(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] وهكذا اتمنى فهمت  

 لو سمحت انا جربت الكود بس مشتغلش معايا
انا عندي الكمبوبوكس اسماء العملاء والتيكست بوكس عاوز يظهر فيه كود العميل
انا شغال في قاعدة بيانات اكسس

[mohammed1994]

سلام عليكم يا شباب
محتاج كود عرض اكثر من جدول فى datagridview واحدة عن طريق اختيار الجدول من كومبوكس فيها اسما جداول
فعند اختيار اسم جدول من الكومبوكس يتم تحميل البيانات الجدول فى datagridview واقوم بالتعديل على اى جدول
وكذلك كود رز الحفظ والتعديل يضيف البيانات حسب عرض اى جدول علىdatagridview