关于ADOX

1、adox 概括microsoft® activex® data objects extensions for data definition language and security (adox) 是对 ado 东西和编制程序模子的扩充。adox 囊括用来形式创造和窜改的东西，以及安定性。因为它是鉴于东西实行形式操纵，以是用户不妨编写对百般数据源都能灵验运转的代码，而与它们原始语法中的分别无干。adox 是中心 ado 东西的扩充库。它表露的其余东西可用来创造、窜改和简略形式东西，如表格和进程。它还囊括安定东西，可用来保护用户和组，以及赋予和撤消东西的权力。要经过开拓东西运用 adox，须要创造对 adox 典型库的援用。对 adox 库的证明为“microsoft ado ext. for ddl and security.”。adox 库文献名为“msadox.dll”，步调 id (progid) 为“adox”。相关创造库援用的精细消息，请参见开拓东西的文书档案。2、adox 东西catalog 包括刻画数据源形式目次的汇合。column表白表、索引或要害字的列。group 表白在安所有据库内有考察权力的组帐号。index 表白数据库表中的索引。key 表白数据库表中的主要害字、外部要害字或独一要害字。procedure表白保存的进程。table表白数据库表，囊括列、索引和要害字。user 表白在安所有据库内具备考察权力的用户帐号。view 表白记载或假造表的过滤集。3、adox 本领append（columns） 将新的 column 东西增添到 columns 汇合。 append（groups） 将新的 group 东西增添到 groups 汇合。 append（indexes） 将新的 index 东西增添到 indexes 汇合。 append（keys） 将新的 key 东西增添到 keys 汇合。 append（procedures） 将新的 procedure 东西增添到 procedures 汇合。 append（tables） 将新的 table 东西增添到 tables 汇合。 append（users） 将新的 user 东西增添到 users 汇合。 append（views） 将新的 view 东西增添到 views 汇合。 changepassword 变动用户帐号的暗号。 create 创造新的目次。 delete 简略汇合中的东西。 getobjectowner 归来目次中东西的具有者。 getpermissions 赢得东西上组或用户的权力。 item 按称呼或序号归来汇合的指定分子。 refresh 革新汇合中的东西，以反应对准供给者可用的和指定的东西。 setobjectowner 指定目次中东西的具有者。 setpermissions 树立东西上组或用户的权力。 4、adox 属性activeconnection 引导目次分属的 ado connection 东西。 attributes 刻画列个性。 clustered 引导索引能否被分簇。 command 指定可用来创造或实行进程的 ado command 东西。 count 引导汇合中的东西数目。 datecreated 引导创造东西的日子。 datemodified 引导上一次变动东西的日子。 definedsize 引导列的规则最大巨细。 deleterule 引导主要害字被简略时将实行的操纵。 indexnulls 引导在索引字段中有 null 值的记载能否有索引项。 name 引导东西的称呼。 numericscale 引导列中数值的范畴。 parentcatalog 指定表或列的父目次再不考察一定供给者的属性。 precision 引导列中数据值的最高精度。 primarykey 引导索引能否代办表的主要害字。 relatedcolumn 引导关系表中关系列的称呼（仅要害字列）。 relatedtable 引导关系表的称呼。 sortorder 引导列的排序程序（仅索引列）。 type(列) 引导列的数据典型。 type（要害字） 引导要害字的数据典型。 type（表） 引导表的典型。 unique 引导索引要害字能否必需是独一的。 updaterule 引导主要害字被革新时会实行的操纵。 5、典型一、创造数据库范比方下代码表露怎样经过 create 本领创造新的 jet 数据库。sub createdatabase() dim cat as new adox.catalog cat.create "provider=microsoft.jet.oledb.4.0;data source=c:\new.mdb"end sub二、创造表典型sub createtable() dim tbl as new table dim cat as new adox.catalog'翻开目次。 ' 翻开目次。 cat.activeconnection = _ "provider=microsoft.jet.oledb.4.0;" & _"data source=c:\program files\microsoft office\" & _"office\samples\northwind.mdb;" tbl.name = "mytable" tbl.columns.append "column1", adinteger tbl.columns.append "column2", adinteger tbl.columns.append "column3", advarwchar, 50 cat.tables.append tblend sub三、创造索引范比方下代码演练怎样创造新的索引。索引对准表的两个列创造。sub createindex() dim tbl as new table dim idx as new adox.index dim cat as new adox.catalog' 翻开目次。 ' 翻开目次。 cat.activeconnection = _ "provider=microsoft.jet.oledb.4.0;" & _"data source=c:\program files\microsoft office\" & _"office\samples\northwind.mdb;" ' 设置表并将其追加到目次 tbl.name = "mytable" tbl.columns.append "column1", adinteger tbl.columns.append "column2", adinteger tbl.columns.append "column3", advarwchar, 50 cat.tables.append tbl ' 设置多列索引 idx.name = "multicolidx" idx.columns.append "column1" idx.columns.append "column2" ' 将索引追加到表上 tbl.indexes.append idxend sub四、创造要害字范比方下代码演练怎样创造新的外部要害字。假设已生存两个表（customers 和 orders）。sub createkey() dim kyforeign as new adox.key dim cat as new adox.catalog cat.activeconnection = "provider=microsoft.jet.oledb.4.0;" & _"data source=c:\program files\microsoft office\" & _"office\samples\northwind.mdb;" kyforeign.name = "custorder" kyforeign.type = adkeyforeign kyforeign.relatedtable = "customers" kyforeign.columns.append "customerid" kyforeign.columns("customerid").relatedcolumn = "customerid" kyforeign.updaterule = adricascade cat.tables("orders").keys.append kyforeignend sub