ACCESS模糊查询报错，MOVENEXT报内存溢出

llpsrnfrw

代码如下

1. Sub search()
   
2. Dim db As New AccessDB
   
3. Dim i As Integer, j As Integer
   
4. Dim strA As String
   
5. Call clear
   
6. 
   
7. db.DBName = ThisWorkBook.path & "\order.mdb"
   
8. 
   
9.     strA = ""
   
10.     If Not IsEmpty(Range("f1")) Then
    
11.         strA = strA & " and ordername like '%" & Trim(Range("f1")) & "%'"
    
12.     End If
    
13.    
    
14.     If Not IsEmpty(Range("f3")) Then
    
15.         strA = strA & " and [as] like '%" & Trim(Range("f3")) & "%'"
    
16.     End If
    
17.    
    
18.     If Not IsEmpty(Range("h3")) Then
    
19.         strA = strA & " and dv like '%" & Trim(Range("h3")) & "%'"
    
20.     End If
    
21. 
    
22.     If strA = "" Then
    
23.         db.RunSQL "select * from pj"
    
24.     Else
    
25.         strA = Right(strA, Len(strA) - 4)
    
26.         db.RunSQL "select * from pj where " & strA
    
27.     End If
    
28.    
    
29.     With ActiveSheet
    
30.     i = 5
    
31.     Do Until db.RS.EOF
    
32.         For j = 1 To 8
    
33.             If j = 4 Then
    
34.             .Cells(i, j) = Replace(db.RS.Fields(j - 1), "chr(39)", "'")
    
35.             End If
    
36.             .Cells(i, j) = db.RS.Fields(j - 1)
    
37.         Next
    
38.         
    
39.         If db.RS.Fields(8) = True Then
    
40.         .Cells(i, 9) = Cells(1, 1)
    
41.         End If
    
42. 
    
43.     i = i + 1
    
44.     db.RS.MoveNext            当没有检索条件的时候（即strA为空的时候没有问题），有检索条件的时候这句报错，内存溢出
    
45.     Loop
    
46.     End With
    
47.    
    
48. MsgBox ("Done")
    
49. 
    
50. End Sub

复制代码

求大神指点

Lightzeng

可能是select 语句错误，在28行后加判断strA是否以" and"开头，如果是就取right(strA,len(strA)-4)，避免select语句错误
if strA like " and*" then strA=right(strA,len(strA)-4)

llpsrnfrw

Lightzeng 发表于 2015-4-1 13:54
可能是select 语句错误，在28行后加判断strA是否以" and"开头，如果是就取right(strA,len(strA)-4)，避免se ...

SELECT语句没有问题，如果有问题，那么报错是报在DB.RUNSQL这句上，现在他是能搜到数据，是在到下一条的时候报错
而且STRA已经加了判断，在22到27行