数据库所有表名的索取

xuepiaofei 2001-11-05 07:31:58
有一个问题;
如何才能把数据库当中的所有表名取出来?
请各位大侠指点!
...全文
129 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Wesely 2001-11-10

OpenSchema,这个问题已经有好多人问过了。
回复
收到!
回复
icevi 2001-11-05
Haiwer(Haiwer) :
7.0和2000中都是用xtype的:)
6.5我没用过,不知道:)
回复
jshyjyw 2001-11-05
这是我程序中的一个片段,你看看:

Dim Idx As Long
Dim dbName As String
Dim tblName As String
dbName = App.Path & "\" & Combo1.Text & ".mdb"
If FileExist(dbName) Then
Set db = OpenDatabase(dbName)
List1.Clear
For Idx = 0 To db.TableDefs.Count - 1
tblName = CStr(db.TableDefs(Idx).Name)
If Val(tblName) <> 0 Then
List1.AddItem tblName
End If
Next Idx
db.Close

Else
MsgBox "所选择的数据库文件不存在!", vbOKOnly + 64, "消息框"
Exit Sub
End If
回复
TO: icevi(按钮工厂) 
两次看到你写的是xtype='U' 而6.5只能 type='U' 看来不是笔误,7.0以上是这样写的吗?


回复
如果是SQLSERVER SELECT NAME FROM SYSOBJECTS WHERE TYPE='U'
回复
icevi 2001-11-05
什么数据库?
SQL SERVER:
select * from sysobjects where xtype='U'
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-11-05 07:31
社区公告
暂无公告