[الطالب]

سلام

كود :

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)

موفقين