Dim Adors As New ADODB.Recordset
    Dim Adoconn As New ADODB.Connection
    Adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Extended Properties=Excel 8.0;Data Source =\\services\全部数据\test\03-4月.xls"
    Dim strs As String要写这样的一句语句的话怎么写?:
 Adors.Open "select * from [sheet1$] where ***=阿伟"
                                         |
                                         |
                                  这里的列不想access中有列名,excel没有
                                  列名,那怎么个写法哦?

解决方案 »

  1.   

    它有序号呀:A,B,C 什么的。
      

  2.   

    不是用A,B,C这样的,我用过没对!
      

  3.   

    up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!up!
      

  4.   

    如果第一行对应的列不为空,则是每一行,如为空刚是f1,f2,f3...
      

  5.   

    你先试着不加where,全读出来看看字段名是什么不就知道了。
      

  6.   

    不导入,这样速度太慢了。我要的只是字段的名称
    f1,f2,f3好象有时候实现起来不行,不是很好,icnetcn(yoyo之无双) 说的能把字段名称读出来,怎么个读法啊?
      

  7.   

    Adors.Open "select * from [sheet1$]"