[VB.NET] ماهي افضل طريقة للتعامل مع ListViwe للحفظ البيانات

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

            conn.Open()



            For Each row As ListView In ListView1.Columns



                If row.FullRowSelect(0).Value Is Nothing Then Exit For



                Dim sql As String =

         " INSERT INTO [Return_Equipment] " &

         " ( Ren_NO, Cus_Name, Cus_Private_Number, Equ_Price, Equ_Name, Equ_Quantity, Equ_Price, Ren_Date, Ren_NO ) " &

         " VALUES " &

         " ( @Ren_NO, @Cus_Name, @Cus_Private_Number, @Equ_Price, @Equ_Name, @Equ_Quantity, @Equ_Price, @Ren_Date, @Ren_NO ) "

                Using cmd As New OleDbCommand(sql, conn)

                    cmd.Parameters.AddWithValue("@Ren_NO", ComboBox1.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text.ToString)

                    cmd.Parameters.AddWithValue("@Ret_Date", DateTimePicker1.Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Quantity", row.Cells(1).Value.ToString)

                    cmd.Parameters.AddWithValue("@Ren_Date", row.Cells(2).Value.ToString)

                    cmd.ExecuteNonQuery()



                End Using



            Next



            conn.Close()

        End Using



        MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        conn.Open()



        Dim sql As String =

           " INSERT INTO [Return_Equipment] " &

           " ( [Ren_NO], [Cus_Name], [Cus_Private_Number], [Equ_Price], [Equ_Name], [Equ_Quantity], [Ren_Date] ) " &

           " VALUES " &

           " ( @Ren_NO,  @Cus_Name,  @Cus_Private_Number,  @Equ_Price,  @Equ_Name,  @Equ_Quantity,  @Ren_Date  ) "

        Using cmd As New OleDbCommand(sql, conn)



            For Each itm As ListViewItem In ListView1.Items



                cmd.Parameters.Clear()

                cmd.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))

                cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text)

                cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text)

                cmd.Parameters.AddWithValue("@Equ_Price", TextBox3.Text)

                cmd.Parameters.AddWithValue("@Equ_Name", itm.SubItems(0).Text)

                cmd.Parameters.AddWithValue("@Equ_Quantity", itm.SubItems(1).Text)

                cmd.Parameters.AddWithValue("@Ren_Date", itm.SubItems(2).Text)



                cmd.ExecuteNonQuery()



            Next



        End Using



        conn.Close()

    End Using



    MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)