Access 数据库 怎么获取数据库里面有那些表

xiaolonghu01

Access 数据库里面的这些表，用易语言应该这么写代码。求指教

afu45

那就用对象

  

子程序名	返回值类型	公开	备 注
取Access表名			支持mdb及accdb,取表名到数组
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
密码	文本型
表名数组	文本型

变量名	类 型	静态	数组	备 注
mycat	对象
Tables	对象
connstr	文本型
i	整数型
n	整数型
表名	文本型

清除数组 (表名数组)
如果真 (是否为空 (密码))
密码 ＝ “”
mycat.创建 (“ADOX.Catalog”, )
如果真 (到小写 (取文本右边 (文件名, 3)) ＝ “mdb”)
connstr ＝ “Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=” ＋ 文件名 ＋ “;Jet OLEDB:DataBase Password=” ＋ 密码 ＋ “;Persist Security Info=False”
如果真 (到小写 (取文本右边 (文件名, 5)) ＝ “accdb”)
connstr ＝ “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ 文件名 ＋ “;Jet OLEDB:Database Password=” ＋ 密码 ＋ “;”

mycat.写属性 (“ActiveConnection”, connstr)
Tables ＝ mycat.读对象型属性 (“Tables”, )
n ＝ Tables.读数值属性 (“Count”, )
计次循环首 (n, i)
表名 ＝ Tables.读对象型属性 (“Item”, i － 1).读文本属性 (“Name”, )  ' 序号从0开始
如果真 (取文本左边 (表名, 4) ≠ “MSys”)  ' 过虑掉系统表名
调试输出 (表名)
加入成员 (表名数组, 表名)

计次循环尾 ()
Tables.清除 ()
mycat.清除 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 取Access表名, , 公开, 支持mdb及accdb,取表名到数组<br /> .参数 文件名, 文本型<br /> .参数 密码, 文本型, 可空<br /> .参数 表名数组, 文本型, 数组<br /> .局部变量 mycat, 对象<br /> .局部变量 Tables, 对象<br /> .局部变量 connstr, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 表名, 文本型<br /> <br /> 清除数组 (表名数组)<br /> .如果真 (是否为空 (密码))<br />     密码 ＝ “”<br /> .如果真结束<br /> mycat.创建 (“ADOX.Catalog”, )<br /> .如果真 (到小写 (取文本右边 (文件名, 3)) ＝ “mdb”)<br />     connstr ＝ “Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=” ＋ 文件名 ＋ “;Jet OLEDB:DataBase Password=” ＋ 密码 ＋ “;Persist Security Info=False”<br /> .如果真结束<br /> .如果真 (到小写 (取文本右边 (文件名, 5)) ＝ “accdb”)<br />     connstr ＝ “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” ＋ 文件名 ＋ “;Jet OLEDB:Database Password=” ＋ 密码 ＋ “;”<br /> .如果真结束<br /> <br /> mycat.写属性 (“ActiveConnection”, connstr)<br /> Tables ＝ mycat.读对象型属性 (“Tables”, )<br /> n ＝ Tables.读数值属性 (“Count”, )<br /> .计次循环首 (n, i)<br />     表名 ＝ Tables.读对象型属性 (“Item”, i － 1).读文本属性 (“Name”, )  ' 序号从0开始<br />     .如果真 (取文本左边 (表名, 4) ≠ “MSys”)  ' 过虑掉系统表名<br />         调试输出 (表名)<br />         加入成员 (表名数组, 表名)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> Tables.清除 ()<br /> mycat.清除 ()

afu45

[SQL] 纯文本查看 复制代码

select name from MSysObjects where type=1 and flags=0

xiaolonghu01

afu45 发表于 2024-12-24 10:25

没效果，测试了

xiaolonghu01

获取不到