所有表名

[livethere]

请问如何用编程方法得到ACCESS数据库所有表的名称

[ZBXX631]

用ADO，如是原生ADO，用Connection对象的OpenSchema方法，
其参数及用法查帮助
如果编程语言为DELPHI，用ADOConnection.GetTableNames

[livethere]

如果是用ODBC怎么办呢？

[hycao]

除了连接数据库的字符串不一样，其它应该都一样吧：
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
'strCnn = "driver={SQL Server};server=(local);uid=sa;pwd=;database=pubs"
strCnn = "dsn=test;"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & rstSchema!TABLE_NAME
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close

[奇遇]

U can use as:
select name from msysobjects where type=1

[microyzy]

访问msysobjects时说没有权限

[气血龙渊]

mark

[hycapril]

microyzy(毛毛叉)
你用的是那个版本的access？正常情况下应该有权限的阿。

我的贴子，谁用纯access做过应用程序，发上来大家研究研究，我的请看。
http://expert.csdn.net/Expert/topic/1173/1173099.xml?temp=.6081201