查询

Question

我用vb６.０ 做了一个程序,
有一个command1和四个text分别为起始日期,终止日期,血液种类,血型,有一个表,其字段为：献血者,入库日期,有效日期,血液种类,血型等.并且此表通过data控件与msflexgrid控件梆定,能够显示,我想通过查询按钮,查询出与四个text中条件相符的内容,并且在表中加粗显示..查询中的代码该怎么写？？？？？？？？？？？
　　注：起始日期,终止日期是指的入库日期
急求！！！！！！！！！！！！！！！

Answer 1

Dim strSQL As String
strSQL = "select 入库日期 as 起始日期,有效日期 as 终止日期,血液种类,血型 from 表1 where 1=1 "
strSQL = strSQL & IIf(Text1 <> "", " and 入库日期 ='" & Trim(Text1.Text) & "'", "") _
            & IIf(Text2 <> "", " and 有效日期 ='" & Trim(Text2.Text) & "'", "") _
            & IIf(text3 <> "", " and 血液种类 ='" & Trim(text3.Text) & "'", "") _
            & IIf(Text4 <> "", " and 血型 ='" & Trim(Text4.Text) & "'", "")(Adodc1.ConnectionString = strSQL)