一般操作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对象,不表。
本文作者:佚名 来源:ddvip
CIO之家 www.ciozj.com 微信公众号:imciow