Office中国论坛/Access中国论坛

标题: 多条件查询求助 [打印本页]

作者: aslxt 时间: 2009-5-13 09:58
标题: 多条件查询求助
我的db1中有一张表tabl，含有date1，text2，....等字段。date1为日期型，text2为文本型
客户端用VB+ado连接数据库，
  Dim conn As ADODB.Connection
  Set conn = New ADODB.Connection
  str = "

rovider=Microsoft.Jet.OLEDB.4.0

ersist Security Info=False;Data Source=****.mdb;Jet OLEDB

atabase "
  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 时间: 2009-5-13 17:24
SQLstr= "SELECT * from tabl " & _
"Where date1 <= #" & Date & "# AND TEXT2 LIKE '“ & 第二条件 & "*' ;"

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

作者: aslxt 时间: 2009-5-13 18:20
楼上朋友的方法正解，十分感谢！！！！

作者: Henry D. Sy 时间: 2009-5-13 19:27
ado中*用%代替

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)