如何得到一个Access数据库文件(*.mdb)中的所有表？

Question

并让他显示在一个下拉组合框里面？谢谢！

Answer 1

dim m_conn as new adodb.connection
OpenSjk          '我自己做的函数，目的是打开数据库
Dim m_rs As New ADODB.Recordset
Set m_rs = m_conn.OpenSchema(adSchemaTables)
 While Not m_rs.EOF
    'MsgBox m_rs.RecordCount
    Combo1.AddItem m_rs("table_name")
    m_rs.MoveNext
Wend如果要程序 ，你e_mail 给我，[email protected]
对了，不要忘记给我分啊，呵呵。

Answer 2

SELECT MSysObjects.Flags, MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1));

Answer 3

dim rs as new recordsetrs.open "SELECT [Name] FROM MSysObjects WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1))"if rs.recordcount>0 then
   do until rs.eof
     combo1.additem rs!name
     rs.movenext
   loop
end if

Answer 4

Dim conn as New ADODB.connection
Dim rs As New ADODB.Recordset
Set rs = conn.OpenSchema(adSchemaTables)
While Not rs.EOF
    Combo1.AddItem rs("table_name")
    rs.MoveNext
Wend
同意一楼的

Answer 5

同意 online(龙卷风(学习分布式多层)) 的。用OpenSchema 方法:
从提供者获取数据库模式信息。
语法
Set recordset = connection.OpenSchema (QueryType, Criteria, SchemaID)
返回值
返回包含模式信息的 Recordset 对象。Recordset 将以只读、静态游标打开。
参数
QueryType   所要运行的模式查询类型，可以为下列任意常量。
Criteria   可选。每个 QueryType 选项的查询限制条件数组，如下所列：
QueryType 值       Criteria 值 
AdSchemaAsserts CONSTRAINT_CATALOG
CONSTRAINT_SCHEMA
CONSTRAINT_NAME 
AdSchemaCatalogs CATALOG_NAME 
AdSchemaCharacterSets CHARACTER_SET_CATALOG
CHARACTER_SET_SCHEMA
CHARACTER_SET_NAME 
AdSchemaCheckConstraints CONSTRAINT_CATALOG
CONSTRAINT_SCHEMA
CONSTRAINT_NAME 
AdSchemaCollations COLLATION_CATALOG
COLLATION_SCHEMA
COLLATION_NAME 
AdSchemaColumnDomainUsage DOMAIN_CATALOG
DOMAIN_SCHEMA
DOMAIN_NAME
COLUMN_NAME 
AdSchemaColumnPrivileges TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
COLUMN_NAME
GRANTOR
GRANTEE 
adSchemaColumns TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
COLUMN_NAME 
adSchemaConstraintColumnUsage TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
COLUMN_NAME 
adSchemaConstraintTableUsage TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME 
adSchemaForeignKeys PK_TABLE_CATALOG
PK_TABLE_SCHEMA
PK_TABLE_NAME
FK_TABLE_CATALOG
FK_TABLE_SCHEMA
FK_TABLE_NAME 
adSchemaIndexes TABLE_CATALOG
TABLE_SCHEMA
INDEX_NAME
TYPE
TABLE_NAME 
adSchemaKeyColumnUsage CONSTRAINT_CATALOG
CONSTRAINT_SCHEMA
CONSTRAINT_NAME
TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
COLUMN_NAME 
adSchemaPrimaryKeys PK_TABLE_CATALOG
PK_TABLE_SCHEMA
PK_TABLE_NAME 
adSchemaProcedureColumns PROCEDURE_CATALOG
PROCEDURE_SCHEMA
PROCEDURE_NAME
COLUMN_NAME 
adSchemaProcedureParameters PROCEDURE_CATALOG
PROCEDURE_SCHEMA
PROCEDURE_NAME
PARAMTER_NAME 
adSchemaProcedures PROCEDURE_CATALOG
PROCEDURE_SCHEMA
PROCEDURE_NAME
PROCEDURE_TYPE 
adSchemaProviderSpecific 参见说明 
adSchemaProviderTypes DATA_TYPE
BEST_MATCH 
adSchemaReferentialConstraints CONSTRAINT_CATALOG
CONSTRAINT_SCHEMA
CONSTRAINT_NAME 
adSchemaSchemata CATALOG_NAME
SCHEMA_NAME
SCHEMA_OWNER 
adSchemaSQLLanguages <无> 
adSchemaStatistics TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME 
adSchemaTableConstraints CONSTRAINT_CATALOG
CONSTRAINT_SCHEMA
CONSTRAINT_NAME
TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
CONSTRAINT_TYPE 
adSchemaTablePrivileges TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
GRANTOR
GRANTEE 
adSchemaTables TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME
TABLE_TYPE 
adSchemaTranslations TRANSLATION_CATALOG
TRANSLATION_SCHEMA
TRANSLATION_NAME 
adSchemaUsagePrivileges OBJECT_CATALOG
OBJECT_SCHEMA
OBJECT_NAME
OBJECT_TYPE
GRANTOR
GRANTEE 
adSchemaViewColumnUsage VIEW_CATALOG
VIEW_SCHEMA
VIEW_NAME 
adSchemaViewTableUsage VIEW_CATALOG
VIEW_SCHEMA
VIEW_NAME 
adSchemaViews TABLE_CATALOG
TABLE_SCHEMA
TABLE_NAME 
SchemaID   OLE DB 规范没有定义用于提供者模式查询的 GUID。如果 QueryType 设置为 adSchemaProviderSpecific，则需要该参数，否则不使用它。说明OpenSchema 方法返回与数据源有关的信息，例如关于服务器上的表以及表中的列等信息。Criteria 参数是可用于限制模式查询结果的值数组。每个模式查询有它支持的不同参数集。实际模式由 IDBSchemaRowset 接口下的 OLE DB 规范定义。ADO 中所支持的参数集已在上面列出。如果提供者定义未在上面列出的非标准模式查询，则常量 adSchemaProviderSpecific 将用于 QueryType 参数。在使用该常量时需要 SchemaID 参数传递模式查询的 GUID 以用于执行。如果 QueryType 设置为 adSchemaProviderSpecific 但是没有提供 SchemaID，将导致错误。提供者不需要支持所有的 OLE DB 标准模式查询，只有 adSchemaTables、adSchemaColumns 和 adSchemaProviderTypes 是 OLE DB 规范需要的。但是对于这些模式查询，提供者不需要支持上面列出的 Criteria 条件约束。

Answer 6

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159

Answer 7

谢谢各位精彩的解答。分赃！*^_^*btw：文龙兄，能把你的这部分程序让我瞧瞧么？my Email:[email protected]

Answer 8

我的代码如下：
Private Sub Command1_Click()
Dim m_conn As New ADODB.Connection
Dim m_rs As New ADODB.Recordset
Dim Str1 As StringStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\SWDD.mdb;Persist Security Info=False"
m_conn.Open Str1
Set m_rs = m_conn.OpenSchema(adSchemaTables)
 While Not m_rs.EOF
    'MsgBox m_rs.RecordCount
    Combo1.AddItem m_rs("table_name")
    m_rs.MoveNext
Wend
End Sub但却得到一下N个表，我的F:\SWDD.mdb只有Zpt这一个表啊！MSysAccessObjects
MSysAccessXML
MSysACEs
MSysObjects
MSysQueries
MSysRelationships
Zpt如何去掉显示其他的表？谢谢！

Answer 9

看起来你没有试用我写的SQL语句。试试看吧。

Answer 10

是这样么？似乎不行啊！Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New Recordset
Dim StrCnn As StringStrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\SWDD.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open StrCnn
rs.Open "SELECT [Name] FROM MSysObjects WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=1))", cnn, adOpenForwardOnly, adLockReadOnlyIf rs.RecordCount > 0 Then
   Do Until rs.EOF
     Combo1.AddItem rs!Name
     rs.MoveNext
   Loop
End IfEnd Sub