[عمور2016]

السلام عليكم ورحمة الله وبركاته 

اريد كود تحميل القسم من قاعدة البيانات لعمود واحد في او على الازرار  بوتون(بحيث تظهر ازرار تعرض جميع الاقسام)

بدلا من من تحميل عمود واحد على كومبوبوكس وتختار واحد 

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

ارجو ان وضحت الشرح؟

[بلدي]

غير واضح
هل تقصد تعرض مجموعه من الازارير بعدد الاقسام

اذا هذا فبعد الاستعلام قم بعمل for على البيانات وداخله اعمل انشا زر مثل new button لكل قسم وضعه في المكان المناسب لك

[عمور2016]

طبعا الازرار انا واضعها كدد مثلا 16 فقط كحد اعلا للاقسام

الازرار الضاهرة حاليا في الصورة هيه داخل panel1 ,panel2

واريد ان تظهر البيانات على الازرار اعتمادا على index

[بلدي]

اسف يبدو انني اصبت بالعمى فلم الصوره

عليك بوضع اسماءء الازارير في مصفوفه
وداخل for تضع البيانات لكل زر بمعرفته من داخل المصفوفه

[عمور2016]

لم افهم داخل مصفوفة

[بلدي]

كيف جبت الاقسام عشان اشرحلك
يعنى ايه هو الكود يللى عندك

[عمور2016]

PHP كود :

       Dim query As String
        Dim command As OleDbCommand
        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        query = "SELECT dep_name FROM [department]"
        command = New OleDbCommand(query, con)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                ComboBox1.Items.Add(reader(0))
                'Label2.Text = "تمت الاضافة"
            End While
        End If
        reader.Close()
        con.Close() 


---

هذا الكود يشمل الكومبو فقط والليست بوكس

شوف اي كود من عندك

[بلدي]

(08-08-20, 11:39 PM)عمور2016 كتب :

PHP كود :

       Dim query As String
        Dim command As OleDbCommand
        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        query = "SELECT dep_name FROM [department]"
        command = New OleDbCommand(query, con)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                ComboBox1.Items.Add(reader(0))
                'Label2.Text = "تمت الاضافة"
            End While
        End If
        reader.Close()
        con.Close() 


---

هذا الكود يشمل الكومبو فقط والليست بوكس

شوف اي كود من عندك

المتغير buttons هو المصفوفه

PHP كود :

       
dim buttons as button()={button1,button2,button3}

Dim query As String
        Dim command As OleDbCommand
        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        query = "SELECT dep_name FROM [department]"
        command = New OleDbCommand(query, con)
        reader = command.ExecuteReader()
        If reader.HasRows Then
dim i=0
            While reader.Read()
                'ComboBox1.Items.Add(reader(0))
                'Label2.Text = "تمت الاضافة"
buttons(i).text=reader(0)
i=i+1
if i=buttons.count then exit while
            End While
        End If
        reader.Close()
        con.Close() 


[عمور2016]

الله يبارك فيك ويجزاك الف خير

جميل جدا

تحياتي

[عمور2016]

باقي نقطة اخيره لو تكرمت البوتون التي لا يظهر عليها بيان اريد ان يخفيها