VBA 中的 SQL“%”等效项

使用VBA中的SQL“%”等效项进行模糊查询

vba
Sub FuzzyQuery()
    Dim strSQL As String
    Dim strKeyword As String
    Dim rs As Object
    
    '获取用户输入的关键词
    strKeyword = InputBox("请输入关键词：")
    
    '构造SQL语句
    strSQL = "SELECT * FROM 表名 WHERE 字段名 LIKE '" & strKeyword & "%'"
    
    '执行查询
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, "连接字符串"
    
    '处理查询结果
    If Not rs.EOF Then
        '遍历记录集
        Do Until rs.EOF
            '处理每条记录
            '...
            
            rs.MoveNext
        Loop
    Else
        MsgBox "未找到匹配的记录。"
    End If
    
    '关闭记录集和连接
    rs.Close
    Set rs = Nothing
End Sub

vba
Sub FuzzyQueryExample()
    Dim strSQL As String
    Dim strKeyword As String
    Dim rs As Object
    
    '获取用户输入的关键词
    strKeyword = InputBox("请输入产品名称的一部分：")
    
    '构造SQL语句
    strSQL = "SELECT * FROM Products WHERE ProductName LIKE '" & strKeyword & "%'"
    
    '执行查询
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\Northwind.mdb"
    
    '处理查询结果
    If Not rs.EOF Then
        '遍历记录集
        Do Until rs.EOF
            '输出每条记录的产品名称
            Debug.Print rs("ProductName")
            
            rs.MoveNext
        Loop
    Else
        MsgBox "未找到匹配的产品。"
    End If
    
    '关闭记录集和连接
    rs.Close
    Set rs = Nothing
End Sub