一个简单问题，有分等你拿！

Question

dim sql as string
 sql = "select 卡号,男女, 开始时间, 结束时间,用时, 费用  from  消费记录表   where  开始时间<= cdate(Text2.Text)  and 开始时间>=cdate(Text1.Text) and 男女='男'"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
   set datagrid1.datasource=adodc1
其中上面的开始时间为2004-3-21 20：30：21型，text1.text类似于2004-3-21
请问上面的sql如何写？谢谢各位！

Answer 1

dim sql as string
 sql = "select 卡号,男女, 开始时间, 结束时间,用时, 费用  from  消费记录表   where  开始时间<= #"& format(cdate(Text2.Text),"yyyy-mm-dd hh:mm:ss)&"#  and 开始时间>= #"& format(cdate(Text1.Text),"yyyy-mm-dd hh:mm:ss)&"#  and 男女='男'"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
   set datagrid1.datasource=adodc1

Answer 2

sql = "select 卡号,男女, 开始时间, 结束时间,用时, 费用  from  消费记录表   where  开始时间<='" & cdate(Text2.Text) & "' and ' 开始时间>='" & cdate(Text1.Text) & "' and 男女='男'"