تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل]حفظ بيانات listbox
#1
شباب السلام عليكم ورحمة الله وبركاته
اخواني واخواتي كيفكم جميعا
لو سمحتم هل من الممكن ان تعدلوا لي هذا الكود بحيث يتم حفظ بيانات listbox مع هذه العناصر
ولو فيه خطأ أرجو تنبيهي لذلك
وشكرا لكم جميعا

تم تحسين ظهور الأكواد من قبل المشرفين ، بالتوفيق Smile

كود :
[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]
الرد }}}}
تم الشكر بواسطة:
#2
51 مشاهدة وبدون رد
هل الكود صعب
ام انني لم اعرف صياغة السؤال
الرد }}}}
تم الشكر بواسطة:
#3
اخي الكريم
هل المطلوب حفظ كل الـ items الموجودة بـ Listbox الى قاعدة البيانات ؟؟؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#4
نعم اخي سعود اعتقد انه يقصد ذلك .. اذا عندك خلفية عن الطريقة افدنا اخي سعود وشكرا
الرد }}}}
تم الشكر بواسطة:
#5
احتمال يقصد حفظ العنصر المحدد في الليست

يعني A5ListBox.SelectedItem بدل A5ListBox.Items.ToString

بس اللي أعرفه انه اللي المفروض يحفظ رقم index للعنصر وليس النص يعني A5ListBox.SelectedIndex
الرد }}}}
تم الشكر بواسطة:
#6
كلها سهلة بفضل الله حفظ الكل او حفظ المحدد.
الطريقة اننا نستخدم For ونمر على كل الـitems فان كان المطلوب حفظ الكل سنحفظ بدون شرط وان كان المطلوب حفظ المحدد سنضع شرط ان الـ item مظلل او محدد.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#7
بصراحة تفاجات انه لايمكنني حفظ النص لكل الـitems المحددة بل اقصد لم اتوصل لكيفية معرفة النص اصلا
هذا الكود الذي احاول فيه
كود :
Dim s As New List(Of DataRowView)

        For Each itm In ListBox1.SelectedItems
            s.Add(itm)


        Next
لدي اداة Listbox اخرى لحفظ المحددات لان الخاصية selectionmode = MultiExtended
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#8
كود :
Dim s As New List(Of [color=#FF0000]String[/color])

        For Each itm In ListBox1.SelectedItems
            s.Add(itm)


        Next
الرد }}}}
تم الشكر بواسطة:
#9
VB6DAO كتب :
كود :
Dim s As New List(Of [color=#FF0000]String[/color])

        For Each itm In ListBox1.SelectedItems
            s.Add(itm)


        Next

طيب هل جربت الكود؟؟
المقصود ان نظهر القيم المختارة يعني اظهر القيم المخزنة في s
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#10
كود :
Dim s As New List(Of String)

        For Each itm In ListBox1.SelectedItems
            s.Add(itm)
            ListBox2.Items.Add(itm)
        Next

اريده هكذا لكن خطا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,600 10-05-17, 03:13 PM
آخر رد: safalo
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 56 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 848 03-04-17, 02:48 AM
آخر رد: ابو إياد
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 152 10-03-17, 09:36 AM
آخر رد: عبد الله
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,234 28-02-17, 10:21 AM
آخر رد: وائل القطاوي
  قاعدة بيانات xml djelloul 2 168 06-02-17, 11:06 PM
آخر رد: djelloul
  كيفية عمل أتاش لقاعدة بيانات djelloul 0 165 24-01-17, 04:35 PM
آخر رد: djelloul
Bug [Acces2010] طريقة استدعاء بيانات النزيل القديم برقم الهوية يسرى7 12 602 18-01-17, 09:42 PM
آخر رد: يسرى7
  جلب البيانات من قاعدة بيانات XML djelloul 0 209 13-12-16, 07:45 PM
آخر رد: djelloul

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم