问：如何用VB读取Access里的数据表名（注：不带系统的表名）。

Question

'DAO
Dim db As Database
Dim tb As TableDef
For Each tb In db.TableDefs
    Debug.Print tb.Name
Next

Answer 1

wiw(不只是VB):怎么打开数据库呢？

Answer 2

dim wk as workspace
set wk=dbengine.workspace(0)'建立工作区
set db=wk.opendatabase(source)‘打开数据库
source 可以是数据库文件，也可是sql语句。

Answer 3

要定义什么工程吗??
可以怎么写吗?
Set db = wk.opendatabase("C:\database.mdb") '打开数据库

Answer 4

方法1:fishzone说过了,我在补充一下而已    Dim Conn
    Dim RS
    Set Conn = Server.CreateObject("ADODB.Connection")
    Dim connstr
    connstr = "DSN=..............."
    Conn.Open connstr
    Set RS = Conn.OpenSchema(adSchemaTables)
    Debug.Print RS("TABLE_CATALOG")
    debug.peint RS("TABLE_NAME")
    debug.print RS("TABLE_SCHEMA")
    debug.print RS("TABLE_TYPE")
    debug.print RS("DESCRIPTION")方法二:直接用SQL语句
    select * from MSysObjects
  

Answer 5

引用中加入database object3.5

Answer 6

wiw(不只是VB)对每个报表还要判断一下是不是系统表

Answer 7

Table name: MSysAccessObjects
我会用ado的OpenSchema方法了,但我不要以下的表,怎么办呀???Table name: MSysACEsTable name: MSysObjectsTable name: MSysQueriesTable name: MSysRelationships