我希望用ADOX来修改attributes属性,Adox默认的添加的字段的Attributes值是0,而我要求adColNullable。代码如下,可运行时它提示我:多步OLE DB操作产生错误。
各位大虾,请指点!Dim padoxCat As New ADOX.Catalog '读取mdb里的表,
Dim padoxTbl As New ADOX.Table '添加、删除表       
Dim lngTemp As Long
    
padoxCat.ActiveConnection = con_gStrProvidA & App.Path & gstrpathAFLdat & "AFLPOWERNET.MDB" & con_gStrProvidC
Set padoxTbl = padoxCat.Tables.Item("NODES")
        
        
 For lngTemp = 0 To padoxTbl.Columns.Count - 1
     If padoxTbl.Columns.Item(lngTemp).Name <> "ID" Then _
         padoxTbl.Columns.Item(lngTemp).Attributes = adColNullable Next