【求助】商品销售的记录的查询问题 - 编程论坛

#2

chen35232014-02-09 13:31

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = ""  or Text3.Text = "" or Combo1.Text = "" Then
MsgBox "请输入完整查询信息！"
else
'
     Dim SQL As String
      My = "项目名称=" & Chr(34) + DataCombo1.Text + Chr(34)
　　　You = Chr(34) + Trim$(Text3.Text) + Chr(34)

         SQL = "SELECT * FROM 商品销售表  where  " & My & " and  商品名＝" & You and "日期 between" & _
            Chr(35) + Format(Text1.Text, "yyyy-mm-dd") + Chr(35) & _
            "and " + Chr(35) + Format(Text2.Text, "yyyy-mm-dd") + Chr(35)

         = adCmdunknow
        Adodc1.RecordSource = SQL
        Adodc1.Refresh
          Set DataGrid1.DataSource = Adodc1

End Sub
不清楚你数据库的名称，项目名称和商品名可能要修改。只能提供你参考.Text1、Text2格式应作定义或直接引用日期

[ 本帖最后由 chen3523 于 2014-2-9 13:40 编辑 ]

#3

t4691164162014-02-09 16:03

回复 2楼 chen3523

大神，你的代码中我有几个问题

My = "项目名称=" & Chr(34) + DataCombo1.Text + Chr(34)

这段代码中的项目名称是什么意思啊，我希望的是在combo1中选择需要查询的项目，也就是表里的内容项，然后针对这个查询项进行对下面的查询词进行检索，从而得出查询结果，然后就得出的查询结果再可以进行时间区间的查询。
然后这个就是运行的图片

只有本站会员才能查看附件，请登录

其中combo1的list栏中就是最上面的一排，

#4

t4691164162014-02-10 14:04

回复 3楼 t469116416

求大神来指导，万分感想！！！！！！！！！！！！！！！！！！

#5

chen35232014-02-16 11:09

常不在线，不好意思！让你久等

把 DataCombo1.Text 改写成combo1.text就行了。
我用的是操纵数据库用的组合控件。你用的是组合框控件。当时我没看清楚。查找下资料看看这二个控件的不同之处。

[ 本帖最后由 chen3523 于 2014-2-16 11:20 编辑 ]