MS Access DAO 连接在退出时放弃更改

Question

所以我有这个 Access 表单，我在其中使用这个 VBA 代码和到 MySQL 数据库的 DAO 连接。一切正常，但如果用户在没有单击保存按钮的情况下关闭表单，新记录仍然会被保存。

所以我正在寻找的是，如果有任何方法可以在关闭事件时停止将新记录保存到数据库中？

我有的代码，

Private Sub Form_Load()
    'Set Form Recordset
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQL As String

    Set db = OpenDatabase("", False, False, Globales.ConnString)
    SQL = "SELECT tbl6Suplidores.ID, tbl6Suplidores.NombreSuplidor, tbl6Suplidores.NumeroComerciante, tbl6Suplidores.DescripcionBienes, tbl6Suplidores.NombreContacto, tbl6Suplidores.NumeroTelefono, tbl6Suplidores.Email " _
        & "FROM tbl6Suplidores;"

    Set rs = db.OpenRecordset(SQL, dbOpenDynaset, dbAppendOnly)
    Set Me.Form.Recordset = rs
End Sub

我在想，因为我使用了 dbAppendOnly 它不会让我在关闭事件时删除当前记录吗？

欢迎任何想法！谢谢！

Answer 1

考虑一种不同的方法，让用户输入未绑定的表单并单击保存按钮以更新填充字段中的 MySQL table。不保存就退出表单将不会执行任何操作。这也是一种更主动的方法，因为它允许您在运行保存操作之前检查验证和其他逻辑。

下面使用带有 QueryDefs 的 parameterized append query。此外，ID 被假定为一个自动编号，因此被排除在查询之外。 Sub应该放在保存按钮的OnClick触发事件后面。

Private Sub SaveButton_Click()
    Dim db As DAO.Database, qdef As DAO.QueryDef
    Dim SQL As String

    Set db = OpenDatabase("", False, False, Globales.ConnString)

    ' PREPARED STATEMENT WITH NAMED PARAMETERS
    SQL = "PARAMETERS ns_param VARCHAR(255), ncom_param INTEGER, db_param VARCHAR(255), " _
          & "         ncnt_param INTEGER, nt_param INTEGER, e_param VARCHAR(255);" _
          & " INSERT INTO (NombreSuplidor, NumeroComerciante, DescripcionBienes, " _
          & "              NombreContacto, NumeroTelefono, Email) " _
          & " VALUES (ns_param, ncom_param, db_param, ncnt_param, nt_param, e_param);"

    ' INITIALIZE QUERYDEF
    Set qdef = db.CreateQueryDef("", SQL)

    ' BIND PARAMETERS TO FORM FIELDS
    qdef!ns_param = Forms!MyFormName!NombreSuplidor
    qdef!ncom_param = Forms!MyFormName!NumeroComerciante
    qdef!db_param = Forms!MyFormName!DescripcionBienes
    qdef!ncnt_param = Forms!MyFormName!NombreContacto
    qdef!nt_biens_param = Forms!MyFormName!NumeroTelefono
    qdef!e_param = Forms!MyFormName!Email

    ' RUN ACTION QUERY
    qdef.Execute dbFailOnError

    Set qdef = Nothing    
End Sub

MS Access DAO 连接在退出时放弃更改

MS Access DAO Connection Discard Changes On Exit

mysql

ms-access

vba

dao