怎样获得表及查询的名称、字段

lgxysl

有些时候，我们要连接某一外部数据源，但是对这个外部数据源的结构一无所知，不知道它有哪些表、哪些查询？怎样获得数据库的表名、字段名呢？
就算不是外部数据源，在access，用vb或查询可以获得数据表的名称吗？例如，有时要新建一个表，那么先得检查这个表是否已经存在，如果不存在，就新建一个表，如果存在就取消建表操作，请问怎样实现？

zhengjialon

这是一个读出表名的程式，你参照一下：
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
   ' 打开连接
   cnn.Open _
      "rovider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=d:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"

   ' 打开目录
   Set cat.ActiveConnection = cnn
For Each tbl In cat.Tables
    Debug.Print tbl.Name
Next
cnn.Close