精华区 [关闭][返回]
当前位置：网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>〓〓...数据库技术...〓〓>>SQL技巧>>[转载]获得数据库中所有表的名字（VB代码）

主题：[转载]获得数据库中所有表的名字（VB代码）
发信人: winsy(鹰派)
整理人: winsy(2003-03-09 13:14:31), 站内信件
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  
---------------------------------------------------------------  
 
sql  server:  
 
select  name  from  sysobjects  where  xtype='u'  
 
 
mysql  :  
   show  tables  

（转自CSDN）
[关闭][返回]