[[20130523195021]]　『曖昧検索sql』（のぶ）　ページの最後に飛ぶ

『曖昧検索sql』（のぶ）

excel2000 or 2003 os xp

sqlでlikeをつかったデータ抽出ができずにこまっております。
データが全く取得できません。データなし。

データ
コード名前1 名前2
1 aaa ddd
2 abc eee
3 zzz fff

1と2のみ抽出したいです。

ソースは以下の通りです。

public function test() as string

    Dim adoCon As New ADODB.Connection
    Dim adoRs As ADODB.Recordset
    Dim strSQL As String

     adoCon.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
                "DBQ=" & ThisWorkbook.FullName & ";" & _
                "ReadOnly=1"

    strSQL = ""
    strSQL = "Select コード,名前1,名前2 " & _
                " From [データ$] " & _
                " Where 名前1 like '*" & "a" & "*'"

    Set adoRs = adoCon.Execute(strSQL)

    If adoRs.EOF Then
        MsgBox "データがありません。関数:test"
        Exit Function
    End If

    adoRs.MoveFirst

    Do Until adoRs.EOF

        MsgBox (adoRs![コード])                '追加

        adoRs.MoveNext
    Loop

    Set adoRs = Nothing

    'データベースのクローズ
    adoCon.Close

Exit Function

End Function

宜しくお願いします。

 なんか、以前、これに似たようなトピがありました。

 「*」の代わりに「%」じゃないですか？

 つまり→   " Where 名前1 like '%" + "a" + "%'"

 (半平太) 2013/05/23(Thu) 20:48

返信有難うございます。

%にしたらいけました。ありがとうございました。（のぶ）

コメント返信：