难问题继续出现中,很难的啊。

gas001 2008-01-23 08:17:50
先感谢jadeluo给我解决了上会这回的问题

我想把text1中的内容和数据库某个字段中的内容进行比较(不考虑顺序和大小写)
比如:TEXT1=“abcd/” 数据库字段: zuzhif 有以下4条
1:1234
2:abcd/
3:666666
4:cd/ab
通过查询符合结果的应该是第2个记录和第4个记录

这个是我查询的代码,只能对字符进行精确查找如果内容相同,顺序不同是找不到的
Adodc1.RecordSource = where zuzhif='" + Text1.text + "'
Adodc1.Refresh
,现在该怎么改呢
...全文
55 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
vbman2003 2008-01-23
  • 打赏
  • 举报
回复
以access为例:

[code=SQL]
Dim sql As String
Dim i As Integer

sql = "select * from tb where len(zuzhif)=" & Len(Trim(Text1))

For i = 1 To Len(Trim(Text1))
sql = sql & " and instr(zuzhif,'" & Mid(Trim(Text1), i, 1) & "' )"
Next
'Debug.Print sql
Adodc1.RecordSource =sql
[/code]
vbman2003 2008-01-23
  • 打赏
  • 举报
回复
以access为例:


Dim sql As String
Dim i As Integer

sql = "select * from tb where len(zuzhif)=" & Len(Trim(Text1))

For i = 1 To Len(Trim(Text1))
sql = sql & " and instr(zuzhif,'" & Mid(Trim(Text1), i, 1) & "' )"
Next
'Debug.Print sql
Adodc1.RecordSource =sql

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧