'不打开不会知道的。
'可以打开数据库,然后——
Dim c As ADODB.Connection
Dim a As ADODB.Recordset
Dim b As ADODB.Field
'打开表
For Each b in a
    Debug.Print b.Name
Next

解决方案 »

  1.   

       我是想知道表的字段数,这样可以动态生成TEXT控件,以填充它。
      

  2.   

    我有一个这样例程!要不要?源代码?贴出来还是mail给你! 
      

  3.   

    这样啊,
    用ADODB.Recordset.Fields.Count
    就可以啊,我试过了。
      

  4.   

    我现在有一个相应的程序,可以Email给你吗?
      

  5.   

      to night_cai(菜烟虫) 如果不长的话就贴出来吧,长的话就发到信箱里吧.
      to xzsmartboy(小杰) 当然可以.
       谢谢两位!
      E-mail : [email protected]
      

  6.   

    to netfor2000(云鹤) 可是它没有源代码,我怎么知道它是怎么实现的?
      

  7.   

    to feihong0233(泓) 可不可以用dbengine.workspace(0).database.recordset.fields.count之类的来实现它,我对ado不是很熟悉的.