请教VB.NET 2005 怎么读出数据中的所有表名.和表名里的字段.数据库是不定的

请问VB.NET 2005 如何读出数据中的所有表名.和表名里的字段.数据库是不定的.
一般我们都是自己定义一个数据库.用SQL语句查询这个数据库中的某个表中的内容.
现在我想.可以任意浏览一个数据库.点连接后.就能把这个数据库里的所有表名(而不是一个表)
读到LISTBOX控件中.
不知道这个SQL语句怎么写,网上也查了,没用.请问VB.NET 2005 还行.网上好像有一个VB6的.
但好像是引用ADO的.

------解决方案--------------------
SELECT name [Table Name]
FROM sysobjects
WHERE xtype = 'U'
------解决方案--------------------

SQL code





ELECT 
 表名=case when a.colorder=1 then d.name else '' end,
 字段序号=a.colorder,
 字段名=a.name,
 标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end,
 主键=case when exists(SELECT 1 FROM sysobjects where xtype='PK' and name in (
  SELECT name FROM sysindexes WHERE indid in(
   SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid
  ))) then '√' else '' end,
 类型=b.name,
 占用字节数=a.length,
 长度=COLUMNPROPERTY(a.id,a.name,'PRECISION'),
 小数位数=isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
 允许空=case when a.isnullable=1 then '√'else '' end,
 默认值=isnull(e.text,''),
 字段说明=isnull(g.[value],'')
FROM syscolumns a
 left join systypes b on a.xtype=b.xusertype
 inner join sysobjects d on a.id=d.id  and d.xtype='U' and  d.name<>'dtproperties'
 left join syscomments e on a.cdefault=e.id
 left join sysproperties g on a.id=g.id and a.colid=g.smallid  
order by a.id,a.colorder

请教VB.NET 2005 怎么读出数据中的所有表名.和表名里的字段.数据库是不定的

相关推荐