各位大哥：怎么样从一张空表中返回表的字段名。把返回的结果放在listbox空件中

Question

各位大哥：怎么样从一张空表中返回表的字段名。把返回的结果放在listbox空件中

Answer 1

Dim cn As New ADODB.Connection
  
  cn.ConnectionString = "dsn=" & cboDSN1.Text & ";uid=" & txtUID1.Text & ";pwd=" & txtPWD1.Text
  cn.Open
  
  Set rs = cn.OpenSchema(adSchemaTables)
  
  lstTable1.Clear
  
  lblStatus1.Caption = "数据源连接成功，正在检索数据表..."
  
  DoEvents
  
  Do Until rs.EOF
    If Trim(rs!TABLE_TYPE) = "TABLE" Then lstTable1.AddItem Trim(rs!TABLE_NAME)
    rs.MoveNext
  Loop

Answer 2

建议：(针对SQL)
1:建一个视图 (很多地方都能用到的)
Create view fielddesc    
as    
select o.name as oname, c.name as cname,convert(varchar(30),p.value) as value,p.smallid as psmallid,t.name as tname 
from syscolumns c  
join systypes t on c.xtype = t.xtype
join sysobjects o on o.id=c.id 
left join    sysproperties p on p.smallid=c.colid and p.id=o.id    
where o.xtype='U'    查询时:
Select * from fielddesc where oname = '你的表名'2: 将 select cname from fielddesc where oname = '你的表名' 
的结果加到listbox即可。

Answer 3

Set rs = cn.OpenSchema(adSchemaTables)