+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مساعدة في اللست بوكس Listbox (/showthread.php?tid=10217)
الصفحات:
1
2
مساعدة في اللست بوكس Listbox - eng.khalidvb - 24-08-13
السلام عليكم ورحمة الله وبركاته
اخواني اعضاء منتدى فيجوال بيسك ارجوا ان تساعدوني في حل هذه المشكله اترككم مع الصوره :
[ATTACH=CONFIG]3877[/ATTACH]
او من هذا الرابط اذا لم تكن الصورة واضحه
http://im41.gulfup.com/qqQJD.png
هذه هو كود الحفظ ارجوا التعديل عليه :
PHP كود :
Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
Try
saveinto.Connection = con
saveinto.CommandType = CommandType.Text
saveinto.CommandText = " insert into table1(name,units)" & "values ('" & txtname.Text & _
"', '" & lst_add.Sorted & "')"
con.Open()
saveinto.ExecuteNonQuery()
con.Close()
MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information, "Save Operation")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "خطاء في عملية الحفظ")
End Try
updatedataset()
End Sub
هذا الكود في حدث اللود فورم ارجوا التعديل عليه لعرض عناصر اللست بوكس
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.Open()
adpter.Fill(ds, "table1")
con.Close()
txtshowname.DataBindings.Add("text", ds, "table1.name")
lst_show.DataBindings.Add("text", ds, "table1.units")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "table1"
DataGridView1.AllowUserToAddRows = False
End Sub
مساعدة في اللست بوكس Listbox - eng.khalidvb - 24-08-13
مع العلم اني لا اريد استخدم هذه الطريقة
Settings << My Prject
فى خانة ال name اكتب اى اسم .. وليكن itms
وخانة ال Type اختار System.Collections.Specialized.StringCollection
اريد ايكون مثل ما اردت كما شرحته لكم .. ارجوا افادتي .. اشكركم ...
مساعدة في اللست بوكس Listbox - Sajad - 24-08-13
السلام عليكم
اخي العزيز الافضل أن ترفع المثال للتعديل عليه
مساعدة في اللست بوكس Listbox - MSDOS - 24-08-13
اولا: Sorted هذه امر لترتيب عناصر الليست وما هي العناصر نفسها، لأن العناصر موجودة في Items
ثانيا: عشان تحفظ العناصر في حقل واحد محتاجة كود يدمج العناصر ويضع رمز غير كتابي يبفل بين العناصر
ثالثا: عند الاستعلام حتحتاج كود بفكك العناصر المدموجة بدلالة الرمز اللي ذكرناه في ثانياً
طريقتك في حفظ العناصر في قاعدة البيانات غلط
المفروض عشان تكون قاعدة البيانات مرتبة واحترافية لازم.....
تجعل المواد في جدول ويكون لكل مادة رقم ما تفكر تغيره، وهو غير مخصص للعرض، هو فقط للدلالة على المادة.
وتجعل الطلبة في جدول ويكون لكل طالب رقم خاص (ممكن تعتمد رقم الهوية يكون افضل) والبيانات الأخرى وبدون مواد ودرجات وما الى ذلك.
تسوي جدول تقدر تقول اسمه مواد الطلبة،
في كل سجل رقم الطالب ورقم المادة المختارة،
وبعدين تجمعهم برقم الطالب لتعرف ارقام المواد، وبعدها برقم الطالب تعرف اسمه ورقم المادة تقدر تعرف المادة
المسألة كلها رقمية،
يعنى الطالب عبارة عن رقم
والمادة عبارة عن رقم
واذا فيه جدول اقسام فالقسم عبارة عن رقم وهكذا.......
حسب الصورة انت محتاج دورة تصميم قواعد البيانات.
وسامحوني...........
مساعدة في اللست بوكس Listbox - MSDOS - 24-08-13
sajad كتب :السلام عليكم
اخي العزيز الافضل أن ترفع المثال للتعديل عليه
تصدق أخي مرة انا قلتها بس مدري فين، قلت للسائل ارفع المشروع وياليتني ما قلتها، طلع مشروع طويل عريض معقد، بصراحة شردت منه لني خفت على دماغي.
احيانا نحسب ان السائل مبتدي ومشروعة يدوب فورم او اثنين مع شوية ادوات اربع او خمس ادوات
وتنفاجي مثل ما صار معي وهو مبتدي فعلا بس لمن فتحت مشروع لسائل وفيه يمكن عشرة فورم واخترت واحد من الفورم ولقيت فيه ما يقاب 100 اداة من تكتست وكومبو وتشك وبوتون وازارير عد واغلط.
........................
مساعدة في اللست بوكس Listbox - eng.khalidvb - 24-08-13
اخي انا فاهم انه الكود اللي كتبته غلط وفاهم انه الطريقة غلط في حفظ اللست بوكس انه استخدام ال Sorted غلط بس انا حاب اوصل طريقة ادخال العناصر اللي ف اللست بوكس الى قاعدة البيانات وعند استدعائها عن طريق كود اخر في حدث اللود فورم يتم عرض المدخلات في اللسته بوكس الاولى الخاصه باضافة المواد الى اللست بوكس الاخرى الخاص بعرض العانصر في عرض السجلات.
لا اريدها ان تكون ارقام ..
افهمني ارجوك ...
وانا لست مبتدئ..
فقط اواجه مشكله في اللست بوكس وما اعتقد ان السؤال عيب .. من يسال يجد ضالته ...
ارجوا من لديه خبره كافيه ان يجد طريقة لكيفيه عمل ذلك
سوف ارفق المشروع عمليته مشروع خفيف من فورم واحد لا اكثر وعدة ادوات كومبوبكس وليست بوكس لا اريد التعقيد كثيرا ..
اتمنى المساعده ... شكرا
مساعدة في اللست بوكس Listbox - eng.khalidvb - 25-08-13
Up Up Up Up
مساعدة في اللست بوكس Listbox - MSDOS - 25-08-13
eng.khalidvb كتب :اخي انا فاهم انه الكود اللي كتبته غلط وفاهم انه الطريقة غلط في حفظ اللست بوكس انه استخدام ال Sorted غلط بس انا حاب اوصل طريقة ادخال
العناصر اللي ف اللست بوكس الى قاعدة البيانات وعند استدعائها عن طريق كود اخر في حدث اللود فورم يتم عرض المدخلات في اللسته بوكس الاولى الخاصه باضافة المواد الى
اللست بوكس الاخرى الخاص بعرض العانصر في عرض السجلات.
لا اريدها ان تكون ارقام ..
افهمني ارجوك ...
وانا لست مبتدئ..
فقط اواجه مشكله في اللست بوكس وما اعتقد ان السؤال عيب .. من يسال يجد ضالته ...
ارجوا من لديه خبره كافيه ان يجد طريقة لكيفيه عمل ذلك
سوف ارفق المشروع عمليته مشروع خفيف من فورم واحد لا اكثر وعدة ادوات كومبوبكس وليست بوكس لا اريد التعقيد كثيرا ..
اتمنى المساعده ... شكرا
اخي باش مهندس خالد
لقد اطلعت على كتابك قبل قليل، جعله الله في ميزان حسناتك
هذا اسمه منتدى وليس معهد او كلية أو جامعة، يعني لا تتحسس من الردود، واللي ما يعرفك بجهلك
طالما أنك تريد دمج عناصر الليست في حقل واحد نصي اليك التعديل التالي
كود :
saveinto.CommandText = " insert into table1(name,units)" & "values ('" & txtname.Text & _
"', '" & (String.Join(", ", lst_add.Items.Cast(Of String)().ToArray())) & "')"وإذا اردت عرض حقل المواد في الليست استخدم التالي (هذه بطريقة التعبئة بالكود، لكن انت استخدمت الربط ما ادري كيف تستويها)
كود :
lst_show.Items.AddRange(ds.Tables(0).Rows(0).Item("units").Split(", "))هذه الطريقة مأخوذة من أحد أمثلة العضو @@أبورائد@@ وهذه هي الآكواد الأصلية
كود :
TextBox1.Text = String.Join(vbTab, ListBox1.Items.Cast(Of String)().ToArray())كود :
Me.ListBox2.Items.AddRange(TextBox1.Text.Split(vbTab))مساعدة في اللست بوكس Listbox - eng.khalidvb - 25-08-13
ممتاز اخي المميز msdos كود اضافة العناصر اشتغل ميه الميه .. لا اخي انا لم اتحسس ابدا ولكن لا احب الكلمات التي تحبط من المعنويه دائما احب ان اطور من مستواي .. وهذا بفضلكم وبفضل منتدى فيجوال بيسك ..
اخي في كود الاخر لعرض العناصر داخل اللست بوكس
الكود فقط يعرض اول صف بالنسبه لجميع الحقول
PHP كود :
lst_show.Items.AddRange(ds.Tables(0).Rows(0).Item("units").Split(", "))
انا استخدمت من قبل هذا الكود
انا استخدمت هذا الكود ايضا ولكن بنفس النتيجه يعرض فقط اليونتس لاول صف لجميع الصفوف
PHP كود :
lst_show.DataSource = ds.Tables("table1")
lst_show.DisplayMember = "units"
هل هناك تعديل ممكن يجعل اليونتس يعرض المحتوى في اللست بوكس حسب السجل وكل سجل على حدى بمحتوياته الخاصه.
انا اريد ان يعرض لكل سجل محتويات اليونتس الخاص به
مساعدة في اللست بوكس Listbox - MSDOS - 25-08-13
جرب هذا الكود (طبعا بطريقة الكود)
كود :
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
Try
txtshowname.Text = ""
lst_show.Items.Clear()
Dim sql As String = "Select * From [table1] Where [name]='" & DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value & "'"
Dim da As New OleDb.OleDbDataAdapter(sql, con)
Dim dt As New DataTable
da.Fill(dt)
txtshowname.Text = dt.Rows(0).Item("name")
lst_show.Items.AddRange(dt.Rows(0).Item("units").Split(", "))
Catch ex As Exception
End Try
End Sub