ASP操作Access及ADOX類的使用

一般操作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，如果沒有其他的設定，這時候，預設的：

必要欄位：否

允許Null 字元創：否

這個Null 字元串一般可以允許的話不太滿意，就有了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對象，不表。