如何实现在vb中读取表名？？？

[luweinet]

我是用系统dsn的连接方式，想问一下怎么从指定的sql数据库中读取所有表的名称，最好能通过一个循环，我要判断一个临时表是否存在，请踊跃回答！

[seeyard]

在oracle里可以这样select * from user_tables
sqlserver我不太清楚，估计跟这个差不多，你可以参考一下他的帮助

[chenhw]

select * from sysobjects where type='U'

[fishzone]

http://www.csdn.net/expert/topic/184/184028.shtm

[Jiang_Wade]

以下的代码能够将DSN中指定的数据库中的所有表的名称打印出来。

Dim oDB As New ADODB.Connection
Dim oRs As New ADODB.Recordset

oDB.ConnectionString = "dsn=test0712"
oDB.Open
Set oRs.ActiveConnection = oDB

oRs.CursorType = adOpenStatic
oRs.LockType = adLockOptimistic
oRs.Open " select name from sysobjects where xtype='u'"

Dim nLoop As Integer
For nLoop = 1 To oRs.RecordCount
Debug.Print oRs("name").Value
oRs.MoveNext
Next