ADOX如何设置是否为空？

Question

ACCESS中有必填字段和允许为空字符串
oTable.Columns("index").Attributes = adColNullable可以设置必填字段为否
我想允许为空字符串为是，默认是否
请教

Answer 1

Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = adocon   '其中adocon为数据库连接
    cat.Tables.Item("sysapp").Columns("proxyserver").Properties("Jet OLEDB:Allow Zero Length") = True
其中：sysapp为表名 proxyserver为字段名 Jet OLEDB:Allow Zero Length为是否允许空字符串

Answer 2

Set obj_col = New ADOX.Column
obj_col.Properties("Nullable") = 1详情：
http://club.5ivb.net/dispbbs.asp?boardID=81&ID=35087