一般操作Access数据库，有Alter 语句，和MsSQL2k的基本语法差别不是太打，例如，在某表创建新列语句：
Dim sqlstr
sqlstr="alter table l_info add column info_file varchar(200)default NULL"
conn.execute(sqlstr)
以上语句在l_info创建列info_file，为文本类型，长度是200，如果没有其他的设置，这时候，默认的：
必填字段：否
允许空字符创：否
这个空字符串一般可以允许的话不太满意，就有了ADOX这个空间处理。
详细请访问：微软ADOX介绍
这个Examples是多的出奇，可以访问这里查看全部的。
如下是其中一个例子：可以实现很多功能：
Sub AddHelpColumn()
Dim oConn, oCat, oColumn
' 打开数据库
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open MM_conn_STRING
' 打开表
Set oCat = Server.CreateObject("ADOX.Catalog")
Set oCat.ActiveConnection = oConn
' 创建列
Set oColumn = Server.CreateObject("ADOX.Column")
With oColumn
Set .ParentCatalog = oCat ' Must set before setting properties
.Name = "memHelp"
.Type = adLongVarWChar
.Properties("Nullable") = True
.Properties("Jet OLEDB:Allow Zero Length") = True
End With
oCat.Tables("MetaExternalFields").Columns.Append oColumn
' 完成
Set oColumn = Nothing
Set oCat = Nothing
oConn.Close()
Set oConn = Nothing
End Sub
其中的集合Column的成员有：
Item property
Count property.
Delete method.
Refresh method.
关于column对象，详细可以参见：Column对象，不表。（出处：源码网）
|
