|
| 取Access表名 | | |
|
| 文件名 | 文本型 | | | |
密码 | 文本型 | | | | 表名数组 | 文本型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 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”,
) 如果真 (取文本左边 (表名, 4
) ≠
“MSys”) 调试输出 (表名
)加入成员 (表名数组, 表名
)
计次循环尾 ()Tables.
清除 ()mycat.
清除 ()