如何列举数据库中所有的表名？（在线等待！）

Question

http://www.csdn.net/expert/topic/607/607737.xml?temp=.1163446请参考此贴

Answer 1

调用ADOConnection组件的GetTableNames方法即可，详见msdn ado帮助

Answer 2

我是用Ado是不Dao。Dao 的方法我也知。
用Ado有没有办法？

Answer 3

你可以从sysobjects表中选出，条件是xtype=‘U’

Answer 4

该范例使用 OpenSchema 方法显示 Pubs 数据库内每个表的名称和类型。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

Answer 5

CSDN为什么把回车给去掉了???

Answer 6

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
把str写成自己的Access连接

Answer 7

gump2000(阿甘) 的代码好象是Ado帮助里吧。
总之谢谢大家了。问题顺利解决