在建立OLE DB连接的前提下，用VB.NET什么方法可以获得数据库中所有表名？

[pink0763]

我已经看过FAQ中的方法，粘贴如下：
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码Dim rstSchema
Dim strCnn As New ADODB.Recordset

str1 = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=wktrade;Data Source=net5"
adoCN.Open str1

Set rstSchema = adoCN.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
out = out & "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

adoCN.Close
Debug.Print out
End Sub
看的不是很懂，可以解释一下吗？
我现在的问题是我已经建立OLE DB连接(可能是ACCESS,SQL Server,Oracle等)，那么接下来用什么方法可以得到数据库中所有的表名？GetOleDbSchemaTable这个方法可以用么？

[xiaowen01]

select name from sysobjects where OBJECTPROPERTY(id, N'IsTable') = 1

[hzybc]

有谁知道Access库中的表名？？？？？

[lyadlysysT]

"sp_database" 和 "sp_Tables" SQLServer

[flyingZFX]

use 你的库名

exec sp_tables

[junki]

'获得数据库表名，并添加到List控件中(VB方式实现)

　　Dim Conn As ADODB.Connection
Dim rs As New ADODB.Recordset

Set rs = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF
List1.AddItem rs!TABLE_NAME
rs.MoveNext
Loop
rs.Close
Conn.Close

[victorycyz]

这个是MSDN上的范例了。你可以自己去看看注解。

[pink0763]

对不起，我发错论坛了。这个是VB.NET的问题，我已经在那边提问了。
那边的问题解决后，我会在这里散分的，谢谢关注！

[fxyfx]

SELECT SYSCOLUMNS.name FROM SYSCOLUMNS LEFT OUTER JOIN SYSOBJECTS ON SYSCOLUMNS.id = SYSOBJECTS.id WHERE SYSOBJECTS.xtype = 'u'

[jam021]

关注,帮你顶!