配列の数値を結果セットと比較するには？

Question

以下のコード比較項目は、ユーザーがデータベースからアイテムIDを使用して以前に選択したもので、選択されたものを「チェック」します。だから私は以前に選択したものだけが「チェック」されているすべてのアイテムのチェックボックスリストを持っています。これは、このコードが何をしているか、更新注文ページの

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open Application("strConn") 

strSQL = "SELECT * FROM Items" 

'current items selected 
'e.g. 31, 32, 33      
strItemSelected = curr_Item_IDs & ","         

set rs = Conn.Execute(strSQL) 

If Not rs.EOF Then 

Do while not rs.EOF 

response.write "<input type = 'checkbox' " 

If InStr(strItemSelected, CStr(rs("ID")) & ",") > 0 Then 

response.write("checked = 'checked' ") 

END if     

response.write(" name='item' value=""" & rs("ID") & """> " & 
rs("item_name") & vbcrlf) 
response.write("/  ID: " & rs("ID") & "<br />")           

rs.movenext 

Loop 

end if 

set rs=nothing 

である、それは「31」を選択しただけでなく、「1」を選択し、31のIDです。私はその問題を引き起こしているInStrを考えているが、問題を解決する方法は不明である。

助けていただけたら幸いです！あなたがそれを行う必要がある場合

If rs("selected") = "Y" Then 
    response.write("checked = 'checked' ") 
END if 

：これであなたのIFを置き換える、あなたのループ内で次に

'change your query... ' 
strSQL = "SELECT I.*, case when I.ID in (" & strItemSelected & ") then 'Y' else 'N' end as selected FROM Items I" 

：計算列が含まれるようにクエリを調整することであろう

Answer 1

一つの方法コード内のロジックは、クエリを変更することはできませんINSTRの作業をしようとする代わりに配列を使用することができます...

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open Application("strConn")  
strSQL = "SELECT * FROM Items" 

'current items selected 
'e.g. 31, 32, 33      
'-----Create an array here instead of a string------ 
arrItemSelected = SPLIT(curr_Item_IDs,",") 

set rs = Conn.Execute(strSQL) 

If Not rs.EOF Then   
    Do while not rs.EOF   
     response.write "<input type = 'checkbox' " 
     '----Loop through the array----- 
     For i=0 To UBound(arrItemSelected) Step 1 
      If arrItemSelected(i) = CStr(rs("ID")) Then 
       response.write("checked = 'checked' ") 
      END if 
     Next 

     response.write(" name='item' value=""" & rs("ID") & """> " & 
     rs("item_name") & vbcrlf) 
     response.write("/  ID: " & rs("ID") & "<br />")           

     rs.movenext 

    Loop 
End If