如何获得数据库中的所有表名?

Question

查询数据字典。不同的数据库是不一样的。要看你用的是什么数据库。
例如
oracle: select * from all_tables;所有表
用户表：select * from user_tables;用户表
sqlserver:
SELECT sysobjects.name, sysusers.name AS Owner FROM sysobjects

Answer 1

感谢您使用微软产品。您可以利用ADO.Connection对象的OpenSchema方法获得表的信息。如下例：Public Sub OpenSchemaX()   Dim Cnxn As ADODB.Connection
   Dim rstSchema As ADODB.Recordset
   Dim strCnxn As String
      
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Cnxn.Open strCnxn
      
   Set rstSchema = Cnxn.OpenSchema(adSchemaTables)
   
   Do Until rstSchema.EOF
      Debug.Print "Table name: " & _
         rstSchema!TABLE_NAME & vbCr & _
         "Table type: " & rstSchema!TABLE_TYPE & vbCr
      rstSchema.MoveNext
   Loop
   
   ' clean up
   rstSchema.Close
   Cnxn.Close
   Set rstSchema = Nothing
   Set Cnxn = Nothing
   
End Sub
'EndOpenSchemaVB请参考下面的例子：
OpenSchema Method Example (VB)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthopenschemax.asp-  微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。