求助：按条件查询

此用户被禁言

zhaogang1960 发表于 2015-2-9 16:25
你这是一碗豆腐换成了豆腐一碗，我要的是你的具体要求，不是修改代码，我没有时间看懂别人写的代码

不好意思，老师我修改了，谢谢

jjj2123456?

zhaogang1960 发表于 2015-2-8 18:26
第二步，查询程序

工作表和数据库的表命名一致，赵老师我想做一个循环查询到各个工作表，可以实现吗。
其他的数据库表字段是不一样的，但是要查询条件前面的字段是一样的，请老师再费费心。

新建文件夹 (2).zip (98.14 KB, 下载次数: 8)

2015-2-9 18:31 上传

点击文件名下载附件

zhaogang1960

jjj2123456? 发表于 2015-2-9 18:30
工作表和数据库的表命名一致，赵老师我想做一个循环查询到各个工作表，可以实现吗。
其他的数据库表字段 ...

添加一个有3个页面的多页控件，每个页面代表一个数据表：

1. Dim cnn As ADODB.Connection '模块级变量
   
2. Dim rs As ADODB.Recordset
   
3. Dim myTable As String
   
4. Dim arr As Variant
   
5. 
   
6. Private Sub CommandButton2_Click() '退出
   
7.     Unload Me
   
8. End Sub
   
9. 
   
10. Private Sub MultiPage1_Change()
    
11.     Sheets(MultiPage1.Pages(MultiPage1.Value).Caption).Activate
    
12. End Sub
    
13. 
    
14. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '关闭窗体时断开连接，释放内存
    
15.     On Error Resume Next
    
16.     rs.Close
    
17.     cnn.Close
    
18.     Set rs = Nothing
    
19.     Set cnn = Nothing
    
20. End Sub
    
21. 
    
22. Private Sub UserForm_Initialize() '开启窗体设置18个ComboBox
    
23.     Dim i As Integer
    
24.     Dim j As Integer
    
25.     Dim SQL As String
    
26.     arr = Array("ID号", "编号", "单号", "年", "月", "日")
    
27.     myTable = ActiveSheet.Name
    
28.     Set cnn = New ADODB.Connection
    
29.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\jiageguanli.mdb" '连接数据库
    
30.     With MultiPage1 '添加一个多页控件
    
31.         .Value = ActiveSheet.Index - 1
    
32.         For j = 0 To 2
    
33.             For i = 1 To 6
    
34.                 SQL = "SELECT DISTINCT " & arr(i - 1) & " FROM " & .Pages(j).Caption
    
35.                 Set rs = cnn.Execute(SQL)
    
36.                 Me.Controls("ComboBox" & j * 6 + i).Column = rs.GetRows
    
37.             Next
    
38.         Next
    
39.     End With
    
40. End Sub
    
41. Private Sub CommandButton1_Click() '确定
    
42.     Dim s As String
    
43.     Dim i As Integer
    
44.     Dim j As Integer
    
45.     Dim SQL As String
    
46.     j = MultiPage1.Value
    
47.     If Len(Me.Controls("ComboBox" & j * 6 + 1).Value) Then s = s & " and " & arr(0) & "=" & Me.Controls("ComboBox" & j * 6 + 1).Value
    
48.     For i = 2 To 6
    
49.         If Len(Me.Controls("ComboBox" & j * 6 + i).Value) Then s = s & " and " & arr(i - 1) & "='" & Me.Controls("ComboBox" & j * 6 + i).Value & "'"
    
50.     Next
    
51.     SQL = "SELECT * FROM " & MultiPage1.Pages(j).Caption
    
52.     If Len(s) Then SQL = SQL & " WHERE " & Mid(s, 6)
    
53.     Set rs = cnn.Execute(SQL)
    
54.     If Not rs.EOF Then
    
55.         With Sheets(MultiPage1.Pages(j).Caption)
    
56.             .UsedRange.Offset(1).ClearContents
    
57.             .[a2].CopyFromRecordset rs
    
58.         End With
    
59.     Else
    
60.         MsgBox "没有查到"
    
61.     End If
    
62. End Sub
    

复制代码

zhaogang1960

请测试附件
新建文件夹 (2).rar (69.47 KB, 下载次数: 23)

2015-2-10 00:14 上传

点击文件名下载附件

jjj2123456?

zhaogang1960 发表于 2015-2-10 00:14
请测试附件

谢谢赵老师！
又学到一招多页控件

jjj2123456?

zhaogang1960 发表于 2015-2-10 00:14
请测试附件

老师您好！
再次麻烦您下
Private Sub UserForm_Initialize() '开启窗体设置6个ComboBox
    Dim i As Integer
    Dim j As Integer
    Dim SQL As String
    arr = Array("ID号", "编号", "单号", "年", "月", "日")
    For Each sh In Worksheets
        If sh.Name <> "其他" And sh.Name <> "qt1" Then
            myTable = sh.Name
        End If
    Next
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\jiageguanli.mdb" '连接数据库
    For i = 1 To 6
      
        SQL = "SELECT DISTINCT " & arr(i - 1) & " FROM " & myTable
        Set rs = cnn.Execute(SQL)
       Me.Controls("ComboBox" & i).Column = rs.GetRows
    Next

End Sub
请问要如何修改代码把 rs.GetRows的值循环累加给ComboBox下拉窗口

zhaogang1960

Me.Controls("ComboBox" & i).Column = rs.GetRows这一句就是

jjj2123456?

zhaogang1960 发表于 2015-2-11 20:49
Me.Controls("ComboBox" & i).Column = rs.GetRows这一句就是

老师
Me.Controls("ComboBox" & i).Column = rs.GetRows
这一句是给循环到最后一个工作表的下拉窗口
我想把这些循环的值统计后再赋值给下拉窗口，不知道可不可以实现

jjj2123456?

zhaogang1960 发表于 2015-2-11 20:49
Me.Controls("ComboBox" & i).Column = rs.GetRows这一句就是

我的目的是有几个数据库表，就把数据库每个表的那一列的值累计赋值给下拉窗口。
就是在循环的过程中把这些数据存放在一起，最后循环完再把这些数据赋值给下拉窗口

zhaogang1960

jjj2123456? 发表于 2015-2-11 21:21
我的目的是有几个数据库表，就把数据库每个表的那一列的值累计赋值给下拉窗口。
就是在循环的过程中把这 ...

我阅读能力较差，没有看懂