怎么取Access数据库里面的所有表名称？在线等谢谢！！！

d调的鱼

怎么取Access数据库里面的所有表名称？在线等谢谢！！！

广二爷xxoo

Access.载入（“C\Accessxxxxxxx”）
Access.取表名（数组变量）

d调的鱼

广二爷xxoo 发表于 2020-3-27 11:20
Access.载入（“C\Accessxxxxxxx”）
Access.取表名（数组变量）

这是什么模块里的，没找到呢

广二爷xxoo

d调的鱼 发表于 2020-3-27 11:26
这是什么模块里的，没找到呢

我瞎几把写的

d调的鱼

广二爷xxoo 发表于 2020-3-27 11:27
我瞎几把写的

广有才

广二爷xxoo

d调的鱼 发表于 2020-3-27 11:31
广有才

用SQLcha询呀

d调的鱼

广二爷xxoo 发表于 2020-3-27 11:35
用SQLcha询呀

.版本 2

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

清除数组(取回表名)
数据库名＝取文本右边(mdb数据库,取文本长度(mdb数据库)－倒找文本(mdb数据库,“”,,假))
.如果真(ADODB连接.创建(“ADODB.Connection”,))
    密码1＝选择(是否为空(密码),“”,“;JetOLEDB:DataBasePassword=”＋密码)
    连接文本＝“Provider=Microsoft.Jet.OLEDB.4.0;UserID=Admin;DataSource=”＋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”,)

返回(真)
==================
弄懵了 实在累
===================

d调的鱼

广二爷xxoo 发表于 2020-3-27 11:35
用SQLcha询呀

我太弱了 还在学习中

d调的鱼

广二爷xxoo 发表于 2020-3-27 11:35
用SQLcha询呀

不想学太多SQL语句  太累了 ，，，和Access相关的知道就好了。在找教程，SQL教程看了脑袋都大不懂

d调的鱼

有高手帮看看嘛 哪里错了
.版本 2
.子程序 取mdb表名, 逻辑型, 公开, 取得mdb的所有表名。
.参数 取回表名, 文本型, 参考 数组, 文本数组，存储返回的表名
.参数 acc数据库, 文本型
.参数 密码, 文本型, 可空
.局部变量 ADODB连接, 对象
.局部变量 表名列记录集, 对象
.局部变量 对象型, 对象.
.局部变量 对象型1, 对象
.局部变量 变体型, 变体型
.局部变量 连接文本, 文本型
.局部变量 数据库名, 文本型
.局部变量 密码1, 文本型
清除数组(取回表名)
数据库名＝取文本右边(mdb数据库,取文本长度(mdb数据库)－倒找文本(mdb数据库,“”,,假))
.如果真(ADODB连接.创建(“ADODB.Connection”,))
    密码1＝选择(是否为空(密码),“”,“;JetOLEDB:DataBasePassword=”＋密码)
    连接文本＝“Provider=Microsoft.Jet.OLEDB.4.0;UserID=Admin;DataSource=”＋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”,)
返回(真)