编程高手之路—vb与数据库----网络数据库的复制和同步(三).docVIP

编程高手之路—vb与数据库----网络数据库的复制和同步(三) 3．property对象与Properties集合 Property对象用来描述一个DAO对象的内部属性或用户定义属性，与DAO对象及Properties集合的关系为DAO对象包含Properties集合，Properties集合包含property对象。（其关系详见VB帮助文件） 除Connection和Error对象外，每个DAO对象都含有一个property集合，在该集合中有与相应的DAO对象的内部属性一致的Property对象。同时，用户可以定义Property对象并将其加入某些下列DAO对象的Properties集合： ·Database， Index， QueryDef和TableDef对象 ·TableDef对象和QueryDef对象的Fields集合中的Field对象 Property有4个预定义的属性： ·Name属性：是一个字符串，属性的唯一标识。 ·Type属性：是一个整型数（Integer），用来指定属性的数据类型。 ·Value属性：是一个包含属性设置的Variant类型的值。 ·Inherited属性：是一个Boolean值，用来指示属性是否从另一个对象继承而来。 Property对象既有预定义的属性，也有用户定义的属性，在引用时，其格式是不一样的。顶定义属性的引用格式为： 对象.属性 而用户定义的属性必须采用下面的引用格式： 对象.Properties．（“属性”） 【例】编写程序，列出Tables容器中的Documents集合，然后列出集合中的第一个Document对象的Properties集合。 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim dbsnorthwind As Database Dim docloop As Document Dim prploop As Property Set dbsnorthwind = OpenDatabase(e:\f.mdb) With dbsnorthwind.Containers!tablesDebug.Print documents in .Name containerFor Each docloop In .DocumentsDebug.Print docloop.NameNext docloopWith .Documents(0)Debug.Print properties of .Name documentOn Error Resume NextFor Each prploop In .PropertiesDebug.Print prploop.Name = prploopNext prploopOn Error GoTo 0End WithEnd Withdbsnorthwind.Close End Sub 程序的前半部分与前面的例子相同，后半部分列出第一个Document对象（即Documents(0)的 Properties集合。运行程序，单击命令按钮，即可在“立即”窗口中列出上述内容。 用户定义的属性通过CreateProperty方法来定义，用该方法可以建立由用户定义的Property对象（仅Microsoft Jet 工作区），用于Database，Document，Field，Index，QueryDef和TableDef对象。其格式为： set property=对象.CreateProperty（name，type，value,DDL） 各参数的含义如下： ·property：对象变量，要建立的Property对象。 ·Object：对象变量，可以是Database，Field，Index，QueryDef和TableDef对象，可以对这些对象建立Property对象。 ·name： 可选。 variant类型（字符串子型），唯一地命名新的Property对象。 ·type： 可选。 常数，定义新Property对象的类型。 ·value：可选。 variant类型，指定属性的初值。 ·DDL： 可选。 Variant类型（Boolean子型），用来指示该属性是否是一个DDl对象，缺省值为False。如果DDL为True，则不能删除这个property 对象（除非得到 dbsecWriteDef的允许）。 说明： 1.）只能在一个永久对象的Property集合中建立用户定义的Property对象。在用CreateProperty 方法建立Property对象时，如果省略了一个或多个可选参数，则可在向一个集合追加新的对象之前，用赋值语句设置或重新设置相应的属性。在