在 Visual Basic 中设置 ActiveX 数据对象的属性

利用 ActiveX 数据对象 (ADO)，您可以从 Visual Basic 中操纵数据库的结构及其包含的数据。 许多 ADO 对象对应于你在数据库中看到的对象，例如， Table 对象对应于 Access 表。 Field 对象与表中的字段相对应。

可以为 ADO 对象设置的属性大多数都是 ADO 属性。 这些属性由 Access 数据库引擎定义，在包含 Access 数据库引擎的任何应用程序中的设置方式相同。 可为 ADO 对象设置的某些属性由 Access 定义，Access 数据库引擎不会自动识别。 如何为 ADO 对象设置属性取决于属性是由 Access 数据库引擎还是由 Access 定义。

设置 ADO 对象的 ADO 属性

要设置由 Access 数据库引擎定义的属性，请引用 ADO 层次结构中的对象。 实现这一点的最方便快捷的方法是：创建代表需要处理的不同对象的对象变量，并在后续步骤中在代码中引用这些对象变量。 例如，以下代码创建一个新 TableDef 对象并设置其 Name 属性：

Dim tbl As New ADOX.Table 
Dim cnn As ADODB.Connection 
Set cnn = CurrentProject.Connection 
tbl.Name = "Contacts"

设置 ADO 对象的 Access 属性

设置由 Access 定义但适用于 ADO 对象的属性时，Access 数据库引擎不会自动将属性识别为有效属性。 首次设置该属性时，必须创建该属性并将其追加到应用该属性的对象的 Properties 集合中。 属性位于 Properties 集合中后，可以采用与任何 ADO 属性相同的方式对其进行设置。

如果首次在用户界面中设置一个属性，该属性会自动添加到 Properties 集合中，并且您可以按照正常的方式来设置它。

编写过程以设置 Access 定义的属性时，应包含错误处理代码，以验证正在设置的属性是否已存在于 Properties 集合中。

切记，创建一个属性时，在将其追加到 Properties 集合之前必须正确指定其 Type 属性。 可以根据"帮助"主题"设置"部分中各个属性的信息来确定 Type 属性。 下表提供了有关确定 Type 属性设置的一些指导。

如果属性设置是	那么 Type 属性设置应是
字符串	adLongVarWChar 或 adVarWChar
True / False	adBoolean
整数	adInteger

下表列出了一些适用于 ADO 对象的 Access 定义的属性。

ADO 对象	Microsoft Access 定义的属性
Connection	AppTitle、AppIcon、StartupShowDBWindow、StartupShowStatusBar、AllowShortcutMenus、AllowFullMenus、AllowBuiltInToolbars、AllowToolbarChanges、AllowBreakIntoCode、AllowSpecialKeys、Replicable、ReplicationConflictFunction
Table	DatasheetBackColor、DatasheetCellsEffect、DatasheetFontHeight、DatasheetFontItalic、DatasheetFontName、DatasheetFontUnderline、DatasheetFontWeight、DatasheetForeColor、DatasheetGridlinesBehavior、DatasheetGridlinesColor、Description、FrozenColumns、RowHeight、ShowGrid
字段	Caption、ColumnHidden、ColumnOrder、ColumnWidth、DecimalPlaces、Description、Format、InputMask

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。