中华网络安全联盟    作者：奇趣    来源：奇趣技术网    时间：2008-5-28 9:26:41

一般操作Access数据库，有Alter语句，和MsSQL2k的基本语法差别不是太打，例如，在某表创建新列语句：

Dimsqlstr
sqlstr="altertablel_infoaddcolumninfo_filevarchar(200)defaultNULL"
conn.execute(sqlstr)

以上语句在l_info创建列info_file，为文本类型，长度是200，如果没有其他的设置，这时候，默认的：

必填字段：否

允许空字符创：否

这个空字符串一般可以允许的话不太满意，就有了ADOX这个空间处理。

详细请访问：微软ADOX介绍

这个Examples是多的出奇，可以访问这里查看全部的。

如下是其中一个例子：可以实现很多功能：

SubAddHelpColumn()
DimoConn,oCat,oColumn
'打开数据库
SetoConn=Server.CreateObject("ADODB.Connection")
oConn.OpenMM_conn_STRING
'打开表
SetoCat=Server.CreateObject("ADOX.Catalog")
SetoCat.ActiveConnection=oConn
'创建列
SetoColumn=Server.CreateObject("ADOX.Column")
WithoColumn
Set.ParentCatalog=oCat'Mustsetbeforesettingproperties
.Name="memHelp"
.Type=adLongVarWChar
.Properties("Nullable")=True
.Properties("JetOLEDB:AllowZeroLength")=True
EndWith
oCat.Tables("MetaExternalFields").Columns.AppendoColumn
'完成
SetoColumn=Nothing
SetoCat=Nothing
oConn.Close()
SetoConn=Nothing
EndSub

其中的集合Column的成员有：

Itemproperty
Countproperty.
Deletemethod.
Refreshmethod.

关于column对象，详细可以参见：Column对象，不表。