Question

vb 我想从access数据库按照我设定的条件筛选数据并用MSHFlexGrid控件显示

例如：已经有一个access数据库，包括：时间，故障类型，故障代码，等字段
以下是两个筛选条件
1时间范围：
起始时间：P_Sdate
终止时间：P_Edate

2还有一个条件：在故障类型字段筛选出，历史故障 这个种类的

要满足以上两个条件的数据行
我这样写的：
rsc.Open "Select * From Fault_code Where 时间 Between #" & P_Sdate & "# and #" & P_Edate & "# order by 时间", Conn, 1, 3
这样只能筛出满足时间段的数据，而另一个条件我不知道怎么加进去

Answer 1

Select * From Fault_code Where 时间 Between #" & P_Sdate & "# and #" & P_Edate & "# and 故障类型='历史故障' order by 时间

追问

谢谢，可如果我将“历史故障”这个串，存放在变量S中呢
应该这么写吗? rsc.Open "Select * From Fault_code Where 日期时间 Between #" & P_Sdate & "# and #" & P_Edate & "# and 故障类别="& S &" ", Conn, 1, 3
会蹦出来一个错误：“至少一个参数未被指定”，何解？

追答

S=‘历史故障'
Select * From Fault_code Where 时间 Between #" & P_Sdate & "# and #" & P_Edate & "# and 故障类型='" & S & "' order by 时间

在这里S的前后也要加上'' 单引号。

Answer 2

同意楼上！

追问

谢谢，可如果我将“历史故障”这个串，存放在变量S中呢
应该这么写吗? rsc.Open "Select * From Fault_code Where 日期时间 Between #" & P_Sdate & "# and #" & P_Edate & "# and 故障类别="& S &" ", Conn, 1, 3
会蹦出来一个错误：“至少一个参数未被指定”，何解？

追答

rsc.Open "Select * From Fault_code Where 日期时间 Between #" & P_Sdate & "# and #" & P_Edate & "# and 故障类别='"& S &"'",记得加单引号啊

Answer 3

我也在研究