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