Access数据库取表名问题

剑齿虎233

非取字段名称，吾想取“表”的名称。

我在做一个游戏地图下载器，类“易语言宝盒”的。

左边一个树形框，用来显示数据库中的表名称，右边一个超级列表框用来显示“表”里面的字段。

百度搜了很久，找不到方法。就算Access数据库做不到，其他方法调用其他数据库也可以。

真想知道果子哥，是怎么搞的。。。

简单的来讲。

数据库 > 表 >字段

树形框取表，选中树形框，右边的列表框就读 选择“表”里的字段

微凉

小松鼠 发表于 2012-11-17 09:54
目录树+超级列表框  读资源  易语言源码 微凉的。建议你看看

【精品源码】高仿 易语言宝盒源码  值得学习（2012年6月21日已更新）
http://www.3600gz.cn/thread-91137-1-1.html
这个么.

ㄣ负二代

目录树+超级列表框  读资源  易语言源码 微凉的。建议你看看

特思软件

http://www.6zou.net/tech/access-enum-table-name-and-column.html

这个是不？

mxsoft

转自官方论坛
.版本 2

.子程序 取mdb表名, 逻辑型, 公开, 取得mdb的所有表名。
.参数 取回表名, 文本型, 参考 数组, 文本数组，存储返回的表名
.参数 acc数据库, 文本型
.参数 密码, 文本型, 可空
.局部变量 ADODB连接, 对象
.局部变量 表名列记录集, 对象
.局部变量 对象型, 对象
.局部变量 对象型1, 对象
.局部变量 变体型, 变体型
.局部变量 连接文本, 文本型
.局部变量 数据库名, 文本型
.局部变量 密码1, 文本型

清除数组 (取回表名)
' 数据库名 ＝ 取文本右边 (mdb数据库, 取文本长度 (mdb数据库) － 倒找文本 (mdb数据库, “\”, , 假))
.如果真 (ADODB连接.创建 (“ADODB.Connection”, ))

    密码1 ＝ 选择 (是否为空 (密码), “”, “;Jet OLEDB:DataBase Password=” ＋ 密码)
    连接文本 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=” ＋ acc数据库 ＋ 密码1  ' 后面是数据库路径
    ADODB连接.写属性 (“connectionstring”, 连接文本)
    ADODB连接.方法 (“open”, )
    对象型1 ＝ ADODB连接.读对象型属性 (“Errors”, )  ' 连接错误信息
    .如果真 (对象型1.是否为空 () ＝ 假)
        变体型.赋值 (0, )
        对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)
        .如果真 (对象型.是否为空 () ＝ 真)
            返回 (假)
        .如果真结束

    .如果真结束
    表名列记录集 ＝ ADODB连接.对象型方法 (“OpenSchema”, 20)

    表名列记录集.方法 (“MoveFirst”, )
    .判断循环首 (表名列记录集.读逻辑属性 (“eof”, ) ＝ 假)  ' 循环取表名列表
        对象型1 ＝ 表名列记录集.读对象型属性 (“Fields”, )
        变体型.赋值 (“TABLE_TYPE”, )  ' 取表类型
        对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)
        变体型 ＝ 对象型.读属性 (“Value”, )
        .如果真 (变体型.取文本 () ＝ “TABLE”)  ' 取表名
            变体型.赋值 (“TABLE_NAME”, )
            对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)
            变体型 ＝ 对象型.读属性 (“Value”, )
            加入成员 (取回表名, 变体型.取文本 ())
        .如果真结束
        表名列记录集.方法 (“MoveNext”, )
    .判断循环尾 ()
    表名列记录集.方法 (“MoveFirst”, )
    表名列记录集.方法 (“Close”, )
.如果真结束

对象型.方法 (“Close”, )
对象型1.方法 (“Close”, )
表名列记录集.方法 (“Close”, )
ADODB连接.方法 (“Close”, )
返回 (真)

mxsoft

http://bbs.eyuyan.com/read.php?tid=50435
官方论坛“笨笨呀”开源

剑齿虎233

表示，自己已经解决了。

剑齿虎233

我的方式很简单。只是十几句代码...

剑齿虎233

试试看吧：http://pan.baidu.com/share/link?shareid=130038&uk=2300793085

各位都是高手，不看都知道，我在数据库里做了手脚....   

剑齿虎233

【精品源码】高仿 易语言宝盒源码  值得学习（2012年6月21日已更新）
http://www.3600gz.cn/thread-91137-1-1.html
这个么.

这个办法虽然比较笨.....