多条件查询求助

aslxt

我的db1中有一张表tabl，含有date1，text2，....等字段。date1为日期型，text2为文本型
客户端用VB+ado连接数据库，
  Dim conn As ADODB.Connection
  Set conn = New ADODB.Connection
  str = "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source=****.mdb;Jet OLEDBatabase "
  conn.Open str
  Dim rec As ADODB.Recordset
  Set rec = New ADODB.Recordset
  If 第二条件 = "" Then
    SQLstr= "SELECT * from tabl  " & _
          "Where date1 <= #" & Date & "#; "
  Else
    SQLstr= "SELECT * from tabl  " & _
          "Where date1 <= #" & Date & "#  AND TEXT2 LIKE '“ & 第二条件 & "*' ;"   
  End If
  rec.Open SQLstr, conn, adOpenStatic, adLockReadOnly
‘第二条件’VB工程窗体的一个文本框
当‘第二条件’的值为空时，查询结果正常。当‘第二条件’的值不为空时查询不到正确的结果，但复制SQLstr的值到access的新建查询中运行，结果正常！

styhs

SQLstr= "SELECT * from tabl  " & _
          "Where date1 <= #" & Date & "#  AND TEXT2 LIKE '“ & 第二条件 & "*' ;"   

试试将 第二条件 & "*' ;"   换为 第二条件 & "%' ;"

aslxt

楼上朋友的方法正解，十分感谢！！！！

Henry D. Sy

ado中*用%代替