我用下面语句为什么错啊?
.find "gh='"& trim(text1) &"'and bz='"& trim(text2) &"'"
哪位大虾说说啊?
.find "gh='"& trim(text1) &"'and bz='"& trim(text2) &"'"
哪位大虾说说啊?
解决方案 »
- 水晶报表9装上,vb6就可以使用吗
- 如何读取另一个进程的全部内存?高手来
- 急急急,如何将带"/"的字符串分成多个字符串?
- 求教用一个Treeview做一个Windows资源管理器
- 一放toolbar,通知栏就失效
- 为什么我使用input方法之后,mscom的comevents值还是=2
- TrackPopupMenu 问题
- 各位兄弟,我觉得我还不太差,怎么没有应聘单位理我啊?
- 模拟发送鼠标操作,这wMouseMsg为什么模拟不出来??
- SQL7数据库程序被意外删去
- 获取本机ip地址
- 要在DataReport1.Show之前对页面大小、页边距、还有对打印机的进纸器、进行设置,可是在DataReport1.Show应该怎么设置这个参数?谁可以给
Find 方法
搜索 Recordset 中满足指定标准的记录。如果满足标准,则记录集位置设置在找到的记录上,否则位置将设置在记录集的末尾。语法Find (criteria, SkipRows, searchDirection, start)参数criteria 字符串,包含指定用于搜索的列名、比较操作符和值的语句。SkipRows 可选,长整型值,其默认值为零,它指定当前行或 start 书签的位移以开始搜索。searchDirection 可选的 SearchDirectionEnum 值,指定搜索应从当前行还是下一个有效行开始。其值可为 adSearchForward 或 adSearchBackward。搜索是在记录集的开始还是末尾结束由 searchDirection 值决定。start 可选,变体型书签,用作搜索的开始位置。说明criteria 中的“比较操作符”可以是“>”(大于)、“<”(小于)、“=”(等于)、“>=”(大于或等于)、“<=”(小于或等于)、“<>”(不等于)或“like”(模式匹配)。 criteria 中的值可以是字符串、浮点数或者日期。字符串值以单引号分界(如“state = 'WA'”)。日期值以“#”(数字记号)分界(如“start_date > #7/22/97#”)。如“比较操作符”为“like”,则字符串“值”可以包含“*”(某字符可出现一次或多次)或者“_”(某字符只出现一次)。(如“state like M_*”与 Maine 和 Massachusetts 匹配。)。
你在and前面没有空格,另外应该这样写:
.find "gh='"& trim(text1) &"' and bz='"& trim(text2) &"'", , adSearchForward, adBookFirst这样应该就不会错了
好象不能带 AND 吧 自己查点资料吧 用SQL方便!
ByRef oRs As ADODB.Recordset, _
sCriteria As String)
Dim clone_rs As ADODB.Recordset
Set clone_rs = oRs.Clone
clone_rs.Filter = sCriteria
If clone_rs.EOF Or clone_rs.BOF Then
oRs.MoveLast
oRs.MoveNext
Else
oRs.Book = clone_rs.Book
End If
clone_rs.Close
Set clone_rs = Nothing
End Sub 调用:
Multi_Find rs, "gh='"& trim(text1) &"'and bz='"& trim(text2) &"'"GoodLuck!
有时要对临时表进行处理,ado记录集对象是不支持sql语句的呀!