影视剧里的丝袜镜头:VB中用ADODB如何取出所有表名

来源:百度文库 编辑:高校问答 时间:2024/10/05 10:23:41
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没办法。