Ｐａｇｅ 342 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼あいまい検索を行いたい。 ふじ 03/7/30(水) 15:01 ┗Re:あいまい検索を行いたい。 こうちゃん 03/7/30(水) 15:31 ┗Re:あいまい検索を行いたい。 ふじ 03/7/30(水) 15:51 ─────────────────────────────────────── ■題名 ： あいまい検索を行いたい。 ■名前 ： ふじ ■日付 ： 03/7/30(水) 15:01 -------------------------------------------------------------------------
| 使用環境 WindowsME Access2002 フォームに商品検索ボタンを設け、クリックするとインプットボックスが現れ その値を元にあいまい検索を行うべく下記の様にコードを書いてみたのですが LIKEの記述方法が間違っている為かまったく検索できません。 どなたかご教授頂きたくお願いします。 Private Sub 商品検索_click() Dim DataConn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Dim userinput Set DataConn = CurrentProject.Connection Set rs = New ADODB.Recordset userinput = InputBox("検索したい商品は？") strSQL = "SELECT 商品名, FROM 商品テーブル " strSQL = strSQL & "WHERE 商品名 LIKE 'userinput'" rs.Open strSQL, DataConn, adOpenStatic If Not rs.EOF Then Me!商品名.Value = rs("商品名") End If rs.CLOSE |
| ふじさん、こんにちは 以下をおためしください・・ *や%の位置は、実際の要件にあわせてくださいね。 >Private Sub 商品検索_click() > > Dim DataConn As ADODB.Connection > Dim rs As ADODB.Recordset > Dim strSQL As String > Dim userinput > > Set DataConn = CurrentProject.Connection > Set rs = New ADODB.Recordset > > userinput = InputBox("検索したい商品は？") > > strSQL = "SELECT 商品名, FROM 商品テーブル " > strSQL = strSQL & "WHERE 商品名 LIKE 'userinput'" JETなら strSQL = strSQL & "WHERE 商品名 LIKE '" & userinput & "*'" SQLServerなら strSQL = strSQL & "WHERE 商品名 LIKE '" & userinput & "%'" > rs.Open strSQL, DataConn, adOpenStatic > > If Not rs.EOF Then > Me!商品名.Value = rs("商品名") > End If > rs.CLOSE |
| 早速のご回答ありがとうございました。 お蔭様で無事、検索できました。 ありがとうございました。 |