设置Access字段属性时常遇到的两个选项

Function SetAccess(conns,tables,fields)

Set adox = Server.CreateObject("ADOX.Catalog")
Set adox.ActiveConnection = conns  'conns用于确认链接哪个MDB
Set tbl = adox.Tables(tables)
set col=tbl.Columns(fields)
col.Properties("Jet OLEDB:Allow Zero Length") = true '允许空字符串
col.Properties("Jet OLEDB:Compressed UNICODE Strings") = true '允许UNICODE压缩
set col=nothing
set tbl=nothing
Set adox=nothing

End Function

SetAccess conn,"tables","fields"