怎么取的一个数据库中所有表名?

[yhwebus]

怎样通过ADO取的一个数据库中所有表的表名?

[csdnHelp]

你查MSDN就可！！！！
我以前写过，但现在不足道

[yhwebus]

???

[handsomge]

引用 ADO

Public Sub OpenSchemaX()

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

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

cnn1.Close

End Sub

[handsomge]

引用ADOX
利用Tables集合

[5824658]

Dim RS As New ADODB.Recordset
Dim Ado_Connect_S1 as String

Ado_Connect_S1 = "PROVIDER=MSDASQL;driver={SQL Server};server=" &Trim(Text4.Text) & ";uid=" & Trim(Text5.Text) & ";pwd=" & Trim(Text6.Text) & ";database=Master;"
‘連接字串
Set RS = New ADODB.Recordset
RS.Open "select name from master.dbo.sysdatabases", AdoConnX, adOpenDynamic, adLockOptimistic

[zymfy]

什么数据库，如果是SQL SERSVER的话俺知道。