如何获取ACCESS中各表的详细信息

[Magicwords]

如何获取ACCESS中各表的详细信息
是表的详细信息，不是有多少个表，什么的，

类似SQL中的select * from information_schema.columns where table_name='SYQDJ '

[changechange]

必须用编程结合 DAO 实现，如果你是 ASP 环境就别想了。



纯ACCESS环境肯定能实现。注意，你想通过一句或者多句 JET SQL 实现获取表信息，是不可能的， ACCESS 中没这种功能，JET DB 也没这种功能。

全部代码和示例在一下地址中。


只用ado列出所有的表《ADO/DAO/ADO.NET》
http://access911.net/index.asp?u1=a&u2=72FAB71E14DC




ado如何取得表的所有字段信息？（附DAO实现相同功能的代码）《VBA》
http://access911.net/index.asp?u1=a&u2=74FAB11E10DC





用ADO列出某个表的所有字段、索引《表》
http://access911.net/index.asp?u1=a&u2=77FAB71E14DC



如何得到表的所有键、键的类型、对应的字段名？《ADO/DAO/ADO.NET》
http://access911.net/index.asp?u1=a&u2=72FAB21E11DC

[fzcheng]

VBA代码可以得到表的字段,字段类型.

    Dim dset As DAO.TableDef
    Dim fld As DAO.Field

    Set cdb = CurrentDb
    Set dset = cdb.TableDefs(Table)
    stField = ""
    For Each fld In dset.Fields
        stField = stField & fld.Name & "," & fld.Type & ";" 
    Next fld

楼主看有没有值得运用.

[wwwwb]

用ADO OR ADOX、DAO来取得，ACCESS没有系统表，不能直接取得

[Magicwords]

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\CMS_data.MDB"
Dim sqlConn As OleDbConnection = New OleDbConnection(strConn)
sqlConn.Open()
Dim schemaTable As DataTable = sqlConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "table"})
Dim schemaTable2 As DataTable = sqlConn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "SYQDJ ", Nothing})
'DataTable schemaTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, new Object[]{null, null, null, "table"});
'DataTable schemaTable2 = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, new Object[]{null, null, /*tablename*/, null});
sqlConn.Close()

DataGridView1.DataSource = schemaTable
DataGridView2.DataSource = schemaTable2

这样就出来，兄弟们

[wwwwb]

就是ADO的OPENSCHEMA方法吧