编程论坛 → ACCESS论坛

关于读取表格名称的问题

detective717 发布于 2006-03-27 22:27， 775 次点击

如何在ADO的环境下读取某MDB文件内的所有表格名称呢,谢谢各位高手指教了
哈哈.
(我只知道recordsource只能指定一个已经知道了名称的表格,但不知道怎么在未知的情况下选取表格)

4 回复

wdlrczt2006-03-29 11:34

关于读取表格名称的问题

看看这是不是你所需要的：

只有本站会员才能查看附件，请登录

makebest2006-03-30 21:20

这个是返回数据库内所有表的语句：
set cn = ConnectAccess("T:\我的程序\MyProgDelphi\Sound\sounds.mdb")
set rec=cn.openschema(20,array(null,null,null,"table"))
包含表名的字段是 "table_name"

蚂蚁搬大象2006-03-31 23:24

'引用DAO
dim Tb as tablesdef,cn as database
set cn =opendatabase(T:\我的程序\MyProgDelphi\Sound\sounds.mdb")

For each Tb in cn.tablesdefs
msgbox tb.name

next

[此贴子已经被作者于2006-3-31 23:31:22编辑过]

makebest2006-04-01 15:17

楼上的厉害，我对 DAO 不熟，只会用 ADO，更正一下你的单词拼错了：

Dim tb As TableDef, cn As Database
Set cn = opendatabase("T:\我的程序\MyProgDelphi\Sound\sounds.mdb")
For Each tb In cn.TableDefs
MsgBox tb.Name
Next