如何使用ADO recordset的Find方法? sql="select 客户编码 from 表1"adodc1.recordsource=sqladodc1.refreshadodc1.recordset.find "客户编码=1" 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DIM RST AS ADODB.RECORDSETDIM SEARCHSTRING AS STRINGRST.OPEN "SELECT 姓名,工作单位 FROM 通讯录"SEARCHSTING="姓名='"+TEXT1.TEXT+"'"RST.FIND SEARCHSTRING rstMY.Find('"字段名='XX‘“)if not rstMy.Eof then MsgBox "找到这条记录"endif sql="select * from Table Where 姓名 Like & '%" & Text1.Text & "%'" Adodc1.RecordSource=sqlAdodc1.RefreshIf Adodc1.RecordSet.RecordCount>0 Then MsgBox "找到这条记录" Adodc1.RecordSet.Find "姓名='" & Text1.Text & "'" Find 只支持一个条件你可以使用Filter此可以持多个条件! 请问前辈们sw二次开发装配体中替换零件的代码为何不对?小女子初学solidworks二次开发,忘前辈们不吝赐教。 请教TextBox,RichTextBox,Label怎样设置字符间距? 如何屏蔽掉WebBrowser在刷新网页等时候 发出的声音 有没有朋友对IIS开发的资料啊??? OCX与DLL组建的注册与反注册 请问:怎么把ntfe转化为fat32!!!!!! 那儿有XP样式的VB控件下载? 菜鸟的困惑!:( 我想把我选中的图标放到exe文件里面去,该怎么办? 右键菜单复制项下面添入自己的一项? 谁有sql 2000 有关锁的详细资料.....100分 关于ADO的一个简单问题。
DIM SEARCHSTRING AS STRING
RST.OPEN "SELECT 姓名,工作单位 FROM 通讯录"
SEARCHSTING="姓名='"+TEXT1.TEXT+"'"
RST.FIND SEARCHSTRING
if not rstMy.Eof then
MsgBox "找到这条记录"
endif
Adodc1.RecordSource=sql
Adodc1.Refresh
If Adodc1.RecordSet.RecordCount>0 Then MsgBox "找到这条记录"
Adodc1.RecordSet.Find "姓名='" & Text1.Text & "'"
你可以使用Filter
此可以持多个条件!