3、数据库查询与操作实用技巧分享

数据库查询与操作实用技巧分享

1. 表格数据填充与清空

在处理数据记录时，对于少量记录，不同操作方式可能没有明显差异，但当记录数量达到数千条时，差异会达到 5 - 7 倍。而当记录数量达到数十万条时，SQL 语句的执行速度会变得非常慢。

有一个按钮 cmdClearTable ，它会运行 SQL 语句来清空表格。即使删除一百万条记录，这个操作也几乎是瞬间完成的，相关代码如下：

Private Sub cmdClearTable_Click()
On Error GoTo Error_Handler
Dim db As DAO.Database
Dim strSQL  As String

  Set db = CurrentDb

  DoCmd.Hourglass True

    strSQL = “DELETE * FROM tblFillTest;”
    db.Execute strSQL

Exit_Here:
  On Error Resume Next
  Set db = Nothing
  DoCmd.Hourglass False
  MsgBox “Done!”
  Exit Sub

Error_Handler:
  Resume Exit_Here

End Sub

在使用这些代码时，所有代码都包含在表单中，无需其他模块。可以将示例数据库中的代码复制粘贴到自己的应用程序中，只需更改相应的表名、字段名和控件名即可。同时，由于添加和删除大量记录会导致数据库迅速膨胀，因此要经常对数据库进行压缩和修复。

2. 单查询实现更新