希望大家和版主帮忙看看这句话

yuanlinfj

Sub 查询()
    Dim cnn As Object
    Dim SQL$, s$
    Dim arr, brr, i&
    Set cnn = CreateObject("ADODB.Connection")
    SQL = "select * from 计划表 "
    arr = Range("C2:E3")
    brr = Array("", "'", "'", "'")
    For i = 1 To UBound(arr, 2)
        If Len(arr(2, i)) Then s = s & " and " & arr(1, i) & "=" & brr(i) & arr(2, i) & brr(i)
    Next
    If Len(s) Then SQL = SQL & " where " & Mid(s, 6)
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\mrp.mdb"
    ActiveSheet.UsedRange.Offset(7).ClearContents
    [a8].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

查出来的结果没有顺序性 本人试过加 order by id ASC  来控制 ，但整体查找顺序有了，却影响精确查找过程！，应该如何解决？？

香川群子

那么换个思路：
查询结果输出到工作表以后再排序，不就得到你所需要的结果了么？

yuanlinfj

很费劲的 数据量太大了，，操作起来很麻烦，
If Len(s) Then SQL = SQL & " where " & Mid(s, 6)   '添上这句话 就ok 了
SQL = SQL & Crt & "order by ID ASC"   什么都解决了，-------------------------------------谢谢大家 我自己解决了，，，不用回复了，

201228

yuanlinfj 发表于 2012-11-21 15:48
很费劲的 数据量太大了，，操作起来很麻烦，
If Len(s) Then SQL = SQL & " where " & Mid(s, 6)   '添上这 ...

能告诉你写的是什么吗？

yuanlinfj

201228 发表于 2012-11-22 19:44
能告诉你写的是什么吗？

我不懂vb 编写，，上面英文我也不知道是什么意思，，不过放上那句话确实达到我要的效果，我是试出来的。如果你要看实例 ，点击，http://club.excelhome.net/thread-947687-1-1.html里面有我拼凑的东西，我只不过是借用别人的代码，拼成想要的，全是本站各位高手的杰作。真不好意，

201228

yuanlinfj 发表于 2012-11-23 14:03
我不懂vb 编写，，上面英文我也不知道是什么意思，，不过放上那句话确实达到我要的效果，我是试出来的。 ...

o(>﹏<)o不要啊

yuanlinfj

201228 发表于 2012-11-23 19:06
o(>﹏

你可以问问版主   给版主留言 这句话 源于 版主 解答的一个 附件   ，，这个俺真帮不了你，，确实不懂！我填的那句话 源于我的另一个附件，恰巧而已，就好使了。