Office中国论坛/Access中国论坛

标题: 怎样获得表及查询的名称、字段 [打印本页]

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

作者: zhengjialon 时间: 2002-10-23 17:05
这是一个读出表名的程式，你参照一下：
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)