数据库所有表名的索取

[xuepiaofei]

有一个问题；
如何才能把数据库当中的所有表名取出来？
请各位大侠指点！

[icevi]

什么数据库?
SQL SERVER:
select * from sysobjects where xtype='U'

[昵称被占用了]

如果是SQLSERVER SELECT NAME FROM SYSOBJECTS WHERE TYPE='U'

[昵称被占用了]

TO：　icevi(按钮工厂)　
两次看到你写的是xtype='U' 而6.5只能 type='U' 看来不是笔误,7.0以上是这样写的吗?

[jshyjyw]

这是我程序中的一个片段，你看看：

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

[icevi]

Haiwer(Haiwer)　:
7.0和2000中都是用xtype的：）
6.5我没用过，不知道：）

[昵称被占用了]

收到!

[Wesely]

OpenSchema，这个问题已经有好多人问过了。