الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Listbox to Database

بدأه عيسى الشريف في 19 يناير 2014 · 1 رد · 516 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

 

أريد إضافة محتويات مربع قائمة لقاعدة بيانات بأستخدام vb.net 2008  وأنا جديد على دوت نت  :blush:

 

هذا الكود اللذي وصلت له ولكن لا شيء يحدث

Try
            Dim z As Long
            z = ListBox1.Items.Count
            Dim SavInto As New OleDb.OleDbCommand
            Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
            Application.StartupPath & "\Colors_sets.mdb"
            Dim Conn As New OleDbConnection(ConStr)
            Dim j As Integer = 0

            Do While (j = z)

                
                SavInto.Connection = Conn
                SavInto.CommandType = CommandType.Text

                SavInto.CommandText = "INSERT INTO tbl (a)" & "values ('" & ListBox1.Text & "') "
                Conn.Open()
                SavInto.ExecuteNonQuery()
                Conn.Close()
               
                j = (j + 1)

            Loop
            MessageBox.Show("تمت عملية الحفظ بنجاح")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

أريد المشورة من أهل الخبرة و جزيل الشكر مسبقا

#2

الحل :

        Try
            
            Dim SavInto As New OleDb.OleDbCommand
            Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
            Application.StartupPath & "\Colors_sets.mdb"
            Dim Conn As New OleDbConnection(ConStr)
            For Each item In ListBox1.Items
                SavInto.Connection = Conn
                SavInto.CommandType = CommandType.Text
                SavInto.CommandText = "INSERT INTO tbl (a)" & "values ('" & item.ToString & "') "
                Conn.Open()
                SavInto.ExecuteNonQuery()
                Conn.Close()
            Next
            MessageBox.Show("تمت عملية الحفظ بنجاح")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

تم تعديل هذه المشاركة بواسطة عيسى الشريف في 19 يناير 2014 في 19:33

مواضيع مشابهة