ASSECC中怎样将 数据库中允许空字符串的属性改为“是”要用sql语句或用程序

[jeary]

ASSECC中怎样将 数据库中允许空字符串的属性改为“是”要用sql语句或用程序

[wwwwb]

用ADO：
Function ChengTableFieldPro_ADO()
Dim MyTableName As String
Dim MyFieldName As String

MyTableName = "表 ds1"
MyFieldName = "aa"

Dim MyDB As New ADOX.Catalog
Dim MyTable As ADOX.Table
Dim MyField As ADOX.Column
On Error GoTo Err_GetFieldDescription

MyDB.ActiveConnection = CurrentProject.Connection
Set MyTable = MyDB.Tables(MyTableName)
GetFieldDesc_ADO = MyTable.Columns(MyFieldName).Properties("Description")

Dim pro
For Each pro In MyTable.Columns(MyFieldName).Properties
Debug.Print pro.Name & pro.Value
Debug.Print pro.Type
Next

MyTable.Columns(MyFieldName).Properties("Jet OLEDB:Allow Zero Length") = True

Set MyDB = Nothing
Bye_GetFieldDescription:
Exit Function
Err_GetFieldDescription:
Beep
MsgBox Err.Description, vbExclamation
GetFieldDescription = Null
Resume Bye_GetFieldDescription
End Function

[OracleRoob]

SQL Server可以用SQL语句处理，Access不行。

[xqsman]

我也有同样问题 alter table alter column null不可以，只能写程序吗？sql语句可以修改吗？

[OracleRoob]

只能用代码实现，只用SQL无法处理。

[xqsman]

啊！绝望了。access真恶心