全部显示

在 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 AppTitleAppIconStartupShowDBWindowStartupShowStatusBarAllowShortcutMenusAllowFullMenusAllowBuiltInToolbarsAllowToolbarChangesAllowBreakIntoCodeAllowSpecialKeysReplicableReplicationConflictFunction
SummaryInfo Container TitleSubjectAuthorManagerCompanyCategoryKeywordsCommentsHyperlink Base

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

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