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

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



ود تحميل القسم من قاعدة البيانات - عمور2016 - 08-08-20

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

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

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

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

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


RE: ود تحميل القسم من قاعدة البيانات - بلدي - 08-08-20

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

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


RE: ود تحميل القسم من قاعدة البيانات - عمور2016 - 08-08-20

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

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

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


RE: ود تحميل القسم من قاعدة البيانات - بلدي - 08-08-20

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

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


RE: ود تحميل القسم من قاعدة البيانات - عمور2016 - 08-08-20

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


RE: ود تحميل القسم من قاعدة البيانات - بلدي - 08-08-20

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


RE: ود تحميل القسم من قاعدة البيانات - عمور2016 - 08-08-20

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() 

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

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


RE: ود تحميل القسم من قاعدة البيانات - بلدي - 08-08-20

(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() 



RE: ود تحميل القسم من قاعدة البيانات - عمور2016 - 08-08-20

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

جميل جدا

تحياتي


RE: ود تحميل القسم من قاعدة البيانات - عمور2016 - 09-08-20

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