[elgokr]

وعليكم اللام ورحمة الله وبركاته

الكود يستخدم بهذا الشكل

كود :

Private Sub SaveText()
    Try
        Dim cmd As OleDbCommand = New OleDbCommand("Delete * FROM Emp", con)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        For Each row As DataGridViewRow In DGView1.Rows
            If row.Cells("Nom").Value 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

وبحدث التنفيذ بيكون بهذا الشكل

كود :

    Try
        SaveText()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

تحياتى لك

وتمنياتى لك التوفيق