用VB做查找代码,急急急~

来源：百度知道 编辑：UC知道 时间：2024/05/21 08:30:56
在text1里面输入一定的内容,然后按菜单或工具栏里的查找,先跳出一个对话框,然后输入内容后查找一下,如果有的话就在text里面选中,如果没有,那就弹出对话框提示.有点像word里的查找,不过要简单一点,还要显示共有几处.要代码,最好还有解释,谢谢.急用.

查找使用instr函数
测试有几次可以使用.replace, 然后len长度

比如:
text1="windows xp"
a="xp"

if instr(text1,a)<>0 then msgbox "找到了!"

想在文本框选中,通过instr的返回值,可以设置selstart, 通过查找字符串的长度,来确定sellen, 就可以选中了

至于个数比如:
text1="windows xp or windows 98 or windows 2000"
a="win"

print "个数:"; (len(text1)-len(replace(text1,a,"")))/len(a)

Dim rec As New Recordset '定义一个 记录集
Dim rec2 As New Recordset

If rec.State = adStateOpen Then rec.Close '判断记录集状态，如果是打开就先关闭

SQL = "select * from jxgl where 身份证号 = '" + Text2.Text + "' " 'jxgl是数据库名
rec.Open SQL, con, adOpenStatic, adLockOptimistic '打开记录集
rec.Requery
If rec.RecordCount < 1 Then '这里是判断是否有此学员
MsgBox ("无此学员!")
Exit Sub
End If

你可以看一下.......