如何通过多个文本框对表格进行查询 - 编程论坛

#2

wxflw2012-12-11 11:36

是不是麻烦了点？
Adodc.RecordSource = "select * from 表1 where " + mystr + " like '%" & Text1.Text & "%' and " + mystr + " like '%" & Text2.Text & "%'"'用and连起来

#3

luyaqi20112012-12-11 16:08

回复 2楼 wxflw

如果文本框为空会不会有影响？

#4

wxflw2012-12-11 18:47

回复 3楼 luyaqi2011

你试试就知道了啊！
如果不允许空查询就多写一句
if text1.text="" or text2.text="" then  '如果两个文本框其中有一个是空
   exit sub  '退出过程
end if
如果你需要默认无条件查询直接
Adodc.RecordSource = "select * from 表1 "
就可以了
如果你要灵活的查询就做一个多条件查询，提供一点给你参考一下
dim a
If Len(text1.Text) > 0 Then
      a = "" + mystr + " like  '" & text1.Text & "'"
End If
If Len(text2.Text) > 0 Then
    If Len(a) > 0 Then
           a = a & " and " + mystr + " like  '" & text2.Text & "'"
       Else
          a = "" + mystr + " like  '" & text2.Text & "'"
    End If
End If
Adodc.RecordSource = "select * from 表1 where" & a

#5

luyaqi20112012-12-12 09:41

回复 4楼 wxflw

Adodc.Refresh
在这一步时会出现报错，“无法错误（操作符丢失）在查询表达式‘名称 like '%王%' 编号 like '%12%'"中.

为什么？

#6

Artless2012-12-12 13:56

以下是引用luyaqi2011在2012-12-12 09:41:30的发言：

Adodc.Refresh
在这一步时会出现报错，“无法错误（操作符丢失）在查询表达式‘名称 like '%王%' 编号 like '%12%'"中.

为什么？

少了and吧

#7

luyaqi20112012-12-12 14:13

回复 6楼 Artless

这个and应该加在哪里才合适？

#8

wxflw2012-12-12 15:21

两个查询条件的中间
and是“和”的意思，懂吗？

#9

luyaqi20112012-12-13 10:43

回复 8楼 wxflw

已解决，谢谢！