请问高手:如何实现ACCESS数据库的模糊查询即:键入第一个字即可查询到与之相关的全部记录.

请问高手:如何实现ACCESS数据库的模糊查询即:键入第一个字即可查询到与之相关的全部记录.,第1张

加通配符

比如

Like '' & [值] & ''

补充:比如你是通过窗体上的文本框之类的来赋值作查询条件的。

条件可设在查询中,比如LIKE IIF(ISNULL([Forms]![窗体名]![文本框名]),"",''&[Forms]![窗体名]![文本框]&'')

可以用如下SQL语句

select from news where title like '%45%' order by id desc

这就是模糊查询语句,实际用时,用你输入的关键词替换45就行了,但要过滤下单引号

<%

keyw=replace(trim(request("keyw")),"'","")

set rs=connexecute("select from news where title like '%"&keyw&"%' order by id desc")

' 显示结果代码

%>

"SELECT

FROM

[TABLE]

WHERE

[日期和时间]

Like

'2007'";

应改为

"SELECT

FROM

[TABLE]

WHERE

[日期和时间]

Like

'2007%'";

注意,由于你用的是oledb驱动程序,在这里

不能用“”,必须用“%”。如果你用的是DAO访问Access数据库,则必须用“”。

祝你好运!

Public cn As New ADODBConnection

Public rs As New ADODBRecordset

Dim SQL as string

------------------------------

Private Sub Form_Load()

cnConnectionString = "provider=MicrosoftjetOLEDB40;" & _

"Persist security info= False; Data source=" & AppPath & "\datamdb"

cnOpen

rsCursorLocation = adUseClient

End Sub

Private Sub Command1_Click()

If rsState = adStateOpen Then rsClose

SQL = "select from book where 姓名 Like '%" & text10Text & "%'"

rsOpen SQL, cn, adOpenKeyset, adLockPessimistic

If rsRecordCount = 0 Then

MsgBox "No record to be found", vbInformation + vbOKOnly

Else

text1text=rsFields("姓名")

text2text=rsFields("ID")

text3text=rsFields("公司")

text4text=rsFields("职务")

text5text=rsFields("手机")

text6text=rsFields("电话")

text7text=rsFields("地址")

text8text=rsFields("备注")

text9text=rsFields("传真")

End If

End Sub

以上就是关于请问高手:如何实现ACCESS数据库的模糊查询即:键入第一个字即可查询到与之相关的全部记录.全部的内容,包括:请问高手:如何实现ACCESS数据库的模糊查询即:键入第一个字即可查询到与之相关的全部记录.、access2007如何完成模糊查询、C# Access 模糊查询SQL语句等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9658995.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-30
下一篇 2023-04-30

发表评论

登录后才能评论

评论列表(0条)

保存