为什么不能获取字段属性？

goodidea

Sub showTableProperties()

   

    Dim c As New ADOX.Catalog

    Dim prp As ADODB.Property

    Dim column As ADOX.column

   

   

    Set c.ActiveConnection = CurrentProject.Connection

    Set column = c.Tables("ztest").Columns(1)

   

    Debug.Print column.Name, column.Properties.Count    ' 看name属性是对的，为什么这里Count =0

   

    For Each prp In column.Properties           '直接就推出循环了

        Debug.Print prp.Name, prp.Value

    Next

End Sub

阿罗

用于 Microsoft Jet Database Engine 的 Microsoft OLE DB Provider 完全支持 ADOX。根据[url=mkMSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\OFFICE11\2052\ado210.chm::/htm/mddefglossary.htm#mddefdataprovider]数据提供者[/url]的不同，某些提供者可能不支持 ADOX 的某些功能。有关 Microsoft OLE DB Provider for ODBC、Microsoft OLE DB Provider for Oracle 或 Microsoft SQL Server OLE DB Provider 的支持功能的详细信息，请参阅 MDAC 自述文件。

xinbao

是不是OLE字段

HG

exec sp_helptable

zhuyiwen

以下是引用阿罗在2004-7-6 21:44:13的发言：

----------------------------------------------

阿罗老矣，不能饭哉。

不会吧？！[em06]

阿罗

最近每晚由原先3碗饭减到1碗，减少腹部脂肪的说。。。[em06]