VB中数据集合对象的应用

Visual Basic提供了一个有用的数据集合对象，这是一组有序的相关数据，它允许程序员对一组对象进行操作。Visual Basic本身包含一些内部集合，如窗体、控件和打印机，这些集合给出了项目中所有窗体、特定窗体中所有控件和Windows环境中所有打印机的信息。如果您想构建自己的集合，您需要使用Collection类。

变量的集合。

对象变量可以理解为属于某种类型的一组对象。这个集合可以有很多对象，只有一个，甚至是空集合。在VB中，可以使用Set语句将对象变量指向特定的控件。

对于一个集合对象来说，它的Count属性是一个非常重要的属性，可以用来访问和操作同一个类对象的一个公共属性。例如，可以使用下面的代码将项目中表单上所有控件的字体大小设置为统一格式，加载的表单中所有控件的字体都指定为Microsoft Yahe，字体大小为16。

(1)在项目中定义一个标准模块

定义两个全局变量
global CTR font as control，a form As form
' Define a font tall same sub font tall same()
dim I，As integer
for I = 0 to forms . count–1 ' count属性是一个从0开始的整数
set form = forms(I)
for j = 0 to form . controls . count–1
set 1 = a form . controls(j)

(2)在项目中所有表单的Activate事件中添加以下语句:

FontAllSame

数据库2中的集合对象

在VB数据库编程中，所有的数据库都被视为一个结构良好且一致的对象。您可以使用这些对象的属性和方法来操作、创建和删除这些对象。

在VB数据库管理中，有两种数据集合对象:一种是用于数据库结构的维护和管理，有三种集合，如TableDefs、Fields、indexes一个是数据访问对象的记录集:记录集。每个集合对象都可以看作一个数组，按照数组的方法调用。一旦建立了数据库，就可以使用这些集合来修改数据库的结构和处理数据。

这些集合还具有属性Count，可用于操作集合中的元素。例如，下面是一个应用程序示例，它打开一个数据库并获取其中每个表的特定特征。您可以获得每个表:表名、字段名、字段数、字段类型和表中的记录数。

Sub TableInfo()
Dim i，j As Integer，Fname As String
Dim db1 As Database，Td1 As TableDefs
Dim fld 1 As Fields
Dim field num，RecNum As Integer

Fname$ = "d:\mdb\ Xx.mdb" 'XX是Access数据库文件
set db1 = open database(fname $)'打开一个数据库文件
set D1 = db1 . tabledefs
for I = 1 tod 1 . count-1
debug . printd1(I)。name '输出表名
setfld1 = td1 (i)。fields
field num = fld 1 . count
recnum = td1(I)。record count
debug . print " current field numfields " '输出字段的数目
Debug。打印“当前表格是:”；RecNum“records”j = 0 tofd 1 . count-1
Debug的输出记录数
。打印“字段名”，fld1 (j)。name '输出字段名
debug.print "type "，fld1 (j)。类型

从上面的程序中可以清楚的看到，数据库、表、字段之间是有层次关系的。在VB中，位于层次结构顶部的是Jet数据引擎(DBEngine对象)，它是唯一不被其他对象包含的数据访问对象。DBEngine对象有一个Workspaces集合，其中包含一个或多个Workspace对象。每个Workspace对象都有一个数据库集合，该集合又有一个或多个数据库对象。每个数据库对象包含一个TableDfes集合，该集合又包含一个或多个TableDef对象，依此类推。集合中的所有对象都是基于索引0来访问的。

例如:dbengine.workspaces (0)。数据库(0)。tabledefs (0)。字段(“客户名称”)