如何将EXCEL文件批量生成ADO记录集？

Question

环境：VB6+EXCEL2000+ADO2.6
如何将EXCEL文件批量生成ADO记录集？

Answer 1

什么意思？是说在VB中用ADO方式打开EXCEL文件得到RS记录集吗？

Answer 2

是的,是在VB中用ADO方式打开EXCEL文件得到RS记录集,如何处理？

Answer 3

示例：
    Dim Cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    sql = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "\测试.xls;" & _
    "Extended Properties=EXCEL 8.0;"
    
    Cnn.Open sql
    sql = "select * from [客户表$]"
    rs.Open sql, Cnn
    rs.MoveFirst
    rs.MoveNext
    ……
    debug.print rs.field(0)
    ……------------------------------------------------说明：
1、联接串基本上就是这样了，使用起来RS就当平时通过打开数据库得到的RS一样来用
2、[客户表$]指的是SHEET,注意后面有个“$”符号，如果对区域（也就是我们所说的range)进行了命名，也可以这样写：select * from MyRange,如果对没有命名的区域来操作，这样写：select * from [客户表$A1:B10]
3、ADO.net对于EXCEL的操作方法同ADO类似。
4、别的俺就不罗嗦了，LZ自己找一份有数据的EXCEL文件，打开试试就知道了。