已解决----添加多条件窗体查询下拉列表求助

lym321

另注：查询条件有三四十之多，求助附件中的条件，只是列举部份，以点代面----来向各位高手讨教！！！
ACC数据库密码：123

说明：现在的求助附件是----经网友修改过的全新附件

      本案例
      经
      坛内网友： xinjiana      热心帮忙
      基本上能达到要求
      美中不足之处
      就是无下拉列表选择
     今日
      将贴
      顶上水面来
      请教
最佳方法
谢谢！！！

[ 本帖最后由 lym321 于 2010-6-21 10:26 编辑 ]

xinjiana

直接再excel里调用ado写sql就可以了，这样的例子，在vba版块里很多的

lym321

原帖由 xinjiana 于 2010-6-20 19:59 发表
直接再excel里调用ado写sql就可以了，这样的例子，在vba版块里很多的

楼上的兄台
以单元格区域-----作为查询条件
坛内
确实有很多实例

但
以窗体-----作为多条件查询条件 （窗体-------主要起美观作用）
在
坛内
本菜没搜索到实例
还请
兄台
传一个实例
参考参考
谢谢！！！1

xinjiana

在窗体上列出三四十个textbox 或者 combobox作为筛选条件？

你确认需要这么多条件？

lym321

原帖由 xinjiana 于 2010-6-20 21:27 发表
在窗体上列出三四十个textbox 或者 combobox作为筛选条件？

你确认需要这么多条件？

兄台
你好！！！
本菜是想把ACC数据库单一表单上的所有字段名，外加日期区间作为条件来查询
这样
在查询操作窗体中
不管你
添加一个条件
或添加数个条件
都能查到想要的数据
当
不选择条件时
就当作
查询ACC单一表单全部数据

xinjiana

帮你简单写了点，基本结构是这样的，具体的自己可以再完善一下

1. Private Sub CommandButton1_Click()
   
2.     Dim Cnn As New ADODB.Connection
   
3.     Dim Rs As New ADODB.Recordset
   
4.     Dim Sq1 As String
   
5.     Cnn.Open "provider=Microsoft.jet.OLEDB.4.0;Jet OLEDB:Database Password=123;data source=" & ThisWorkbook.Path & "\数据源请不要点击和删除该文件夹\进货最原始录入查询.MDB"
   
6.         Sq1 = "Select * from 出货 where 1=1 "
   
7.         If Me.ComboBox1.Text <> "" Then
   
8.             Sq1 = Sq1 + " and 日期>=#" & Me.ComboBox1.Text & "#"
   
9.         End If
   
10.         
    
11.         
    
12.         If Me.ComboBox2.Text <> "" Then
    
13.             Sq1 = Sq1 + " and 日期<=#" & Me.ComboBox2.Text & "#"
    
14.         End If
    
15.         
    
16.         
    
17.         If Me.ComboBox3.Text <> "" Then
    
18.             Sq1 = Sq1 + " and 款号='" & Me.ComboBox3.Text & "' "
    
19.         End If
    
20.         
    
21.         
    
22.         If Me.ComboBox4.Text <> "" Then
    
23.             Sq1 = Sq1 + " and 颜色='" & Me.ComboBox4.Text & "' "
    
24.         End If
    
25.         
    
26.         
    
27.         If Me.ComboBox5.Text <> "" Then
    
28.             Sq1 = Sq1 + " and 数量=" & Me.ComboBox5.Text & " "
    
29.         End If
    
30.         
    
31.         
    
32.         Sq1 = Sq1 + " order by 日期"
    
33.         
    
34.         
    
35.         
    
36.         
    
37.         Rs.Open Sq1, Cnn, adOpenKeyset, adLockOptimistic
    
38.         
    
39.         Sheet2.Range("a2").CopyFromRecordset Rs
    
40.         
    
41.     Rs.Close
    
42.     Cnn.Close
    
43.     Set Rs = Nothing
    
44.     Set Cnn = Nothing
    
45. End Sub

复制代码

lym321

谢谢！！！

lym321

再次感谢
顺便：
弱弱地请教
这句代码是什么意思：Sq1 = "Select * from 出货 where 1=1 "
特别是：where 1=1  
指的是什么？？？？

[ 本帖最后由 lym321 于 2010-6-21 09:18 编辑 ]

xinjiana

关于下拉列表，你仔细看form-initialization里面的代码
第一个日期不是有了吗
其他的几个照葫芦画，总会的吧

lym321

本案例
      经
      坛内网友： xinjiana      热心帮忙
      基本上能达到要求
      美中不足之处
      就是无下拉列表选择
      今日
      将贴
      再顶多3次
      请教
      最佳方法
更新过的求助附件在一楼
谢谢！！！