怎么样同时在Access与CSV范围内查找？
本帖最后由 mpy2003 于 2013-04-02 23:07:18 编辑 我已知一个数组prArry(n)，需要在Access里查找到与之对应的数据，另外还要在CSV里查找与之对应的数据

For V = 0 To n
        MDI.Progress.Value = V
        Do While Not EOF(res)
            res.Open "select * from 新目录 where 编号='" & prArry(V) & "'", con, 1, 1
            编号 = prArry(V)
            型号 = res.Fields("型号").Value
        Loop
        Do While Not EOF(1)
            Line Input #1, strFile
            If strFile(3)=prArry(V) Then  日期 = strFile(4)
        Loop
Next

请问大家这样可以实现吗？还是说两个Do只能单独分开用For循环？ csv access input
[解决办法]
不能。但是可以不用循环。

如果数组较短，可以将其中元素转为逗号分隔的字符串：

res.Open "select * from 新目录 where 编号 in(" & strArry & ")", con, 1, 1

如果数组很大，可以将其写入 Access 库中的一个表：

res.Open "select * from 新目录 where 编号 in(select 编号 from 新表)", con, 1, 1

实际上，csv 文件也可以当作外部数据库来访问，使用 SQL 查询。