VBA使用ADO增删改查

VBA（Visual Basic for Applications）是一种微软提供的宏语言，它广泛应用于Microsoft Office应用程序中，包括Excel、Word等。在使用VBA操作数据库时，ADO（ActiveX Data Objects）是一个强大的工具，它提供了一套API让你可以执行SQL（Structured Query Language）的增删改查操作。

1. **添加记录**（Insert）: 使用`ADODB.Connection`对象连接到数据库，创建一个`ADODB.Recordset`对象来代表数据集，然后执行`AddNew`方法插入新的记录。例如：

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myDatabase.accdb;"
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM TableName", conn
rs.AddNew '在这里设置新记录的字段值
rs.Update

2. **删除记录**（Delete）: 获取指定记录的ID或其他唯一标识，然后使用`Delete`方法删除之。比如：

rs.Delete '假设已定位到需要删除的记录
rs.Update

3. **修改记录**（Update）: 和添加类似，先定位到特定记录，然后设置新的字段值，最后更新。示例：

rs("FieldToUpdate") = "NewValue"
rs.Update

4. **查询记录**（Select）: 使用SQL查询语句获取数据，创建Recordset，遍历并处理结果。例如：

Set rs = ExecuteSQL(conn, "SELECT * FROM TableName WHERE ID = 1")
While Not rs.EOF
   Debug.Print rs!FieldName '打印字段值
   rs.MoveNext
 Wend

其中`ExecuteSQL`函数用于执行SQL语句。