在线等 有实例，新附件 新问题 新思想 希望帮解决

yuanlinfj

希望能把复选按钮 变成精确查询，实例在下方 ，，谢谢！在线等  决战到天亮~~



http://club.excelhome.net/thread-929687-6-1.html
得来全是费工夫 感兴趣的看这个 版主的附件吧，我想要的都在里面，答案已经有了。感谢版主

yuanlinfj

{:soso__15021441145761704133_2:}等待中  请看 11楼    11楼有新上传的附件 和遇见的问题 希望大家帮解决~~~在线等 ！！！！！2012年11月20日

yuanlinfj

{:soso_e103:}等一天嘞  求解

shuyee

抱歉，现在才看到。
不知道你想做什么。是这样：
1."select * from " & mytable & " where " & names & " = '" & str & "'"         原程序在"型号"查询上使用了相等匹配；
2."select * from " & mytable & " where " & names & " between #" & str1 & "# and #" & str2 & "#"   原程序在"电压"查询上，使用了区间匹配；
3."select * from " & mytable & " where " & names & " like '%" & str1 & "%'"   原程序在"规格"查询上使用了类似匹配；
原程序代码，根据复选框的情况，完成查询。

yuanlinfj

shuyee 发表于 2012-11-17 17:17
抱歉，现在才看到。
不知道你想做什么。是这样：
1."select * from " & mytable & " where " & names & " ...

我想要的效果是，通过复选框单一也能查询， 型号和电压一起也能查询  型号规格电压全选也能查询，最终达到精确查询的效果，能力有限，没办法 版主赐教吧，

yuanlinfj

都劳烦版主大架了，，荣幸 我先看看 是哪个理不，{:soso_e113:}

yuanlinfj

{:soso_e115:} 还是没有答案，，无非是点击复选框  输入内容     达到逐步精确查询的目的。

shuyee

知道了。把你CheckBox6的那段If循环代码，改成这样就差不多了
If CheckBox6 Then
    Dim rst As New ADODB.Recordset
    Dim s As String
    Dim mytable As String
    mytable = "计划表"
    names = "型号"
    number = Trim(Sheet2.Cells(3, 7))
    s = "select * from " & mytable & " where " & names & "='" & number & "'"
    If CheckBox7 = True Then
        number = Trim(Sheet2.Cells(3, 8))
        names = "电压"
        s = s & " and " & names & " = '" & number & "'"
        CheckBox7.Value = False
    End If
    If CheckBox9 = True Then
        number = Trim(Sheet2.Cells(3, 11))
        names = "规格"
        s = s & " and " & names & " = '" & number & "'"
        CheckBox9.Value = False
    End If
    Call connectdata
    rst.Open s, data, adOpenDynamic, adLockOptimistic
    Sheet2.Cells(8, 1).CopyFromRecordset rst
    Set data = Nothing
    Set rst = Nothing
End If
Exit Sub

yuanlinfj

shuyee 发表于 2012-11-18 19:34
知道了。把你CheckBox6的那段If循环代码，改成这样就差不多了
If CheckBox6 Then
    Dim rst As New ADO ...

谢谢~能达到最终查询的结果，，版主，还的劳烦你，刚才突然有个想法 如果我不用复选框， 直接在单元格内输入 点击查询 该咋办，觉得这样能省去一个环节。

shuyee

把mdb导入到那个excel文件中,成为一张工作表,然后使用高级筛选,也行得通的