SQlServer:
SELECT *
FROM syscolumns JOIN
      sysindexkeys ON syscolumns.id = sysindexkeys.id AND 
      sysindexkeys.colid = syscolumns.colorder
一下自己在具体做

解决方案 »

  1.   

    经过本人仔细查找,终于发现一种方法!对于Access和SQLserver都可以!欢迎指教!
    用ADOX.indexes
         dim idx as adox.index
         For Each idx In table.Indexes
            With idx
                if .primarykey=true then
                For Each Column In idx.Columns
                    Debug.Print Column.Name
                Next
                end if
            End With
        Next
    用Adox.key可以设置关键字,但读不出来,不知为什么?!