| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 775 人关注过本帖
标题:关于读取表格名称的问题
只看楼主 加入收藏
detective717
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2006-3-27
收藏
 问题点数:0 回复次数:4 
关于读取表格名称的问题
如何在ADO的环境下读取某MDB文件内的所有表格名称呢,谢谢各位高手指教了
哈哈.
(我只知道recordsource只能指定一个已经知道了名称的表格,但不知道怎么在未知的情况下选取表格)
搜索更多相关主题的帖子: 表格 名称 
2006-03-27 22:27
wdlrczt
Rank: 2
等 级:论坛游民
帖 子:61
专家分:20
注 册:2006-3-29
收藏
得分:0 
关于读取表格名称的问题
看看这是不是你所需要的:
h05xvzCv.rar (18.16 KB) 关于读取表格名称的问题



共同学习,共同进步!
2006-03-29 11:34
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
收藏
得分:0 
这个是返回数据库内所有表的语句:
set cn = ConnectAccess("T:\我的程序\MyProgDelphi\Sound\sounds.mdb")
set rec=cn.openschema(20,array(null,null,null,"table"))
包含表名的字段是 "table_name"

2006-03-30 21:20
蚂蚁搬大象
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-3-31
收藏
得分:0 

'引用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编辑过]

2006-03-31 23:24
makebest
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:658
专家分:962
注 册:2005-3-17
收藏
得分:0 

楼上的厉害,我对 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

2006-04-01 15:17
快速回复:关于读取表格名称的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029070 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved