VB6 - ADO - LIKE 参数化查询 - Access DB

Question

通过 VB6 使用 ADO，我很难在我的访问文件参数化查询中使用 LIKE 命令。

    Dim strSQL As String
    strSQL = "SELECT * FROM [MY_TABLE] WHERE [MY_TEXT_COLUMN_NAME] LIKE %?%"

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

    conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DATABASE_PATH & ";Persist Security Info=False;"

    conn.Open

Dim adoCommand As ADODB.Command
Set adoCommand = New ADODB.Command

    With adoCommand
        .ActiveConnection = conn
        .CommandType = adCmdText
        .CommandText = strSQL
        .Prepared = True
        .Parameters.Append .CreateParameter(, adVarChar, adParamInput, 255, strMYTEXT)

        Dim rs As ADODB.Recordset
        Set rs = .Execute
    End With

返回一个空记录集 不确定此处是否需要通配符，但我只是找不到正确的放置方式。

Answer 1

找到了。

strSQL = "SELECT * FROM [MY_TABLE] WHERE [MY_TEXT_COLUMN_NAME] LIKE %?%"

应该是

strSQL = "SELECT * FROM [MY_TABLE] WHERE [MY_TEXT_COLUMN_NAME] LIKE '%' + ? + '%'"

解决了。