使用ADO和DAO处理记录的高级技巧

隔壁王医生

于 2025-04-02 10:12:01 发布

阅读量243

点赞数 3

文章标签： ADO DAO 数据库记录批量更新数据操作

本文链接：https://blog.csdn.net/weixin_42323064/article/details/146969326

版权

使用ADO和DAO处理记录的高级技巧

在数据库操作中，对记录进行添加、修改和删除是最常见也是最基础的操作。Microsoft Access 2013提供了两种主要的数据对象模型：ADO和DAO。本文将基于《Microsoft Access 2013 Programming》书中相关章节内容，探讨如何使用这两种模型进行记录的高级处理。

ADO与DAO的区别和适用场景

ADO和DAO在操作上有所区别。ADO更注重于面向对象的编程方式，而DAO则更偏向于过程式编程。在实际应用中，ADO通常用于连接外部数据库，而DAO适用于Access自身的数据库操作。ADO没有提供Edit方法，而是在修改记录时自动保存更改，而DAO则需要在更改前调用Edit方法，并在操作完成后调用Update方法。

修改和编辑单条记录

在处理单条记录时，ADO和DAO提供了不同的方法。DAO允许用户通过Recordset对象的EditMode属性来判断当前是否处于编辑状态。如果需要退出编辑状态，可以调用CancelUpdate方法。而ADO则通过直接对字段值赋新值，并使用Update方法来保存更改。

ADO代码示例：

Sub ModifyRecord_ADO()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strConn As String

    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;..." ' 数据源连接字符串

    Set rst = New ADODB.Recordset
    With rst
        .Open "SELECT * FROM Employees WHERE [Last Name] = 'Roberts'", strConn, ...
        .Fields("City").Value = "Redmond"
        .Update
        .Close
    End With
    Set rst = Nothing
End Sub

执行批量更新

在处理大量记录时，ADO提供了批量更新的能力。这允许开发者在一个操作中对多个记录进行修改，并一次性提交到数据库中。使用Keyset或Static游标是执行批量更新的关键。

ADO代码示例：

Sub BatchUpdate_Records_ADO()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strConn As String
    Dim strCriteria As String

    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;..."
    strCriteria = "[Job Title] = 'Sales Representative'"

    Set conn = New ADODB.Connection
    conn.Open strConn

    Set rst = New ADODB.Recordset
    With rst
        Set .ActiveConnection = conn
        ' 设置游标和其他参数
        .Open "Employees"
        .Find strCriteria
        Do While Not .EOF
            .Fields("Job Title") = "Sales Rep"
            .Find strCriteria, 1
        Loop
        .UpdateBatch
    End With
End Sub

删除记录

删除记录时，DAO和ADO都提供了Delete方法。但在DAO中，删除操作后需要使用MoveNext方法移动记录指针，以避免运行时错误。而ADO在删除记录后记录仍处于当前状态，需要手动移动记录指针。

DAO代码示例：

Sub DeleteRecord_DAO()
    Dim db As DAO.Database
    Dim tblRst As DAO.Recordset
    Dim counter As Integer
    ' 初始化数据库连接和记录集
    Do While Not tblRst.EOF
        If tblRst!ID > 9 Then
            tblRst.Delete
            counter = counter + 1
        End If
        tblRst.MoveNext
    Loop
    MsgBox "Number of deleted records: " & counter
    tblRst.Close
    Set tblRst = Nothing
End Sub

删除附件

在Access数据库中，附件是通过特定字段存储在表中的。使用ADO的Recordset2对象可以方便地删除这些附件。

代码示例：

Sub RemoveAttachmentFromRecord()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset2
    Dim rstChild As DAO.Recordset2
    Dim removeFlag As Boolean
    ' 初始化数据库连接和记录集
    ' 执行删除附件操作
End Sub