永发信息网

vb6 如何在SQL中增加判断

答案:3  悬赏:20  手机版
解决时间 2021-08-01 13:20
  • 提问者网友:自食苦果
  • 2021-07-31 12:25

Data1.RecordSource = "select * from 工厂资料 where 'Text1.Text'<>' ' and 简称 = '" & Text1.Text & "'or 'Text2.Text'<>' ' and 全称 = '" & Text2.Text & "' "

有两个文本框,text1和text2,text1绑定工厂资料表的"简称"字段,2绑定了'全称'字段。

在 '工厂资料' 表的数据中有出现 '简称' 或者 '全称' 字段为空的记录。

出现如下问题:

搜索时如果text1或者text2其中没有填内容,那么对应字段所有为空值的记录都搜索出来了。

我希望在语句中加个判断,当text1.text或text2.text的字段不为空时,才筛选出和文本框内容一致的记录。

谢谢。

最佳答案
  • 五星知识达人网友:掌灯师
  • 2021-07-31 13:16

我觉得做个预判断比较好。


If Text1.text<>"" or Text2.text<>"" then



Data1.RecordSource = "select * from 工厂资料 where 简称 = '" & Text1.Text & "' or 全称 = '" & Text2.Text & "' "



end if

全部回答
  • 1楼网友:像个废品
  • 2021-07-31 15:20

if text1.text<>"" or text2.text<>"" then

data1.recordsource="select * from 工厂资料 where 简称='" & text1.text & "'" and 全称='" & text2.text & "'"

else

data1.recordsource="select * from 工厂资料 where 简称="NULL" or全称="NULL'"

end if

  • 2楼网友:狂恋
  • 2021-07-31 14:24

前面先加个判断

if Text1.Text !='' && Text2.Text!=''

Data1.RecordSource = "select * from 工厂资料 where 'Text1.Text'<>' ' and 简称 = '" & Text1.Text & "'or 'Text2.Text'<>' ' and 全称 = '" & Text2.Text & "' "

else

........

可能写法上有问题,VB以前很早以前看过,就是这个思路,判断以后在处理SQL

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯