如何将数据库中表列出来？好像用ado无法查找吧，有tables对象吗？

Question

ADO可以
如If mcnn.State = adStateOpen Then
Set mrecd = mcnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
If Not mrecd Is Nothing Then
 Do While Not mrecd.EOF
If UCase(Left(mrecd!Table_name, 4)) <> "MSYS" Then
If UCase(Left(mrecd!Table_name, 11)) <> "SWITCHBOARD" Then
newxz = mrecd!Table_name
Form2.Combo1.AddItem newxz
End If
End If
mrecd.MoveNext
Loop
Form2.Combo1.AddItem DEF_CUSTOM_SQL
End If
给分

Answer 1

SELECT * FROM SysObjects  WHERE XType='u'

Answer 2

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
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