无法直接使用在MS Access中插入，更新或删除的数据

如何解决无法直接使用在MS Access中插入，更新或删除的数据

我在VB.Net中的应用程序在一个数据网格视图（绑定了BindingSource，但是如果是DataTable，则结果/问题相同）中从MS Access加载数据。

Private Sub LecturesPrestations()

        Dim myConnection = New OleDbConnection(S7ConnString)
        Try
            myConnection.Open()
            Requete = "SELECT s.ID,u.Nom,s.DatePresta,s.TimeIn,s.TimeOut,IIF(s.TimeOut IS NULL,NULL,CDATE(s.TimeOut - s.TimeIn)) AS Duree,s.Description " &
                      "FROM SAV_Prestas AS s " &
                      "INNER JOIN Users AS u ON u.ID = s.UserID " &
                      "WHERE s.NumRMA = " & monRetour.ID & ";"
            Call GetBindingSource(Requete,bsPrestas,RequeteOK)
            If Not RequeteOK Then
                MsgBox("Problème de lecture des données","Chargement des prestations")
            Else
                With Me.dgvPresta
                    .DataSource = bsPrestas
                    ...

然后我们可以通过明确的Access指令（INSERT，DELETE，UPDATE ...）在此dgv中插入，删除或修改一行。然后刷新dgv（重新加载）以包括这些修改。

    Private Sub tsmiSuppression_Click(sender As Object,e As EventArgs) Handles tsmiSuppression.Click

        If dgvPresta.CurrentCell IsNot Nothing Then
            Requete = "DELETE * FROM SAV_Prestas WHERE ID = " & CInt(dgvPresta.Item("ID",dgvPresta.CurrentCell.RowIndex).Value.ToString)
            RequeteSQL(Requete,RequeteOK)
            If Not RequeteOK Then
                MsgBox("La prestation n'a pas pu être supprimée.")
            Else
                Call LecturesPrestations()
            End If
        Else
            MsgBox("Sélectionnez une prestation.",vbOKOnly,vbInformation)
        End If

    End Sub

    Public Sub RequeteSQL(ByVal Request As String,ByRef Resultat As Boolean,Optional ByRef MsgErreur As String = Nothing)

        Dim myConnection = New OleDb.OleDbConnection(S7ConnString)
        Try
            myConnection.Open()
            Dim myCommand = New OleDbCommand(Request,myConnection)
            myCommand.ExecuteNonQuery()
            Resultat = True
        Catch ex As Exception
            Resultat = False
            MsgErreur = ex.Message
        Finally
            myConnection.Close()
        End Try

    End Sub

通过这种方式，dgv不会显示修改后的数据（例如：仍然显示已删除的数据）。只是在几秒钟后进行新的“刷新”之后，修改才会出现。

您知道什么地方有问题以及如何解决吗？

谢谢。

解决方法

您是否尝试过在SQL查询后刷新datagridview？

在“致电LecturesPrestations（）”之后致电dgvPresta.refresh（）

与数据库的连接性能和大小可能是问题所在。