منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ود تحميل القسم من قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 

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

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

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

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

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

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

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

عليك بوضع اسماءء الازارير في مصفوفه
وداخل for تضع البيانات لكل زر بمعرفته من داخل المصفوفه
لم افهم داخل مصفوفة
كيف جبت الاقسام عشان اشرحلك
يعنى ايه هو الكود يللى عندك
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() 
الله يبارك فيك ويجزاك الف خير

جميل جدا

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