質問: '" & str住所検索 & "';" と完全一致にすると抽出します。 しかし、全部の住所が一致するレコードを集めたいわけではないので、これでは困ります。 ちなみに、クエリーで実行するとちゃんと集まります。 なんとか、レコードセットにあいまい検索の抽出結果を代入できないでしょうか? ADOのレコードセットにはLike演算子は使えないのでしょうか? よろしくお願いいたします。
回答: をご参照。これらに書いてあり、また#1でご指摘のように%で旨く行く。 (例)住所録1 ID郵便番号県名住所氏名 12302345神奈川県横浜市山田 22311122埼玉県熊谷市宇野 32345555栃木県宇都宮市高松 43331111京都府京都市大川 52221111埼玉県川口市鈴木 64442222埼玉県川口市川村 72221111埼玉県蕨市近藤 84441111埼玉県さいたま市田中 96662222埼玉県南川口市小野 (コード) Sub test05() Dim conn As Connection Dim rs As ADODB.Recordset Dim strSql As String Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Source = "住所録1" str住所検索 = "川口市" 'strSql = "SELECT 住所録1.住所 FROM 住所録1 WHERE 住所録1.住所 Like '" & str住所検索 _ '& "*';" strSql = "SELECT 住所録1.住所 FROM 住所録1 WHERE 住所録1.住所 like '%" & str住所検索 & "';" rs.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly Do Until rs.EOF MsgBox rs![住所].Value rs.MoveNext Loop rs.Close End Sub を実行すると、 川口市 川口市 南川口市(現実にはこんな市はありませんが) がMsgboxで表示されます。