烟台市福山区完整地图:vb,在同一access中有很多表,怎样得到每个表的名称

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/13 02:45:06
我要进行数据库连接,很多表,有不可能挨个看,只有先得到表名再进行连接,我也要得到表名,谢谢

select name from msysobjects where type =1

系统表默认情况下是隐藏的,可以在菜单:工具-选项-视图-“隐藏对象”上打勾。

我有个从网上找到的样例程序,是列出一个数据库里面的表名,基本就是你要的,但是因为是刚学,有些地方也不太明白
MsAccess.closecurrentdatabase
MsAccess.opencurrentdatabase (Text1.Text)
Dim rpt As Object
For Each rpt In MsAccess.current.project.allreports
Combo1.AddItem (rpt.Name)
Next rpt