以下代码请高人帮看看如何实现模糊查询

子煜　发表于：2012-01-31 15:13:06 　

Private Sub Command51_Click()
Dim str As String, strSQL As String

str = "true"

If Not IsNull(产品编号) Then
str = str & " and 产品编号='" & 产品编号 & "'"
End If

If Not IsNull(尺寸) Then
str = str & " and 尺寸='" & 尺寸 & "'"

End If

   strSQL = "select Q_RM_Remarks.* "

   strSQL = strSQL & "FROM Q_RM_Remarks Where " & str & ";"

Me.F_RM_Remarks2.Form.RecordSource = strSQL
Me.F_RM_Remarks2.Requery

End Sub

比如，我要实现尺寸模糊查询，以上代码如何修改。在窗体“尺寸”文本框内输入部份尺寸的内容，点查询可以查出对应内容，现在需要完整输入才能查询到。

Top

蟹仔发表于：2012-01-31 19:37:53

"and 尺寸 like '*' & '" & 尺寸 & "' & '*'" 试试

Top

学习者发表于：2012-01-31 22:03:49

If Not IsNull(尺寸) Then
str = str & "([尺寸] like '*" & 尺寸 & "*')"

End If

如果是数值的话那就不能使用Like了，用范围限制，就像日期那样

if not isnull(me.min尺寸) then

str=str & "([尺寸]>= " & me.min尺寸 & ")"

end if

if not isnull(me.max尺寸) then

str=str & "([尺寸]<= " & me.max尺寸 & ")"

en if

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

以下代码请高人帮看看如何实现模糊查询