+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9686)
[عنوان معدل]حفظ بيانات listbox - fhad24 - 20-07-13
شباب السلام عليكم ورحمة الله وبركاته
اخواني واخواتي كيفكم جميعا
لو سمحتم هل من الممكن ان تعدلوا لي هذا الكود بحيث يتم حفظ بيانات listbox مع هذه العناصر
ولو فيه خطأ أرجو تنبيهي لذلك
وشكرا لكم جميعا
تم تحسين ظهور الأكواد من قبل المشرفين ، بالتوفيق
كود :
[align=left]
[color=#0000FF]Try [/color][COLOR=#008000]' حفظ التكست فقط
[/COLOR][color=#0000FF]Dim [/color][color=#000000]SavInto [/color][color=#0000FF]As New [/color][color=#000000]OleDb.[/color][COLOR=#2B91AF]OleDbCommand
[/COLOR][color=#0000FF]Dim [/color][color=#000000]ConStr [/color][color=#0000FF]As String [/color][color=#000000]= [/color][color=#A31515]"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" [/color][color=#000000]& [/color][color=#2B91AF]Application[/color][color=#000000].StartupPath & [/color][COLOR=#A31515]"\data.mdb;user id=admin;jet oledb:database password=12345"
[/COLOR][color=#0000FF]Dim [/color][color=#000000]Conn [/color][color=#0000FF]As New [/color][COLOR=#000000]OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = [/COLOR][color=#2B91AF]CommandType[/color][COLOR=#000000].Text
SavInto.CommandText = [/COLOR][color=#A31515]"INSERT INTO a7( a1, a2, a3, a4, a5, a6 )" [/color][color=#000000]& [/color][color=#A31515]"values ('" [/color][color=#000000]+ A2TextBox.Text + [/color][color=#A31515]"','" [/color][color=#000000]+ A2ComboBox.SelectedItem + [/color][color=#A31515]"','" [/color][color=#000000]+ ComboBox3.SelectedItem + [/color][color=#A31515]"','" [/color][color=#000000]+ ComboBox2.SelectedItem + [/color][color=#A31515]"','" [/color][color=#000000]+ A5ListBox.Items.ToString() + [/color][color=#A31515]"','" [/color][color=#000000]+ q4.Text + [/color][COLOR=#A31515]"')"
[/COLOR][COLOR=#000000]Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
[/COLOR][color=#0000FF]Me[/color][color=#000000].A7TableAdapter.Fill([/color][color=#0000FF]Me[/color][COLOR=#000000].DataDataSet.a7)
MsgBox([/COLOR][color=#A31515]"تم حفظ البيانات الجديدة بنجاح"[/color][color=#000000], [/color][color=#2B91AF]MsgBoxStyle[/color][color=#000000].Information, [/color][color=#A31515]""[/color][COLOR=#000000])
[/COLOR][color=#0000FF]Catch [/color][color=#000000]ex [/color][color=#0000FF]As [/color][COLOR=#2B91AF]Exception
[/COLOR][COLOR=#000000]MsgBox(ex.Message)
[/COLOR][COLOR=#0000FF]Exit Sub
End Try[/COLOR]
[/align][عنوان معدل]حفظ بيانات listbox - fhad24 - 22-07-13
51 مشاهدة وبدون رد
هل الكود صعب
ام انني لم اعرف صياغة السؤال
[عنوان معدل]حفظ بيانات listbox - سعود - 30-07-13
اخي الكريم
هل المطلوب حفظ كل الـ items الموجودة بـ Listbox الى قاعدة البيانات ؟؟؟
[عنوان معدل]حفظ بيانات listbox - eng.khalidvb - 23-08-13
نعم اخي سعود اعتقد انه يقصد ذلك .. اذا عندك خلفية عن الطريقة افدنا اخي سعود وشكرا
[عنوان معدل]حفظ بيانات listbox - MSDOS - 23-08-13
احتمال يقصد حفظ العنصر المحدد في الليست
يعني A5ListBox.SelectedItem بدل A5ListBox.Items.ToString
بس اللي أعرفه انه اللي المفروض يحفظ رقم index للعنصر وليس النص يعني A5ListBox.SelectedIndex
[عنوان معدل]حفظ بيانات listbox - سعود - 23-08-13
كلها سهلة بفضل الله حفظ الكل او حفظ المحدد.
الطريقة اننا نستخدم For ونمر على كل الـitems فان كان المطلوب حفظ الكل سنحفظ بدون شرط وان كان المطلوب حفظ المحدد سنضع شرط ان الـ item مظلل او محدد.
[عنوان معدل]حفظ بيانات listbox - سعود - 23-08-13
بصراحة تفاجات انه لايمكنني حفظ النص لكل الـitems المحددة بل اقصد لم اتوصل لكيفية معرفة النص اصلا
هذا الكود الذي احاول فيه
كود :
Dim s As New List(Of DataRowView)
For Each itm In ListBox1.SelectedItems
s.Add(itm)
Next[عنوان معدل]حفظ بيانات listbox - VB6DAO - 23-08-13
كود :
Dim s As New List(Of [color=#FF0000]String[/color])
For Each itm In ListBox1.SelectedItems
s.Add(itm)
Next[عنوان معدل]حفظ بيانات listbox - سعود - 23-08-13
VB6DAO كتب :كود :
Dim s As New List(Of [color=#FF0000]String[/color])
For Each itm In ListBox1.SelectedItems
s.Add(itm)
Next
طيب هل جربت الكود؟؟
المقصود ان نظهر القيم المختارة يعني اظهر القيم المخزنة في s
[عنوان معدل]حفظ بيانات listbox - سعود - 23-08-13
كود :
Dim s As New List(Of String)
For Each itm In ListBox1.SelectedItems
s.Add(itm)
ListBox2.Items.Add(itm)
Nextاريده هكذا لكن خطا