将Access数据库某表的某字段的"允许空字符串"改为"是"?

[51Crack]

网上搜到说VB可以，找了一段代码(如下)，但执行提示"在对应所需名称或序数的集合中，未找到项目。"；哪位有相关代码，VB6,vb.net,C#代码都可以!

'引用了COM+ Services Type Library，Microsoft ActiveX Data Objects 2.8 Library,Microsoft ADO Ext. 2.8 for DDL and Security,Microsoft DAO 3.6 Object Library

Function ChengTableFieldPro_ADO()
Dim MyTableName     As String
          Dim MyFieldName     As String
          Dim GetFieldDesc_ADO
          MyTableName = "testTable"
          MyFieldName = "testField"
            
          Dim MyDB     As New ADOX.Catalog
          Dim MyTable     As ADOX.Table
          Dim MyField     As ADOX.Column
    
          On Error GoTo Err_GetFieldDescription
            
          MyDB.ActiveConnection = "telepara"
          Set MyTable = MyDB.Tables(MyTableName)
                  
                
          Dim pro     As ADODB.Property
          For Each pro In MyTable.Columns(MyFieldName).Properties
                  Debug.Print pro.Name & "   :   " & pro.Value & "   ----   type   :   " & pro.Type
          Next
            
          With MyTable.Columns(MyFieldName)
                  .Properties("Jet   OLEDB:Allow   Zero   Length") = True           '允许空
                  .Properties("default") = "默默默默认认认认"                 '默认值
          End With
          Set MyDB = Nothing
    
Bye_GetFieldDescription:
          Exit Function
    
Err_GetFieldDescription:
          Beep
          Debug.Print Err.Description
          MsgBox Err.Description, vbExclamation
          GetFieldDescription = Null
          Resume Bye_GetFieldDescription

End Function

[51Crack]

.Properties("Jet OLEDB:Allow Zero Length") = True 出错

[51Crack]

.net做不到？

[51Crack]

晕!~

[zhanguoru]

ADOX,应该是以前ADO的用法，现在使用ADO.net不知道该用什么……

[zhanguoru]

您是想要遍历字段吗？

[51Crack]

[Quote=引用 5 楼 zhanguoru 的回复:]
您是想要遍历字段吗？
[/Quote]
不是，我指定字段进行修改!

[51Crack]

继续郁闷!~

[51Crack]

郁闷

[CloneCenter]

试试看Alert table语句！

[51Crack]

[Quote=引用 9 楼 CloneCenter 的回复:]
试试看Alert table语句！
[/Quote]

alter table alter column 字段 null 是没用的