Access VBA教程高级篇.pdf

Access VBA教程高级篇主要涵盖了使用VBA在Access数据库中操作数据的方法，特别是涉及DAO（Data Access Objects）和ADO（ActiveX Data Objects）两种技术。DAO是Access早期的数据访问接口，而ADO则是一个更现代、更通用的数据访问接口，适用于多种编程语言。两者都可以用来创建、读取、更新和删除数据库中的数据，但它们的工作方式和底层机制有所不同。 DAO是Access的一部分，它是基于ODBC（Open Database Connectivity）的，特别适合于Microsoft Jet数据库引擎。在Access VBA中，DAO提供了直接与数据库表格交互的对象，如TableDef、Recordset等。DAO的一个典型用法是通过TableDef对象来操作数据库中的表。例如，可以遍历CurrentDb.TableDefs集合来获取所有表的信息，或者创建新的TableDef对象来创建新表。 ```vb Dim 表 As DAO.TableDef For Each 表 In Currentdb.TableDefs MsgBox 表.name Next ``` DAO中的TableDef对象允许你获取或设置表的属性，如字段定义。例如，你可以检查数据库中是否存在特定的表： ```vb For i = 0 To CurrentDb.TableDefs.Count - 1 If 文本框 = CurrentDb.TableDefs(i).Name Then MsgBox "表已存在！" Exit Sub End If Next MsgBox "没有这张表" ``` 相比之下，ADO是建立在OLE DB之上的，它提供了一个更为灵活且高性能的数据访问模型。ADO可以连接到多种类型的数据库，包括那些不支持Jet引擎的数据库。在VBA中，使用ADO通常涉及到Connection、Command、Recordset等对象。虽然ADO可能更适合处理复杂的数据库操作，但对于简单的Access应用程序，DAO可能已经足够。 在创建新表时，DAO允许你通过CreateField方法创建字段，并将它们添加到TableDef对象的Fields集合中，然后使用TableDefs.Append方法将TableDef添加到数据库中： ```vb Set 创建 = CurrentDb.CreateTableDef(用户输入) 创建.Fields.Append 创建.CreateField("姓名", dbText) 创建.Fields.Append 创建.CreateField("性别", dbText) 创建.Fields.Append 创建.CreateField("身份证号", dbText) CurrentDb.TableDefs.Append 创建 ``` 这里，dbText是字段类型常量，表示文本字段。Access VBA还支持其他字段类型，如dbInteger、dbDate、dbMemo等，以满足不同数据类型的存储需求。 在处理复杂或大数据量操作时，ADO通常会表现得更快，因为它可以直接执行SQL命令，而DAO通常需要通过DoCmd.RunSQL来执行SQL。然而，DAO对Access数据库的内部结构有更深入的理解，因此在某些情况下，DAO可能是更自然的选择。 Access VBA的DAO和ADO提供了强大的数据操作能力。DAO更适合于Access数据库的原生操作，而ADO则适用于更广泛的数据库访问需求。选择使用哪种方式取决于具体的应用场景和性能要求。无论选择哪一种，了解并熟练掌握这些技术对于高效地开发Access应用程序至关重要。