منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > [عنوان معدل]حفظ بيانات listbox
نسخة كاملة : [عنوان معدل]حفظ بيانات listbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4

fhad24

20-07-13, 05:42 AM
شباب السلام عليكم ورحمة الله وبركاته
اخواني واخواتي كيفكم جميعا
لو سمحتم هل من الممكن ان تعدلوا لي هذا الكود بحيث يتم حفظ بيانات 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]

fhad24

22-07-13, 11:23 PM
51 مشاهدة وبدون رد
هل الكود صعب
ام انني لم اعرف صياغة السؤال

سعود

30-07-13, 11:34 PM
اخي الكريم
هل المطلوب حفظ كل الـ items الموجودة بـ Listbox الى قاعدة البيانات ؟؟؟

eng.khalidvb

23-08-13, 11:50 AM
نعم اخي سعود اعتقد انه يقصد ذلك .. اذا عندك خلفية عن الطريقة افدنا اخي سعود وشكرا

MSDOS

23-08-13, 03:45 PM
احتمال يقصد حفظ العنصر المحدد في الليست

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

بس اللي أعرفه انه اللي المفروض يحفظ رقم index للعنصر وليس النص يعني A5ListBox.SelectedIndex

سعود

23-08-13, 08:25 PM
كلها سهلة بفضل الله حفظ الكل او حفظ المحدد.
الطريقة اننا نستخدم For ونمر على كل الـitems فان كان المطلوب حفظ الكل سنحفظ بدون شرط وان كان المطلوب حفظ المحدد سنضع شرط ان الـ item مظلل او محدد.

سعود

23-08-13, 10:37 PM
بصراحة تفاجات انه لايمكنني حفظ النص لكل الـitems المحددة بل اقصد لم اتوصل لكيفية معرفة النص اصلا
هذا الكود الذي احاول فيه
كود :
Dim s As New List(Of DataRowView)

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


        Next
لدي اداة Listbox اخرى لحفظ المحددات لان الخاصية selectionmode = MultiExtended

VB6DAO

23-08-13, 10:57 PM
كود :
Dim s As New List(Of [color=#FF0000]String[/color])

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


        Next

سعود

23-08-13, 11:01 PM
VB6DAO كتب :
كود :
Dim s As New List(Of [color=#FF0000]String[/color])

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


        Next

طيب هل جربت الكود؟؟
المقصود ان نظهر القيم المختارة يعني اظهر القيم المخزنة في s

سعود

23-08-13, 11:04 PM
كود :
Dim s As New List(Of String)

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

اريده هكذا لكن خطا
الصفحات : 1 2 3 4
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > [عنوان معدل]حفظ بيانات listbox