VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1509|回复: 1

VB数据库查询find方法源程序(含附件)请教问题

[复制链接]
发表于 2013-7-11 19:14:15 | 显示全部楼层 |阅读模式
在学习VB数据库find方法编程时遇到未解决的问题,请教各位大侠帮忙!谢谢!
我的QQ515127998,邮箱suke0012@126.com
一、源代码如下:
Private Sub Command1_Click()
If Text1.Text = "" Then
       MsgBox "请输入城市名称", 0, "提示:"
       Text1.SetFocus
Else
      Adodc1.Recordset.Find "地区名称 like '%" & Text1.Text & "%'", 2, adSearchForward
      If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "没有您要查找的城市,请在尾输入城市参数", , "注意:"
      Set DataGrid1.DataSource = Adodc1
End If
End Sub

Private Sub Form_Load()
  Me.Show
End Sub
二、运行时情况如下:
1,在文本框未输入任何文字时,点击“地区查询”按钮,显示“提示: 请输入城市名称”,按确定按钮返回。
2,在文本框中输入与“地区名称”内没有任何关系的字符时,如:“1”时,点击“地区查询”按钮,显示“注意:没有您要查找的城市,请在尾输入城市参数”,按“确定”按钮返回。
3,在文本框输入与“地区名称”内名称完全一致的名称,比方“北京”,点击“地区查询”按钮,find方法就直接定位到“北京”处,我再点击一次“地区查询”按钮,就显示“注意:没有您要查找的城市,请在尾输入城市参数”,问题:我想再点击“地区查询”按钮,仍停留在“北京”处,而不出现显示“注意:没有您要查找的城市,请在尾输入城市参数”的提示。
4,如果在文本框输入与“地区名称”内的名称更简单的字符,如输“安”时,首先查找到第一个带“安”字的城市,每点击一次“地区查询”按钮,就查找到一个带“安”字的城市名,一直到最后一个带“安”字的城市名后,如果再点击一次“地区查询”按钮,就显示“注意:没有您要查找的城市,请在尾输入城市参数”,问题:我想再点击“地区查询”按钮,查找到最前部的第一个带“安”字的城市处,而不出现显示“注意:没有您要查找的城市,请在尾输入城市参数”的提示。

VB数据库find方法学习文件.rar

58.16 KB, 下载次数: 165

VB数据库find

 楼主| 发表于 2013-7-26 08:00:05 | 显示全部楼层
各位朋友!帮帮忙吧!求大家啦!呵呵!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-5 17:36

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表