Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db1.mdb")
Set adox = Server.CreateObject("ADOX.Catalog")
Set adox.ActiveConnection = con
Set tbl = adox.Tables("aa")
set col=tbl.Columns("gg")
col.Properties("Jet OLEDB:Allow Zero Length") = true'允许空字符串
set col=nothing
set tbl=nothing
Set adox=nothing
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db1.mdb")
Set adox = Server.CreateObject("ADOX.Catalog")
Set adox.ActiveConnection = con
Set tbl = adox.Tables("aa")
set col=tbl.Columns("gg")
col.Properties("Jet OLEDB:Allow Zero Length") = true'允许空字符串
set col=nothing
set tbl=nothing
Set adox=nothing