Access VBA教程:在 Visual Basic 中设置数据访问对象的属性

利用数据访问对象(DAO),用户可以从 Visual Basic 中处理数据库的结构和其中所含的数据。多数 DAO对象都对应于数据库中能够看到的对象,例如,TableDef对象对应于 Microsoft Access 表。Field对象对应于表中的字段。

可以对 DAO对象设置的属性大多数都是 DAO属性。这些属性由Microsoft Jet 数据库引擎定义并且设置的方法与任何包含 Jet 数据库引擎的应用程序中设置方法相同。某些可以对 DAO对象设置的属性由 Microsoft Access 定义,Jet 数据库引擎不会自动识别这些属性。如何设置 DAO对象的属性取决于该属性是由 Jet 数据库引擎定义还是由 Microsoft Access 定义。

设置 DAO对象的 DAO属性

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


Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef
tdf.Name = "Contacts"

设置 DAO对象的 Microsoft Access属性

当设置由 Microsoft Access 定义但应用于 DAO对象的属性时,Jet 数据库引擎不会将该属性自动识别为有效的属性。首次设置该属性时,必须创建该属性并将其追加到应用该属性的对象的 Properties集合中。当该属性位于 Properties集合中后,就可以按照与任何其他 DAO属性相同的方式设置它。

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

当编写用于设置由 Microsoft Access 定义的属性的过程时,应该编写错误处理代码以验证正在设置的属性在 Properties集合中是否已经存在。有关详细信息,请参阅关于 CreateProperty方法的“帮助”主题或单个属性的主题。

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

如果属性设置是 那么 Type属性应当是
字符串 dbText
True/False dbBoolean
整数 dbInteger

下表列出了某些应用于 DAO对象的、Microsoft Access 定义的属性。

DAO对象 Microsoft Access 定义的属性
Database AppTitle、AppIcon、StartupShowDBWindow、StartupShowStatusBar、AllowShortcutMenus、AllowFullMenus、AllowBuiltInToolbars、AllowToolbarChanges、AllowBreakIntoCode、AllowSpecialKeys、Replicable、ReplicationConflictFunction
SummaryInfo Container Title、Subject、Author、Manager、Company、Category、Keywords、Comments、Hyperlink Base

(单击“文件”菜单上的“数据库属性”,然后参阅“‘数据库名称’属性”对话框的“摘要”选项卡)

UserDefined Container (单击“文件”菜单上的“数据库属性”,然后参阅“‘数据库名称’属性”对话框的“摘要”选项卡)
TableDef DatasheetBackColor、DatasheetCellsEffect、DatasheetFontHeight、DatasheetFontItalic、DatasheetFontName、DatasheetFontUnderline、DatasheetFontWeight、DatasheetForeColor、DatasheetGridlinesBehavior、DatasheetGridlinesColor、Description、FrozenColumns、RowHeight、ShowGrid
QueryDef DatasheetBackColor、DatasheetCellsEffect、DatasheetFontHeight、DatasheetFontItalic、DatasheetFontName、DatasheetFontUnderline、DatasheetFontWeight、DatasheetForeColor、DatasheetGridlinesBehavior、DatasheetGridlinesColor、Description、FrozenColumns、LogMessages、MaxRecords、RecordLocks、RowHeight、ShowGrid
Field Caption、ColumnHidden、ColumnOrder、ColumnWidth、DecimalPlaces、Description、Format、InputMask

上页:Access VBA教程:在 Visual Basic 中设置 ActiveX 数据对象的属性 下页:Access VBA教程:用 Visual Basic 设置属性

Access VBA教程:在 Visual Basic 中设置数据访问对象的属性

Access VBA教程:用 Visual Basic 设置属性 Access VBA教程:用宏设置属性
Access VBA教程:从 Visual Basic 中设置启动属性 Access VBA教程:限制记录子集的数据
Access VBA教程:日期与时间条件表达式 Access VBA教程:来自窗体上控件的日期与时间条件
Access VBA教程:条件表达式中的多个字段 Access VBA教程:来自窗体上控件的数值条件
Access VBA教程:数值条件表达式 Access VBA教程:来自窗体上控件的文本条件
Access VBA教程:文本条件表达式 Access VBA教程:创建包含变量和控件的 SQL 语句
Access VBA教程:字符串中的引号 Access VBA教程:域聚合函数
Access VBA教程:在 Microsoft Access 2002 中使用 ActiveX 数据对象 Access VBA教程:AboutBox方法(快照查看器)
Access VBA教程:AccessError方法 Access VBA教程:AddMenu方法
Access VBA教程:ApplyFilter方法 Access VBA教程:Beep方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号