MyRs.Open "select * from [wmy] where datediff('h',cdate([通话结束时间]),#" & Format(Now, "yyyy-mm-dd HH:nn:ss") & "#)<24 and [车站名]='" & combobox.text & "'"
Private Sub Combo1_Click() Dim a As String a = Combo1.Text End Sub MyRs.Open "select * from [wmy] where datediff('h',cdate([通话结束时间]),#" & Format(Now, "yyyy-mm-dd HH:nn:ss") & "#)<24 and [车站名]='" & a & "'"
"SELECT * FROM wmy WHERE datediff('h',cdate(日期),#" & Format(date,"yyyy-mm-dd HH:nn:ss") & "#)<24;"2
"SELECT * FROM wmy WHERE datediff('d',cdate(日期),#" & Format(date,"yyyy-mm-dd HH:nn:ss") & "#)<7;"
FlexZl.ColWidth(2) = 1000
MyRs.Open "select * from [wmy] where datediff('h',cdate([通话结束时间]),#" & Format(Now, "yyyy-mm-dd HH:nn:ss") & "#)<24;", MyConSet FlexZl.DataSource = MyRs
MyRs.Close
这个对了,但还要再加一个条件
我想在条件里再加一个条件,就是[车站名]=combobox里的某一项的值现在问题是
combobox里某一项的值怎么表示?
在select语句中加and这一项,怎么加?我加的总是不对
Dim a As String
a = Combo1.Text
End Sub
MyRs.Open "select * from [wmy] where datediff('h',cdate([通话结束时间]),#" & Format(Now, "yyyy-mm-dd HH:nn:ss") & "#)<24 and [车站名]='" & a & "'"