SQL 查询语句中可以用多个AND 吗

蒋老三

请问论坛上的老师们：SQL 查询语句中可以用多个AND 吗?
SQL = "Select count(*) from 库存期初 WHERE 品名='" & TextBox2.Value & "' and 规格型号= '" & TextBox3.Value & "'and 件 = " & TextBox4.Value & " and 瓶 = " & TextBox5.Value & "  and 货位= '" & ComboBox1.Value & "'"
        Set Rs = cnn.Execute(SQL)
        If Rs(0) > 0 Then
        If MsgBox("已有商品【" & TextBox2.Value & "" & TextBox3.Value & "】的库存期初信息！", 64, "提示") = vbCancel Then Exit Sub
这段语句不管有无重复的库存期初信息都提示已有库存期初信息

[ 本帖最后由 蒋老三 于 2009-9-16 23:22 编辑 ]

HHAAMM

如果要是 where id <>1  and id <>2 and id <>3
那其实就是where id >3

楼主不如传个附件上来
没注意到有讨论多少个and的问题

[ 本帖最后由 HHAAMM 于 2009-9-16 23:32 编辑 ]

amolin

在WHERE子句里可以使用多个AND设置筛选条件！

如果我的方案为您带来了价值,请光临我的小店:http://shop59233950.taobao.com,您的鼓励,我的动力

HHAAMM

楼主
1、Rs(0) > 0 表示的是最少有一条该记录，跟重复没关系，Rs(0) > 1才是重复
2、MsgBox("已有商品【" & TextBox2.Value & "" & TextBox3.Value & "】的库存期初信息！", 64, "提示")= vbCancel 有问题
, 64,  就只会出现一个按钮，vbCancel 是2，两者永远不会是true的

蒋老三

附件已上传，烦请版主看一下代码

蒋老三

原帖由 HHAAMM 于 2009-9-17 00:21 发表
楼主
1、Rs(0) > 0 表示的是最少有一条该记录，跟重复没关系，Rs(0) > 1才是重复
2、MsgBox("已有商品【" & TextBox2.Value & "" & TextBox3.Value & "】的库存期初信息！", 64, "提示")= vbCancel 有问题
, 64, ...

如果一条记录都没有，那应该不会出现提示吧

amolin

LZ再整理一下逻辑，去掉所有的On error resume next。看看我的修改

如果我的方案为您带来了价值,请光临我的小店:http://shop59233950.taobao.com,您的鼓励,我的动力。

[ 本帖最后由 amolin 于 2009-9-17 08:51 编辑 ]

laoyebin

If Rs(0) > 0 Then
        If MsgBox("已有商品【" & TextBox2.Value & "" & TextBox3.Value & "】的库存期初信息！", 64, "开票系统") = vbCancel Then Exit Sub
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
    CommandButton3.Enabled = True
    CommandButton4.Enabled = False
        Exit Sub

你这段代码如果查找到有符合的记录的话就退出了，当然后面的更新就不执行了

蒋老三

原帖由 amolin 于 2009-9-17 08:50 发表
LZ再整理一下逻辑，去掉所有的On error resume next。看看我的修改如果我的方案为您带来了价值,请光临我的小店:http://shop59233950.taobao.com,您的鼓励,我的动力。

模块未找到，请老师再指点一下

蒋老三

原帖由 laoyebin 于 2009-9-17 08:56 发表
If Rs(0) > 0 Then
        If MsgBox("已有商品【" & TextBox2.Value & "" & TextBox3.Value & "】的库存期初信息！", 64, "开票系统") = vbCancel Then Exit Sub
        TextBox2.Enabled = False
        Tex ...

就是没有查找到符合的记录，也退出更新；还请老师再指点