取数据表名称、ACCESS、MDB

赖漠轩

  

子程序名	返回值类型	公开	备 注
取数据库表名_ACCESS	逻辑型		取得mdb的所有表名。
参数名	类 型	参考	可空	数组	备 注
MDB数据库地址	文本型				要取表名的access数据库
表名	文本型				文本数组，存储返回的表名

变量名	类 型	静态	数组	备 注
ADODB连接	对象
连接文本	文本型
表名列记录集	对象
a	整数型
对象型	对象
变体型	变体型
对象型1	对象
数据库名	文本型

清除数组 (表名)
数据库名 ＝ 取文本右边 (MDB数据库地址, 取文本长度 (MDB数据库地址) － 倒找文本 (MDB数据库地址, “\”, , 假))
如果真 (ADODB连接.创建 (“ADODB.Connection”, ))
连接文本 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ MDB数据库地址 ' 后面是数据库路径
ADODB连接.写属性 (“connectionstring”, 连接文本)
ADODB连接.方法 (“open”, )
' 连接错误信息
对象型1 ＝ ADODB连接.读对象型属性 (“Errors”, )
如果真 (对象型1.是否为空 () ＝ 假)
变体型.赋值 (0, )
对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)
如果真 (对象型.是否为空 () ＝ 假)
返回 (假)

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

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 取数据库表名_ACCESS, 逻辑型, 公开, 取得mdb的所有表名。<br /> .参数 MDB数据库地址, 文本型, , 要取表名的access数据库<br /> .参数 表名, 文本型, 参考 数组, 文本数组，存储返回的表名<br /> .局部变量 ADODB连接, 对象<br /> .局部变量 连接文本, 文本型<br /> .局部变量 表名列记录集, 对象<br /> .局部变量 a, 整数型<br /> .局部变量 对象型, 对象<br /> .局部变量 变体型, 变体型<br /> .局部变量 对象型1, 对象<br /> .局部变量 数据库名, 文本型<br /> <br /> 清除数组 (表名)<br /> 数据库名 ＝ 取文本右边 (MDB数据库地址, 取文本长度 (MDB数据库地址) － 倒找文本 (MDB数据库地址, “\”, , 假))<br /> .如果真 (ADODB连接.创建 (“ADODB.Connection”, ))<br /> 连接文本 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ MDB数据库地址 ' 后面是数据库路径<br /> ADODB连接.写属性 (“connectionstring”, 连接文本)<br /> ADODB连接.方法 (“open”, )<br /> ' 连接错误信息<br /> 对象型1 ＝ ADODB连接.读对象型属性 (“Errors”, )<br /> .如果真 (对象型1.是否为空 () ＝ 假)<br /> 变体型.赋值 (0, )<br /> 对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)<br /> .如果真 (对象型.是否为空 () ＝ 假)<br /> 返回 (假)<br /> .如果真结束<br /> <br /> .如果真结束<br /> 表名列记录集 ＝ ADODB连接.对象型方法 (“OpenSchema”, 20)<br /> .判断循环首 (表名列记录集.读逻辑属性 (“eof”, ) ＝ 假) ' 循环取表名列表<br /> 对象型1 ＝ 表名列记录集.读对象型属性 (“Fields”, )<br /> 变体型.赋值 (“TABLE_TYPE”, ) ' 取表类型<br /> 对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)<br /> 变体型 ＝ 对象型.读属性 (“Value”, )<br /> .如果真 (变体型.取文本 () ＝ “TABLE”)<br /> ' 取表名<br /> 变体型.赋值 (“TABLE_NAME”, )<br /> 对象型 ＝ 对象型1.读对象型属性 (“Item”, 变体型)<br /> 变体型 ＝ 对象型.读属性 (“Value”, )<br /> <br /> 加入成员 (表名, 变体型.取文本 ())<br /> <br /> ' 列表.加入项目 (0, 变体型.取文本 (), 1, , )<br /> .如果真结束<br /> 表名列记录集.方法 (“MoveNext”, )<br /> .判断循环尾 ()<br /> .如果真结束<br /> 表名列记录集.方法 (“Close”, )<br /> ADODB连接.方法 (“Close”, )<br /> 返回 (真)

蓝河笑月

eavesyang 发表于 2022-4-7 15:46
无效啊  根本不行

.版本 2
.支持库 spec

.子程序 取Access表名, , 公开, 支持mdb及accdb,取表名到数组,好像accdb的效果不好
.参数 Access文件名, 文本型
.参数 Access密码, 文本型, 可空
.参数 参_Access表名数组, 文本型, 数组
.局部变量 _局部变量1, 对象
.局部变量 _局部变量2, 对象
.局部变量 _局部变量3, 文本型
.局部变量 _局部变量4, 整数型
.局部变量 _局部变量5, 整数型
.局部变量 _局部变量6, 文本型

_程序集变量1 ＝ Access文件名
_程序集变量2 ＝ Access密码
清除数组 (参_Access表名数组)
.如果真 (是否为空 (Access密码))
    Access密码 ＝ “”
.如果真结束
_局部变量1.创建 (“ADOX.Catalog”, )
.如果真 (到小写 (取文本右边 (Access文件名, 3)) ＝ “mdb”)
    _局部变量3 ＝ “Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=” ＋ Access文件名 ＋ “;Jet OLEDB:DataBase Password=” ＋ Access密码 ＋ “;Persist Security Info=False”
.如果真结束
.如果真 (到小写 (取文本右边 (Access文件名, 5)) ＝ “accdb”)
    _局部变量3 ＝ “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ Access文件名 ＋ “;Jet OLEDB:Database Password=” ＋ Access密码 ＋ “;”
.如果真结束

_局部变量1.写属性 (“ActiveConnection”, _局部变量3)
_局部变量2 ＝ _局部变量1.读对象型属性 (“Tables”, )
_局部变量5 ＝ _局部变量2.读数值属性 (“Count”, )
.计次循环首 (_局部变量5, _局部变量4)
    _局部变量6 ＝ _局部变量2.读对象型属性 (“Item”, _局部变量4 － 1).读文本属性 (“Name”, )  '
    .如果真 (取文本左边 (_局部变量6, 4) ≠ “MSys”)  '
        '
        加入成员 (参_Access表名数组, _局部变量6)
    .如果真结束

.计次循环尾 ()
_局部变量2.清除 ()
_局部变量1.清除 ()

调试输出 (“表名数组”, 参_Access表名数组)

eavesyang

无效啊  根本不行

d调的鱼

根本不行先森！

181335249

试试看，不行再回来

蓝河笑月

非常需要  感谢分享

天外孤鸿PLUS

看看行不行看看行不行..

xhsjy

谢谢分享！，，

haozi1990520

路过看看哈

zhengwulin

顶楼主啦..希望楼主多发精品好帖啦.....