[ahmedfa71]

السلام عليكم ورحمة الله وبركاته ورمضان كريم 
وتقبل الله منا ومنكم صالح الأعمال

لدي جدول في قاعدة البيانات أريد أن كل مرة أجلب إليه ملف نصي لقاعدة بيانات 
أريد كل مرة أجلب فيه هذا الملف يجب أن يحذف كل ما هو موجود في الجدول قبل عملية الحفظ من جديد
أستعمل هذا الكود مرة يشتغل بكفاءة ومرة أجد أنه أضاف الملف على ما هو موجود في الجدول 
فما الخطأ 

كود :

Private Sub SaveText()
       Try
           Dim cmd As OleDbCommand = New OleDbCommand("Delete * from Emp", con)
           con.Open()
           cmd.ExecuteNonQuery()
           con.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       For Each row As DataGridViewRow In DGView1.Rows
           If row.Cells("Nom").Value IsNot Nothing Then
               Using cmd1 As New OleDbCommand("INSERT INTO Emp (nom,NCcp,Cle,MontApayer) VALUES(@Nom, @Compte,  @Cle, @Montant)", con)
                   cmd1.Parameters.AddWithValue("@Nom", row.Cells("Nom").Value)
                   cmd1.Parameters.AddWithValue("@Compte", row.Cells("NCcp").Value)
                   cmd1.Parameters.AddWithValue("@Cle", row.Cells("Cle").Value)
                   cmd1.Parameters.AddWithValue("@Montant", row.Cells("MontApayer").Value)
                   con.Open()
                   cmd1.ExecuteNonQuery()
                   cmd1.Dispose()
                   con.Close()
               End Using
           End If
       Next
       MessageBox.Show("تمت عملية الحفظ بنجاح")
   End Sub