Question

vb+access系统怎么实现模糊查询

比如说要查找“信息管理2班”，输入“信二（2）”就能查到

Answer 1

模糊查询不等于自然语言查询, 模糊查询在数据库里通过LIKE语句可以很容易的实现, 但自然语言查询涉及的知识就比较多了. 简单点说, 除非你的数据库里有你要查询的关键词, 否则单依靠数据库无法实现你的要求.

追问

数据库里边有关键词怎么实现……没有关键词的话会提示没有查询内容的

追答

有关键词的话
SELECT * FROM 表名 WHERE 字段名 LIKE '%关键词%'
如
LIKE '%信息%' 或 LIKE '%管理2班%'

追问

不好意思，还有一个问题，我会再加分的
信息录入完毕以后，在查询界面上有一个信息表，怎样让这个信息表里的内容在录入完毕后就能更新，我弄的要打开查询界面两次才能看到新增加的信息
还有一个，录入信息的时候添加的照片，在查询的时候怎样显示出来

追答

第一个问题,你没有说明你是怎么显示数据的,但如果可以排除浏览器缓存问题,应该在刷新后就可以看到新的数据.缓存可以通过
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
等语句使它立即过期,这样就不会使用缓存中的数据.
第二个问题,如果你的照片是以文件形式上传到服务器上,并在数据库保存的路径,你可以直接将图片的虚拟路径输出到img标签的src属性中.如果是以二进制保存到数据库中的,可以另写一个页来读取和返回二进制流,通过img标签指向这个文件并传递参数, 在返回流时,注意设置一下ContentType就OK了.

追问

我用的是DataGrid控件显示数据……图片这样写入数据库对不对
Private Sub Command3_Click()
CommonDialog1.FileName = ""
'CommonDialog1.InitDir = "\我的电脑"
CommonDialog1.Filter = "*.jpg"
CommonDialog1.Action = 1
Picture1.Picture = VB.LoadPicture(CommonDialog1.FileName)
End Sub
那个二进制流我不太清楚，麻烦了

追答

噢,不好意思,我把你的问题当成ASP的了,在VB里就不存在浏览器和二进制流的问题了.
你加载图片到Picture控件的思路是正确的,但从你的代码里看不出与数据库有什么关联.
如果是将图片路径保存到数据库中,只要把这个路径取出以后,通过LoadPicture加载到图片控件就可以了.

追问

照片写入数据库的时候这样行不行
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields!照片 = Picture1.Picture
Adodc1.Recordset.Update

追答

你可以直接把图片的路径保存到数据库中, 最好不要将图片的数据保存到数据库.
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields!照片 = CommonDialog1.FileName
Adodc1.Recordset.Update
这样可能会更好一些,而且更容易处理.