12-05-19, 03:21 PM
السلام عليكم ورحمة الله وبركاته ورمضان كريم
وتقبل الله منا ومنكم صالح الأعمال
لدي جدول في قاعدة البيانات أريد أن كل مرة أجلب إليه ملف نصي لقاعدة بيانات
أريد كل مرة أجلب فيه هذا الملف يجب أن يحذف كل ما هو موجود في الجدول قبل عملية الحفظ من جديد
أستعمل هذا الكود مرة يشتغل بكفاءة ومرة أجد أنه أضاف الملف على ما هو موجود في الجدول
فما الخطأ
وتقبل الله منا ومنكم صالح الأعمال
لدي جدول في قاعدة البيانات أريد أن كل مرة أجلب إليه ملف نصي لقاعدة بيانات
أريد كل مرة أجلب فيه هذا الملف يجب أن يحذف كل ما هو موجود في الجدول قبل عملية الحفظ من جديد
أستعمل هذا الكود مرة يشتغل بكفاءة ومرة أجد أنه أضاف الملف على ما هو موجود في الجدول
فما الخطأ
كود :
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