(10-03-15, 09:21 AM)ameerah كتب : جرب هذا الكود من أحد الدروس

كود :

Public Class Form1

   Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb")

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Try

           Using cmd As New OleDb.OleDbCommand("INSERT INTO [table] ([column1], [column2], [column3]) VALUES (@value1, @value2, @value3)", conn)

               conn.Open()

               For Each item As ListViewItem In ListView1.Items
                   cmd.Parameters.Clear()
                   cmd.Parameters.AddWithValue("@value1", item.SubItems(0).Text)
                   cmd.Parameters.AddWithValue("@value2", item.SubItems(1).Text)
                   cmd.Parameters.AddWithValue("@value3", item.SubItems(2).Text)
                   cmd.ExecuteNonQuery()
               Next

               conn.Close()

               MsgBox("تم الحفظ")

           End Using

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

End Class