如何从一个数据库读取所有用户表

[sunboyll]

如何从一个数据库读取所有用户表

[dreammaker]

简单！select * from tabs;

[jo_yoko]

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Integer
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\test.mdb"
cn.Open

Set rs = cn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
DoEvents
If UCase(rs!table_type) = "TABLE" Then
Debug.Print rs!TABLE_NAME
End If
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
如果是SQLServer，只要连接语句变一下就可以了，后面的用法是一样的

[hanps]

1、sybase
select * from sysobjects where type ='T'
2、oracle
select * from user_table