鱼篮观音传奇全集:VB中用ADODB如何取出所有表名

来源:百度文库 编辑:中科新闻网 时间:2024/05/12 05:44:42
VB中用ADODB如何取出所有表名

????

用“opendatabase”函数,在DAO库中
Dim Dat As Database
Set Dat = OpenDatabase("(数据库文件路径)")
Dim tblData As Database
For Each tblData In Dat.TableDefs
Print tblData.Name
Next

SQLserver可以,Access没办法。