adodc1.recordset.find问题，在线等待

Question

用SQL语句吧，select
根据返回的记录数来确定

Answer 1

Adodc1.Recordset.movefirst
Adodc1.Recordset.Find "mc='" + str_TempOpt + "' and flm='" & UCase(Trim(Txt_Flm.Text)) & "'"

Answer 2

qqqdong的方法试了也不行
提示
“实时错误 ‘3001’
变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突”我只想在原来记录集的基础上，实现查询定位，并且反映到DATAGRID的当前记录上。用SQL怎么实现呢请教！

Answer 3

find不支持多个查询条件。
改用
Adodc1.Recordset.Filter =  "mc='" + str_TempOpt + "' and flm='" & UCase(Trim(Txt_Flm.Text)) & "'"

Answer 4

另一方法：
Adodc1.Recordset.MoveFirst
Do
Adodc1.Recordset.Find "mc='" + str_TempOpt + "'"
If Adodc1.Recordset!flm='" & UCase(Trim(Txt_Flm.Text)) & "'"
 Or Adodc1.Recordset.EOF Then Exit Do
Loop

Answer 5

Adodc1.Recordset.Filter =   "mc = '" & str_TempOpt & "' and flm = '" & UCase(Trim(Txt_Flm.Text)) & "'"
应该可用。

Answer 6

谢谢，，在OF123（）的帮助下，，
采用如下方法Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
    If Trim(Adodc1.Recordset.Fields("mc").Value) = str_TempOpt And Trim(Adodc1.Recordset.Fields("flmmc").Value) = Trim(Txt_Mc.Text) Then
        Exit Do
    Else
        Adodc1.Recordset.MoveNext
    End If
Loop不过，这样效率不是很高，，有没有其他方法关于FILTER我也改过把+改为&,,,
为什么不行呢？

Answer 7

Adodc1.Refresh
            With Adodc1.Recordset
                Do While Not .EOF
                    If Trim(.Fields("mc").Value) = str_TempOpt And Trim(.Fields("flmmc").Value) = Trim(Txt_Mc.Text) Then
                        Exit Do
                    Else
                        .MoveNext
                    End If
                Loop
            End With

Answer 8

把“+”全改成“&”试一试。

Answer 9

还是不要逐记录循环。
我的“另一种方法”尽可能利用了find，应该好些。

Answer 10

filter方案应该可用。我的程序用的很多。查是否有笔误。

Answer 11

我试过filter了，可是提示属性的使用无效！怎么办啊？

Answer 12

Adodc1.Recordset.MoveFirst
Do
    Adodc1.Recordset.Find "flm like '" & Txt_Flm.Text & "'"
    If Adodc1.Recordset.EOF Then
        MsgBox "没有找到对应的分类！", vbOKOnly + vbInformation, "提示"
        Exit Do
    End If
    If Trim(Adodc1.Recordset.Fields("mc").Value) = str_TempOpt Then Exit Do
    Adodc1.Recordset.MoveNext
Loop